Opret ny projektmappe

for at oprette en ny projektmappe skal du blot bruge projektmapper.Tilføj:

Workbooks.Add

den nyligt tilføjede projektmappe er nu Aktivarbejdsbogen.

Du kan se dette ved hjælp af denne kode:

Sub AddWB()Workbooks.AddMsgBox ActiveWorkbook.NameEnd Sub

Opret ny projektmappe& Tildel til objekt

Du kan bruge objektet Activearbejdsbog til at henvise til den nye projektmappe. Ved hjælp af dette kan du tildele den nye projektmappe til en variabel:

Dim wb as WorkbookWorkbooks.AddSet wb = ActiveWorkbook

men det er bedre at tildele projektmappen til en variabel, når projektmappen oprettes:

Dim wb As WorkbookSet wb = Workbooks.Add

nu Kan du henvise til den nye projektmappe med dens variabelnavn

MsgBox wb.Name

Opret ny projektmappe & Gem

Du kan også oprette en ny projektmappe og straks gemme den:

Workbooks.Add.SaveAs Filename:="NewWB"

dette gemmer projektmappen som en .fil til din standardmappe (f. eks. Mine Dokumenter). I stedet kan du tilpasse SaveAs med vores guide til at gemme arbejdsbøger.

nu Kan du henvise til projektmappen ved navn:

Workbooks("NewWB.xlsx").Activate

denne kode aktiverer “Nyvb.”.

Opret ny projektmappe& Tilføj ark

når du har oprettet en projektmappe, kan du redigere den. Her er blot et eksempel for at tilføje to ark til den nye projektmappe (forudsat at det er Aktivtarbejdsbogen):

ActiveWorkbook.Worksheets.Add Count:=2