Excel VBA Spara som filformat (12 lämpliga exempel)

Hugh West

16-10-2023 Makroer & Excel VBA
  • Dela Detta
Hugh West

Vi lagrar viktig information i Excel Vi utför också olika operationer enligt våra behov. Det är därför nödvändigt att spara filen när vi uppdaterar den. Annars kan vi förlora värdefulla data. Det finns några effektiva sätt att spara filen. Spara en Arbetsbok i Excel Dessutom är det inte möjligt att spara en Excel filen enligt våra önskemål. Format , eller lagra filen i önskad plats i Plats är en annan viktig uppgift. I den här artikeln visar vi dig de mest användbara exemplen på Excel VBA Spara som filformat .

Ladda ner övningsboken

Ladda ner följande arbetsbok för att öva själv.

VBA Spara som filformat.xlsm

12 exempel på Excel VBA Spara som filformat

För att illustrera detta använder vi följande dataset som ett exempel. Datasetetet representerar till exempel följande Försäljare , Produkt , och Nettoomsättning av ett företag. Här sparar vi denna arbetsbok genom att tillämpa Excel VBA Spara som filformat .

1. VBA för att spara som Excel-fil

I vårt första exempel visar vi dig en enkel VBA-kod för att spara en Excel Följ därför stegen nedan för att utföra uppgiften.

STEG:

  • Först går du till Fliken Utvecklare.
  • Välj sedan Visual Basic .

  • Som ett resultat av detta har VBA kommer att öppnas.
  • Klicka sedan på Infoga .
  • Välj därefter Modul .

  • Därför är Modul visas.
  • Kopiera sedan följande kod och klistra in den i rutan. 
 Sub Example_1() ActiveWorkbook.SaveAs End Sub

  • Kör nu koden genom att trycka på F5 .
  • Därför måste du ange filnamn, format och annan information när du blir tillfrågad.
  • Slutligen sparas filen på den plats du har angett.

Läs mer: Hur du sparar ett arbetsblad som en ny fil med Excel VBA

2. Ange filändelse med Excel VBA

I det föregående exemplet var vi tvungna att manuellt ange Filformat efter att ha tryckt på kommandot run. Men här ska vi visa ett effektivare sätt att tillämpa Excel VBA Spara som filformat för att spara arbetsböcker i önskat format. Vi anger helt enkelt filtillägget efter filnamnet. Så, infoga följande kod i Modul fönster. 

 Sub Example_2() Dim location As String location = "D:\SOFTEKO\excel vba save as file format.xlsm" ActiveWorkbook.SaveAs Filename:=location End Sub

På så sätt kan du köra koden för att få filen i önskat format och på önskad plats. spara filen i xlsx-formatet, typ xlsx i stället för xlsm .

Läs mer: Excel VBA-makro för att spara PDF-filer i en specifik mapp (7 idealiska exempel)

3. Excel VBA för att använda koden för filformatet

Vi kan dock ange den Kodnummer för filformat i stället för att ange filändelsen. Några användbara koder är: .xlsx = 51 , . xlsm = 52 , .xlsb = 50 , .xls = 56 Kopiera därför följande kod och klistra in den i Modul box. 

 Sub Example_3() Dim location As String location = "D:\SOFTEKO\excel vba save as file format" ActiveWorkbook.SaveAs Filename:=location, FileFormat:=52 End Sub

Läs mer: [Rättad!] Varför sparar Excel inte min formatering? (7 möjliga orsaker)

4. Spara i samma katalog med VBA

I det här exemplet visar vi hur du kan Spara i den Samma katalog där filen redan finns med Excel VBA Lägg därför in koden i Modul fönster. 

 Sub Example_4() ActiveWorkbook.SaveAs Filnamn:="excel vba save as file format" End Sub

Läs mer: Excel VBA: Välj plats och spara som PDF

5. VBA för att lagra i ny katalog

Vi kan dock också behöva spara filen i en Ny katalog Skriv därför följande kod i Modul boxen och kör den. 

 Sub Example_5() Dim location As String location = "D:\SOFTEKO\excel vba save as file format" ActiveWorkbook.SaveAs Filename:=location End Sub

6. Be om lösenord för att öppna Excel-filen

