Wir speichern wichtige Informationen in Excel Wir führen auch verschiedene Operationen entsprechend unseren Anforderungen durch. Daher ist es notwendig, die Datei zu speichern, sobald wir sie aktualisieren. Andernfalls könnten wir wertvolle Daten verlieren. Es gibt einige effektive Möglichkeiten, um Speichern Sie eine Excel-Arbeitsmappe Außerdem ist das Speichern eines Excel Datei nach unseren Wünschen Format oder das Speichern der Datei im gewünschten Standort In diesem Artikel zeigen wir Ihnen die nützlichsten Beispiele für Excel VBA Speichern unter Dateiformat .

Download Arbeitsbuch Praxis

Laden Sie die folgende Arbeitsmappe herunter, um selbst zu üben.

12 Beispiele für Excel VBA Speichern unter Dateiformat

Zur Veranschaulichung verwenden wir den folgenden Datensatz als Beispiel. Der Datensatz stellt beispielsweise die Verkäufer , Produkt und Nettoumsatz Hier speichern wir diese Arbeitsmappe durch Anwendung von Excel VBA Speichern unter Dateiformat .

1) VBA zum Speichern als Excel-Datei

In unserem ersten Beispiel zeigen wir Ihnen eine einfache VBA-Code zu speichern. Excel Führen Sie daher die folgenden Schritte aus, um die Aufgabe auszuführen.

SCHRITTE:

• Gehen Sie erstens zur Registerkarte Entwickler.
• Wählen Sie dann Visual Basic .

• Infolgedessen ist die VBA erscheint ein Fenster.
• Klicken Sie anschließend auf einfügen. .
• Wählen Sie anschließend die Modul .

• Daher ist die Modul Fenster erscheint.
• Kopieren Sie anschließend den folgenden Code und fügen Sie ihn in das Feld ein.

 Sub Example_1() ActiveWorkbook.SaveAs End Sub 

• Führen Sie nun den Code aus, indem Sie F5 .
• Daher müssen Sie den Dateinamen, das Format und andere Informationen eingeben, wenn Sie dazu aufgefordert werden.
• Zum Schluss wird die Datei an dem von Ihnen angegebenen Ort gespeichert.

Lesen Sie mehr: Speichern eines Arbeitsblatts als neue Datei mit Excel VBA

2. die Dateierweiterung mit Excel VBA angeben

Im vorigen Beispiel mussten wir manuell die Dateiformat Nach dem Drücken des Ausführungsbefehls zeigen wir eine effizientere Methode zur Anwendung von Excel VBA Speichern unter Dateiformat um Arbeitsmappen im gewünschten Format zu speichern. Wir geben einfach die Dateierweiterung nach dem Dateinamen an. Fügen Sie also den folgenden Code in die Datei Modul Fenster.

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

Auf diese Weise können Sie den Code ausführen, um die Datei im gewünschten Format und am gewünschten Ort zu erhalten. Zu Speichern Sie die Datei im xlsx-Format, Typ xlsx anstelle von xlsm .

Lesen Sie mehr: Excel VBA-Makro zum Speichern von PDF in einem bestimmten Ordner (7 ideale Beispiele)

3 Excel VBA zur Verwendung von Dateiformat-Code

Wir können jedoch die Dateiformat Codenummer anstatt die Dateierweiterung anzugeben. Einige nützliche Codes sind: .xlsx = 51 , . xlsm = 52 , .xlsb = 50 , .xls = 56 Kopieren Sie daher den folgenden Code und fügen Sie ihn in die Datei 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 

Lesen Sie mehr: [Behoben] Warum speichert Excel meine Formatierung nicht (7 mögliche Gründe)

4. im gleichen Verzeichnis mit VBA speichern

In diesem Beispiel zeigen wir, wie man Speichern Sie im Gleiches Verzeichnis wo sich die Datei bereits mit Excel-VBA Fügen Sie daher den Code in das Feld Modul Fenster.

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

Lesen Sie mehr: Excel VBA: Speicherort wählen und als PDF speichern

