VBA Spara som

Excel VBA Spara som

VBA Save As- metoden används för att spara excel-filen till en viss plats. För att spara arbetsboken med vba-kod använder vi objektet Arbetsbok med SaveAs-funktionen.

Efter allt hårt arbete vi har gjort i arbetsboken sparar vi den, eller hur? Det är smärtsamt att förlora de uppgifter vi har arbetat med. Vi har två typer av sparar i Excel eller vilken fil som helst, en är "Spara" och en annan är "Spara som". Ctrl + S är den populära snabbtangenten som Ctrl + C & Ctrl + V runt om i världen. Men det är inte så bekant ett begrepp "Spara som" . I vanliga arbetsbladets genväg för att spara eftersom filen är F12- tangent. Även i VBA kan vi spara filen som " Spara som ".

Vad gör VBA Save As Function?

Det är en allmän uppgift att spara arbete i automatiseringsprocessen. Efter allt arbete vill vi spara filen.

Arbetsböcker ("Försäljning 2019.xlsx"). Spara

Den här koden läser arbetsbok som heter "Försäljning 2019.xlsx" för att spara.

På samma sätt kan du skapa en arbetsbok som vi arbetar med genom att använda "Spara som" -metoden.

  • Filnamn: Vad är namnet på filen du vill ge. Detta bör kombineras med filmappsökvägen.
  • Filformat: Vad som ska bör vara formatet för filen du sparar.
  • Lösenord: Vill du ange ett lösenord för den sparande filen.
  • Skriv res lösenord: Nämn reserverat lösenord för arbetsboken.

Jag tror att dessa parametrar är tillräckliga för att förstå metoden Spara som.

Hur använder jag Spara som funktion?

Du kan ladda ner denna VBA Spara som Excel-mall här - VBA Spara som Excel-mall

Exempel nr 1

Vi sparar arbetsboken rätt, så det är viktigt att nämna arbetsbokens namn och dess tillägg för att använda metoden Spara som. Så nämn arbetsboken du sparar.

Koda:

Under SaveAs_Example1 () Arbetsböcker ("Försäljning 2019.xlsx"). Avsluta sub

Använd nu metoden Spara som.

Koda:

 Sub SaveAs_Example1 () Arbetsböcker ("Försäljning 2019.xlsx"). SaveAs End Sub

Identifiera nu var du vill spara.

Koda:

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

Sätt nu backslash och ange filnamnet enligt dina önskemål med ett filtillägg.

Koda:

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

Nämn nu filformatet som “xlWorkbok”.

Koda:

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

Okej, vi är klara det kommer att spara filen i D-enhet> Mappnamn (artiklar)> Undermappnamn (2019).

Exempel 2

Spara alla öppnade arbetsböcker

Antag att du arbetar med tio arbetsböcker på din dator. Du vill skapa en säkerhetskopia av dessa arbetsböcker genom att spara dem i datorn som en kopia. När du vill arbeta med mer än en arbetsbok är det nödvändigt att använda öglorna.

Nedanstående kod hjälper dig att spara alla arbetsböcker som kopia.

Koda:

 Sub SaveAs_Example2 () Dim Wb som arbetsbok för varje Wb i arbetsböcker ActiveWorkbook.SaveAs "D: \ Articles \ 2019 \" & ActiveWorkbook.Name & ".xlsx" 'Ändra filvägen Nästa Wb End Sub

Om du vill välja din egen mappsökväg kan du använda den här koden.

Koda:

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

Så snart du kör den här koden med F5-tangenten eller manuellt kommer den att be dig välja destinationsmappsökväg, välj och klicka på OK, den sparar filen.