Dessutom kan du ansöka om Excel VBA Spara som filformat för att be om en Lösenord till Öppna Excel-fil Så, sätt in och kör nedanstående kod. 

 Sub Example_6() ActiveWorkbook.SaveAs _ Filnamn:="D:\SOFTEKO\excel vba save as file format.xlsm", Lösenord:="one" End Sub

Läs mer: Hur man sparar Excel-filer med lösenord

Liknande läsningar

  • Excel VBA för att spara en fil med variabelt namn (5 exempel)
  • Hur man sparar Excel som PDF-landskap (med snabba steg)
  • Excel VBA för att spara som fil med sökvägen från cellen (med snabba steg)
  • VBA-kod för Save-knappen i Excel (4 varianter)
  • [Rättad!] Excel CSV-fil som inte sparar ändringar (6 möjliga lösningar)

7. Lägg till lösenord för redigering i Excel

Dessutom kan du be om en Lösenord för Redigering av på Excel Utan lösenordet öppnas den bara i skrivskyddat format. Kopiera koden och klistra in den. Kör sedan koden. 

 Sub Example_7() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", WriteRes:="one" End Sub

8. Öppna i skrivskyddat format

För att öppna en fil i Skrivskyddad Format , skriv nedanstående kod och tryck på F5 för att köra den. 

 Sub Example_8() ActiveWorkbook.SaveAs _ Filename:="D:\SOFTEKO\excel vba save as file format.xlsm", _ ReadOnlyRecommended:=True End Sub

Läs mer: Öppna Word-dokument och spara som PDF eller Docx med VBA Excel

9. Generera dialogrutan "Spara som".

En annan användbar funktion av Excel VBA för att spara som filformat är att generera Dialogrutan Spara som Lägg därför in nedanstående kod. 

 Sub Example_9() Application.GetSaveAsFilename End Sub

Läs mer: Excel-makro för att spara som PDF (5 lämpliga exempel)

10. VBA för att skapa & Spara ny arbetsbok

Förutom att spara en fil kan vi också Skapa & Spara ny arbetsbok med VBA koden. För att utföra uppgiften skriver du nedanstående kod i Modul och tryck på F5 . 

 Sub Example_10() Dim book As Workbook Set book = Workbooks.Add Application.DisplayAlerts = False book.SaveAs Filnamn:="D:\SOFTEKO\excel vba save as file format.xlsm" Application.DisplayAlerts = True End Sub

Läs mer: Excel VBA: Spara ark som ny arbetsbok utan att öppna den

11. Spara aktiv arbetsbok i Excel

På samma sätt kan vi spara den aktiva arbetsboken där den redan är lagrad. För att utföra operationen infogar du den mycket enkla koden. 

 Sub Example_11() ActiveWorkbook.Save End Sub

Läs mer: Hur du sparar en makro för alla arbetsböcker i Excel (med enkla steg)

12. VBA för att spara som PDF-format i Excel

Till sist kan vi använda PDF filtillägget i vår VBA kod som ska sparas i PDF-format . Så, tillämpa Excel VBA Spara som filformat nedan. Kör sedan koden genom att trycka på F5 . 

 Sub Example_12() ActiveSheet.SaveAs Filename:="excel vba save as file format.pdf" End Sub

Läs mer: Hur du sparar Excel som PDF (6 användbara sätt)

Slutsats

Från och med nu kan du spara filer med följande beteckningar Excel VBA Spara som filformat Använd dem gärna och meddela oss om du har fler sätt att utföra uppgiften. Följ ExcelWIKI Glöm inte att lämna kommentarer, förslag eller frågor om du har några i kommentarsfältet nedan.

Tidigare inlägg Hur man konsoliderar data från flera rader i Excel (4 snabba metoder)
Nästa inlägg Hur man beräknar rabattprocenten med en formel i Excel

Hugh West är en mycket erfaren Excel-tränare och analytiker med över 10 års erfarenhet i branschen. Han har en kandidatexamen i redovisning och ekonomi och en magisterexamen i företagsekonomi. Hugh har en passion för undervisning och har utvecklat ett unikt undervisningssätt som är lätt att följa och förstå. Hans expertkunskap om Excel har hjälpt tusentals studenter och yrkesverksamma över hela världen att förbättra sina färdigheter och utmärka sig i sina karriärer. Genom sin blogg delar Hugh med sig av sin kunskap med världen, och erbjuder gratis Excel-handledning och onlineutbildning för att hjälpa individer och företag att nå sin fulla potential.