We slaan belangrijke informatie op in Excel We voeren ook verschillende bewerkingen uit volgens onze vereisten. Het is dus noodzakelijk om het bestand op te slaan zodra we het bijwerken. Anders kunnen we waardevolle gegevens verliezen. Er zijn enkele effectieve manieren om Sla een Excel Werkboek Bovendien is het opslaan van een Excel bestand volgens onze gewenste Formaat of het bestand opslaan in de gewenste Locatie is een andere belangrijke taak. In dit artikel laten we u de nuttigste voorbeelden zien van Excel VBA opslaan als bestandsformaat .

Download Praktijk werkboek

Download het volgende werkboek om zelf te oefenen.

12 Voorbeelden van Excel VBA Opslaan als bestandsformaat

Ter illustratie gebruiken we de volgende dataset als voorbeeld. De dataset vertegenwoordigt bijvoorbeeld de Verkoper , Product en Netto verkoop van een bedrijf. Hier slaan we deze werkmap op door het toepassen van Excel VBA opslaan als bestandsformaat .

1. VBA om op te slaan als Excel-bestand

In ons eerste voorbeeld tonen we u een eenvoudige VBA-code om een Excel Volg daarom de onderstaande stappen om de taak uit te voeren.

STAPPEN:

• Ga eerst naar de Tabblad ontwikkelaar.
• Selecteer vervolgens Visual Basic .

• Als gevolg daarvan zijn de VBA venster verschijnt.
• Klik daarna op Plaats .
• Selecteer vervolgens de Module .

• Vandaar dat de Module venster verschijnt.
• Kopieer daarna de volgende code en plak die in het vak.

 Sub Voorbeeld_1() ActiveWorkbook.SaveAs Einde Sub 

• Voer nu de code uit door op F5 .
• Bijgevolg moet u de bestandsnaam, het formaat en andere informatie invoeren zoals gevraagd.
• Tenslotte zal het bestand worden opgeslagen op de door u opgegeven locatie.

Lees meer: Een werkblad als nieuw bestand opslaan met Excel VBA

2. Bestandsextensie opgeven met Excel VBA

In het vorige voorbeeld moesten we handmatig de Bestandsformaat na het indrukken van het run commando. Maar hier laten we een efficiëntere manier zien om Excel VBA opslaan als bestandsformaat om werkmappen in het gewenste formaat op te slaan. We geven gewoon de bestandsextensie op na de bestandsnaam. Voeg dus de onderstaande code in in de Module raam.

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

Op deze manier kunt u de code uitvoeren om het bestand in het gewenste formaat en de gewenste locatie te krijgen. Om sla het bestand op in xlsx formaat, type xlsx in plaats van xlsm .

Lees meer: Excel VBA Macro om PDF in specifieke map op te slaan (7 ideale voorbeelden)

3. Excel VBA om bestandsformaat code te gebruiken

We kunnen echter de Bestandsformaat Code Nummer in plaats van de bestandsextensie op te geven. Enkele nuttige codes zijn: .xlsx = 51 , . xlsm = 52 , .xlsb = 50 , .xls = 56 Kopieer dus de volgende code en plak deze in de Module doos.

 Sub Voorbeeld_3() Dim locatie Als String Locatie = "D:\SOFTEKOexcel vba opslaan als bestandsformaat" ActiveWorkbook.SaveAs Bestandsnaam:=locatie, Bestandsformaat:=52 Einde Sub 

