VBA Opslaan als | Hoe de Save As-methode in VBA Excel te gebruiken?

Excel VBA Opslaan als

De VBA Save As- methode wordt gebruikt om het Excel-bestand op een specifieke locatie op te slaan. Om de werkmap op te slaan met behulp van vba-code gebruiken we het object Workbook met de SaveAs-functie.

Na al het harde werk dat we in het werkboek hebben gedaan, slaan we het op, nietwaar? Het is pijnlijk om de gegevens waaraan we hebben gewerkt te verliezen. We hebben twee soorten opslag in Excel of een willekeurig bestand, de ene is "Opslaan" en de andere is "Opslaan als". Ctrl + S is de populaire sneltoets zoals Ctrl + C en Ctrl + V over de hele wereld. Maar het is niet zo bekend een concept "Opslaan als" . In een normale werkblad sneltoets om op te slaan als is het bestand de F12- toets. Ook in VBA kunnen we het bestand opslaan als " Opslaan als ".

Wat doet VBA Save As Function?

Het is een algemene taak om werk te besparen in het automatiseringsproces. Na al het werk willen we het bestand opslaan.

Werkmappen ('Sales 2019.xlsx'). Opslaan

Deze code leest de werkmap met de naam "Sales 2019.xlsx" om op te slaan.

Op dezelfde manier kan de werkmap waaraan we werken worden gerepliceerd door de methode "Opslaan als" te gebruiken.

Bestandsnaam: wat is de naam van het bestand dat u wilt opgeven. Dit moet worden gecombineerd met het pad naar de bestandsmap.
Bestandsindeling: wat is, zou de indeling moeten zijn van het bestand dat u opslaat.
Wachtwoord: Wilt u een wachtwoord opgeven voor het opslagbestand?
Write Res Password: vermeld het gereserveerde wachtwoord voor de werkmap.

Ik denk dat deze parameters voldoende zijn om de Save As-methode te begrijpen.

Hoe gebruik je de functie Opslaan als?

U kunt deze VBA Opslaan als Excel-sjabloon hier downloaden - VBA Opslaan als Excel-sjabloon

Voorbeeld 1

We slaan de werkmap goed op, dus het is belangrijk om de naam van de werkmap en de extensie te vermelden om de methode Opslaan als te gebruiken. Noem dus de werkmap die u opslaat.

Code:

Sub SaveAs_Example1 () Werkmappen ("Sales 2019.xlsx"). Einde Sub

Gebruik nu de methode Opslaan als.

Code:

 Sub SaveAs_Example1 () Werkmappen ("Sales 2019.xlsx"). SaveAs End Sub

Bepaal nu waar u wilt opslaan.

Code:

 Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 End Sub

Plaats nu een backslash en voer de bestandsnaam naar wens in met een bestandsextensie.

Code:

 Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx" End Sub

Noem nu het bestandsformaat als “xlWorkbok”.

Code:

 Sub SaveAs_Example1 () Workbooks ("Sales 2019.xlsx"). SaveAs "D: \ Articles \ 2019 \ My File.xlsx", FileFormat: = xlWorkbook End Sub

Oké, we zijn klaar, het zal het bestand opslaan in D-schijf> Mapnaam (artikelen)> Naam submap (2019).

Voorbeeld # 2

Sla alle geopende werkmappen op

Stel dat u met 10 werkmappen op uw computer werkt. U wilt een back-up van deze werkmappen maken door ze op de computer op te slaan als een kopie. Als u met meer dan één werkmap wilt werken, is het nodig om de loops te gebruiken.

Onderstaande code helpt u bij het opslaan van alle werkmappen als kopie.

Code:

 Sub SaveAs_Example2 () Dim Wb As Workbook For Every Wb In Workbooks ActiveWorkbook.SaveAs "D: \ Articles \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Wijzig het bestandspad Volgende Wb End Sub

Als u uw eigen mappad wilt selecteren, kunt u deze code gebruiken.

Code:

 Sub SaveAs_Example3 () Dim FilePath As String FilePath = Application.GetSaveAsFilename ActiveWorkbook.SaveAs Bestandsnaam: = FilePath & ".xlsx", FileFormat: = xlOpenXMLWorkbook End Sub

Zodra u deze code uitvoert met de F5-toets of handmatig, zal het u vragen om het pad van de bestemmingsmap te selecteren, selecteren en op OK klikken, het zal het bestand opslaan.