Denne vejledning vil demonstrere forskellige metoder til at oprette en ny projektmappe ved hjælp af VBA.
Opret ny projektmappe
For at oprette en ny projektmappe skal du blot bruge Workbooks.Add:
| 1 | Workbooks.Add |
Den nyligt tilføjede projektmappe er nu ActiveWorkbook.
Du kan se dette ved hjælp af denne kode:
| 123456 | Sub AddWB ()Workbooks.AddMsgBox ActiveWorkbook.NameAfslut Sub |
Opret ny projektmappe og tildel til objekt
Du kan bruge ActiveWorkbook -objektet til at henvise til den nye projektmappe. Ved hjælp af dette kan du tildele den nye projektmappe til en objektvariabel:
| 1234 | Dim wb som projektmappeWorkbooks.AddIndstil wb = ActiveWorkbook |
Men det er bedre / lettere at tildele projektmappen med det samme til en variabel, når projektmappen oprettes:
| 123 | Dim wb Som projektmappeIndstil wb = Workbooks.Add |
Nu kan du referere til den nye projektmappe med dens variabelnavn.
| 1 | MsgBox wb.Name |
Opret ny projektmappe og gem
Du kan også oprette en ny projektmappe og straks gemme den:
| 1 | Workbooks.Add.SaveAs Filnavn: = "NewWB" |
Dette gemmer projektmappen som en .xlsx -fil i din standardmappe (f.eks. Mine dokumenter). I stedet kan du tilpasse SaveAs med vores guide til at gemme projektmapper.
Nu kan du referere til projektmappen med dens navn:
| 1 | Arbejdsbøger ("NewWB.xlsx"). Aktiver |
Denne kode aktiverer "NewWB.xlsx".
Opret ny projektmappe og tilføj ark
Når du har oprettet en projektmappe, kan du redigere den. Her er kun et eksempel på at tilføje to ark til den nye projektmappe (forudsat at det er ActiveWorkbook):
| 1 | ActiveWorkbook.Worksheets.Add Count: = 2 |