Lees meer: [Waarom slaat Excel mijn opmaak niet op? (7 mogelijke redenen)

4. Opslaan in dezelfde directory met VBA

In dit voorbeeld laten we zien hoe je Sla in de Dezelfde directory waar het bestand al is met Excel VBA Plaats daarom de code in de Module raam.

 Sub Voorbeeld_4() ActiveWorkbook.SaveAs Bestandsnaam:="excel vba opslaan als bestandsformaat" Einde Sub 

Lees meer: Excel VBA: Locatie kiezen en opslaan als PDF

5. VBA voor opslag in nieuwe directory

Maar misschien moeten we het bestand ook opslaan in een Nieuwe gids Typ dus de volgende code in de Module doos en voer het uit.

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

6. Vraag om wachtwoord om Excel-bestand te openen

Bovendien kunt u Excel VBA opslaan als bestandsformaat om te vragen om een Wachtwoord naar Excel-bestand openen Dus, voeg de onderstaande code in en voer deze uit.

 Sub Voorbeeld_6() ActiveWorkbook.SaveAs _ Bestandsnaam:="D:\SOFTEKOexcel vba save as file format.xlsm", Wachtwoord:="één" Einde Sub 

Lees meer: Hoe Excel-bestand met wachtwoord op te slaan

Vergelijkbare lezingen

• Excel VBA om bestand met variabele naam op te slaan (5 voorbeelden)
• Hoe Excel opslaan als PDF-landschap (met snelle stappen)
• Excel VBA op te slaan als bestand met behulp van pad van cel (met snelle stappen)
• VBA-code voor knop opslaan in Excel (4 varianten)
• [Fixed!] Excel CSV bestand slaat wijzigingen niet op (6 mogelijke oplossingen)

7. Wachtwoord toevoegen voor bewerken in Excel

Bovendien kunt u vragen om een Wachtwoord voor Bewerken van in Excel Zonder het wachtwoord, opent het alleen in alleen-lezen formaat. Kopieer de code en plak het. Voer dan de code uit.

 Sub Voorbeeld_7() ActiveWorkbook.SaveAs _ Bestandsnaam:="D:\SOFTEKOexcel vba save as file format.xlsm", WriteRes:="one" End Sub 

8. Openen in alleen-lezen formaat

Nogmaals, voor het openen van een bestand in Alleen lezen Formaat typ de onderstaande code in en druk op F5 om het uit te voeren.

 Sub Voorbeeld_8() ActiveWorkbook.SaveAs _ Bestandsnaam:="D:\SOFTEKOexcel vba save as file format.xlsm", _ ReadOnlyRecommended:=True Einde Sub 

Lees meer: Hoe Word-document openen en opslaan als PDF of Docx met VBA Excel

9. Dialoogvenster "Opslaan als" genereren

Een andere nuttige operatie van Excel VBA om op te slaan als bestandsformaat is het genereren van Opslaan als dialoogvenster Voeg daarom de onderstaande code in.

 Sub Voorbeeld_9() Application.GetSaveAsFilename End Sub 

Lees meer: Excel Macro om op te slaan als PDF (5 geschikte voorbeelden)

10. VBA om een nieuwe werkmap te maken en op te slaan

Naast het opslaan van een bestand kunnen we ook Nieuwe werkmap maken en opslaan met VBA code. Om de taak te volbrengen, typ de onderstaande code in de Module venster en druk op F5 .

 Sub Voorbeeld_10() Dim boek als werkboek Set boek = Werkboeken.Add Application.DisplayAlerts = False book.SaveAs Filename:="D:\SOFTEKOexcel vba save as file format.xlsm" Application.DisplayAlerts = True End Sub 

Lees meer: Excel VBA: Blad opslaan als nieuwe werkmap zonder te openen

11. Actieve werkmap opslaan in Excel

Op dezelfde manier kunnen we de actieve werkmap opslaan waar hij al is opgeslagen. Om de operatie uit te voeren, voegt u de zeer eenvoudige code in.

 Sub Voorbeeld_11() ActiveWorkbook.Opslaan Einde Sub 

Lees meer: Hoe een macro opslaan voor alle werkmappen in Excel (met eenvoudige stappen)

12. VBA voor opslaan als PDF in Excel

Eindelijk kunnen we de PDF bestandsextensie in onze VBA code op te slaan in PDF-formaat Dus, pas Excel VBA opslaan als bestandsformaat hieronder. Voer dan de code uit door op F5 .

 Sub Voorbeeld_12() ActiveSheet.SaveAs Bestandsnaam:="excel vba save as file format.pdf" Einde Sub 

Lees meer: Hoe Excel opslaan als PDF (6 nuttige manieren)

Conclusie

Voortaan kunt u bestanden opslaan met Excel VBA opslaan als bestandsformaat volgens de hierboven beschreven voorbeelden. Blijf ze gebruiken en laat het ons weten als je meer manieren hebt om de taak uit te voeren. Volg de ExcelWIKI Vergeet niet om opmerkingen, suggesties of vragen te plaatsen in het commentaarveld hieronder.