Neue Arbeitsmappe erstellen

Um eine neue Arbeitsmappe zu erstellen, verwenden Sie einfach Arbeitsmappen.Add:

Workbooks.Add

Die neu hinzugefügte Arbeitsmappe ist jetzt die ActiveWorkbook.

Sie können dies mit diesem Code sehen:

Sub AddWB()Workbooks.AddMsgBox ActiveWorkbook.NameEnd Sub

Neue Arbeitsmappe erstellen & Objekt zuweisen

Sie können das ActiveWorkbook-Objekt verwenden, um auf die neue Arbeitsmappe zu verweisen. Damit können Sie die neue Arbeitsmappe einer Variablen zuweisen:

Dim wb as WorkbookWorkbooks.AddSet wb = ActiveWorkbook

Es ist jedoch besser, die Arbeitsmappe einer Variablen zuzuweisen, wenn die Arbeitsmappe erstellt wird:

Dim wb As WorkbookSet wb = Workbooks.Add

Jetzt können Sie die neue Arbeitsmappe anhand des Variablennamens referenzieren

MsgBox wb.Name

Neue Arbeitsmappe erstellen & Speichern

Sie können auch eine neue Arbeitsmappe erstellen und sofort speichern:

Workbooks.Add.SaveAs Filename:="NewWB"

Dadurch wird die Arbeitsmappe als .xlsx-Datei in Ihren Standardordner (ex. Meine Dokumente). Stattdessen können Sie die SaveAs mit unserem Leitfaden zum Speichern von Arbeitsmappen anpassen.

Jetzt können Sie auf die Arbeitsmappe mit ihrem Namen verweisen:

Workbooks("NewWB.xlsx").Activate

Dieser Code aktiviert „NewWB.xlsx“.

Neue Arbeitsmappe erstellen & 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 ist die ActiveWorkbook ):

ActiveWorkbook.Worksheets.Add Count:=2