Dieses Tutorial zeigt verschiedene Methoden zum Erstellen einer neuen Arbeitsmappe mit VBA.
Neue Arbeitsmappe erstellen
Um eine neue Arbeitsmappe zu erstellen, verwenden Sie einfach Arbeitsmappen.Hinzufügen:
1 | Arbeitsmappen.Hinzufügen |
Die neu hinzugefügte Arbeitsmappe ist jetzt die AktivArbeitsmappe.
Sie können dies mit diesem Code sehen:
123456 | Sub AddWB()Arbeitsmappen.HinzufügenMsgBox ActiveWorkbook.NameEnd Sub |
Neue Arbeitsmappe erstellen und Objekt zuweisen
Sie können das ActiveWorkbook-Objekt verwenden, um auf die neue Arbeitsmappe zu verweisen. Damit können Sie die neue Arbeitsmappe einer Objektvariablen zuweisen:
1234 | Dim wb als ArbeitsmappeArbeitsmappen.HinzufügenSet wb = ActiveWorkbook |
Es ist jedoch besser / einfacher, die Arbeitsmappe sofort einer Variablen zuzuweisen, wenn die Arbeitsmappe erstellt wird:
123 | Dim wb als ArbeitsmappeSet wb = Workbooks.Add |
Jetzt können Sie die neue Arbeitsmappe anhand ihres Variablennamens referenzieren.
1 | MsgBox wb.Name |
Neue Arbeitsmappe erstellen und speichern
Sie können auch eine neue Arbeitsmappe erstellen und sofort speichern:
1 | Workbooks.Add.SaveAs Dateiname:="NewWB" |
Dadurch wird die Arbeitsmappe als .xlsx-Datei in Ihrem Standardordner (z. B. Eigene Dateien) gespeichert. Stattdessen können Sie die SaveAs mit unserer Anleitung zum Speichern von Arbeitsmappen anpassen.
Jetzt können Sie auf die Arbeitsmappe mit ihrem Namen verweisen:
1 | Arbeitsmappen("NewWB.xlsx").Aktivieren |
Dieser Code aktiviert „NewWB.xlsx“.
Neue Arbeitsmappe erstellen und Blätter hinzufügen
Nachdem Sie eine Arbeitsmappe erstellt haben, können Sie sie bearbeiten. Hier ist nur ein Beispiel, um der neuen Arbeitsmappe zwei Blätter hinzuzufügen (vorausgesetzt, es handelt sich um die ActiveWorkbook):
1 | ActiveWorkbook.Worksheets.Add Count:=2 |