5 VBA zum Speichern im neuen Verzeichnis

Möglicherweise müssen wir die Datei aber auch in einem Neues Verzeichnis Geben Sie also den folgenden Code in das Feld Modul Box und führen Sie es aus.

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

6. nach dem Passwort fragen, um die Excel-Datei zu öffnen

Zusätzlich können Sie sich bewerben Excel VBA Speichern unter Dateiformat um einen Antrag auf Passwort zu Excel-Datei öffnen Fügen Sie also den folgenden Code ein und führen Sie ihn aus.

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

Lesen Sie mehr: Excel-Datei mit Kennwort speichern

Ähnliche Lektüre

• Excel VBA zum Speichern von Dateien mit Variablennamen (5 Beispiele)
• Excel als PDF-Querformat speichern (mit schnellen Schritten)
• Excel VBA zum Speichern als Datei mit Pfad aus Zelle (mit schnellen Schritten)
• VBA-Code für die Schaltfläche Speichern in Excel (4 Varianten)
• [Behoben] Excel CSV-Datei speichert Änderungen nicht (6 mögliche Lösungen)

7 Passwort zur Bearbeitung in Excel hinzufügen

Außerdem können Sie einen Antrag auf Passwort für Bearbeitung von in Excel Ohne das Kennwort wird es nur im schreibgeschützten Format geöffnet. Kopieren Sie den Code und fügen Sie ihn ein. Führen Sie den Code dann aus.

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

8. im schreibgeschützten Format öffnen

Nochmals, zum Öffnen einer Datei in Schreibgeschützt Format geben Sie den folgenden Code ein und drücken Sie F5 um es auszuführen.

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

Lesen Sie mehr: Word-Dokument öffnen und als PDF oder Docx mit VBA Excel speichern

9. das Dialogfeld "Speichern unter" erzeugen

Eine weitere nützliche Funktion von Excel VBA zum Speichern als Dateiformat ist die Erzeugung von Dialogfeld "Speichern unter Fügen Sie daher den folgenden Code ein.

 Sub Example_9() Application.GetSaveAsFilename End Sub 

Lesen Sie mehr: Excel-Makro zum Speichern als PDF (5 geeignete Beispiele)

10 VBA zum Erstellen und Speichern einer neuen Arbeitsmappe

Neben dem Speichern einer Datei können wir auch Neue Arbeitsmappe erstellen & speichern mit VBA Um die Aufgabe zu erfüllen, geben Sie den folgenden Code in das Feld Modul Fenster und drücken Sie F5 .

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

Lesen Sie mehr: Excel VBA: Blatt als neue Arbeitsmappe speichern, ohne es zu öffnen

11. aktive Arbeitsmappe in Excel speichern

Ebenso können wir die aktive Arbeitsmappe dort speichern, wo sie bereits gespeichert ist. Um den Vorgang auszuführen, fügen Sie diesen einfachen Code ein.

 Sub Beispiel_11() ActiveWorkbook.Save End Sub 

Lesen Sie mehr: Wie man ein Makro für alle Arbeitsmappen in Excel speichert (mit einfachen Schritten)

12 VBA zum Speichern im PDF-Format in Excel

Endlich können wir die PDF Dateierweiterung in unserem VBA Code zum Speichern in PDF-Format Also, anwenden Excel VBA Speichern unter Dateiformat Dann führen Sie den Code aus, indem Sie auf F5 .

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

Lesen Sie mehr: Wie man Excel als PDF speichert (6 nützliche Methoden)

Schlussfolgerung

Von nun an können Sie die Dateien mit Excel VBA Speichern unter Dateiformat Befolgen Sie die oben beschriebenen Beispiele und lassen Sie uns wissen, wenn Sie weitere Möglichkeiten zur Lösung der Aufgabe kennen. das ExcelWIKI Vergessen Sie nicht, Ihre Kommentare, Vorschläge oder Fragen in den Kommentarbereich unten zu schreiben, falls Sie welche haben.