Hoe gebruikt u de functie 'Opslaan als' in Excel om automatisch een bestaand bestand te overschrijven?
Wanneer u een Excel-werkboek opslaat naar een Nieuwe map, verschijnt een waarschuwingsvenster zoals hieronder op de schermafbeelding wordt weergegeven als er al een werkmap met dezelfde naam in de map aanwezig is. Hoe kunt u het bestaande bestand automatisch overschrijven zonder waarschuwingsbericht? De methode in dit artikel kan u daarbij helpen.
Functie Opslaan als om automatisch een bestaand bestand te overschrijven met VBA-code
Functie Opslaan als om automatisch een bestaand bestand te overschrijven met VBA-code
Als u een werkmap met een nieuwe naam wilt opslaan en het bestaande bestand automatisch wilt overschrijven in Excel, volgt u de onderstaande stappen.
1. Maak eerst een opdrachtknop aan om de functie ‘Opslaan als’ in uw werkblad te activeren. Klik hiervoor op Ontwikkelaar > Invoegen > Opdrachtknop (ActiveX-besturingselement). Zie schermafbeelding:
2. Teken een opdrachtknop op uw werkblad. Klik er vervolgens met de rechtermuisknop op en selecteer Code weergeven in het contextmenu.
3. In het venster Microsoft Visual Basic for Applications kopieert u de onderstaande VBA-code en plakt u deze tussen de regels Private Sub en End Sub in het Code-venster.
VBA-code: functie Opslaan als om automatisch een bestaand bestand te overschrijven
Dim xFileName As String
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Excel Workbook (*.xlsx),*.xlsx")
End If
If (xFileName <> "") Or (xFileName <> "False") Then
ActiveWorkbook.SaveAs Filename:=xFileName
End If
Application.DisplayAlerts = True4. Druk op Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten. Schakel daarna de Ontwerpmodus uit onder het tabblad Ontwikkelaar.
5. Klik op de opdrachtknop. Er verschijnt nu een dialoogvenster Opslaan als. Selecteer een map om deze werkmap op te slaan en klik vervolgens op de knop Opslaan.
Als er al een werkmap met dezelfde naam in de doelmap aanwezig is, wordt deze automatisch en zonder waarschuwing direct overschreven door het huidige werkboek.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Gerelateerde artikelen:
- Hoe slaat u een werkblad op als PDF-bestand en e-mailt u het vervolgens als bijlage via Outlook?
- Hoe slaat u een Excel-bestand op met een tijdstempel in de bestandsnaam?
- Hoe exporteert of slaat u meerdere of alle werkbladen op als afzonderlijke CSV- of tekstbestanden in Excel?
- Hoe schakelt u de opties Opslaan en Opslaan als uit of voorkomt u dat deze beschikbaar zijn in Excel?
- Hoe schakelt u het opslaan van werkmappen uit, maar staat u alleen ‘Opslaan als’ toe in Excel?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins