Denne opplæringen vil demonstrere forskjellige metoder for å lage en ny arbeidsbok ved hjelp av VBA.
Lag ny arbeidsbok
Bare bruk for å lage en ny arbeidsbok Arbeidsbøker.Legg til:
| 1 | Arbeidsbøker.Legg til |
Den nylig lagt til arbeidsboken er nå ActiveWorkbook.
Du kan se dette ved å bruke denne koden:
| 123456 | Sub AddWB ()Arbeidsbøker.Legg tilMsgBox ActiveWorkbook.NameSlutt Sub |
Lag ny arbeidsbok og tilordne til objekt
Du kan bruke ActiveWorkbook -objektet til å referere til den nye arbeidsboken. Ved å bruke dette kan du tilordne den nye arbeidsboken til en objektvariabel:
| 1234 | Dim wb som arbeidsbokArbeidsbøker.Legg tilSett wb = ActiveWorkbook |
Men det er bedre / enklere å tilordne arbeidsboken umiddelbart til en variabel når arbeidsboken er opprettet:
| 123 | Dim wb Som arbeidsbokSett wb = Workbooks.Add |
Nå kan du referere til den nye arbeidsboken med variabelnavnet.
| 1 | MsgBox wb.Name |
Lag ny arbeidsbok og lagre
Du kan også opprette en ny arbeidsbok og lagre den umiddelbart:
| 1 | Workbooks.Add.SaveAs Filnavn: = "NewWB" |
Dette vil lagre arbeidsboken som en .xlsx -fil i standardmappen (f.eks. Mine dokumenter). I stedet kan du tilpasse SaveAs med vår guide for lagring av arbeidsbøker.
Nå kan du referere til arbeidsboken med navnet:
| 1 | Arbeidsbøker ("NewWB.xlsx"). Aktiver |
Denne koden vil aktivere “NewWB.xlsx”.
Lag ny arbeidsbok og legg til ark
Etter å ha opprettet en arbeidsbok kan du redigere den. Her er bare ett eksempel for å legge til to ark i den nye arbeidsboken (forutsatt at det er ActiveWorkbook):
| 1 | ActiveWorkbook.Worksheets.Add Count: = 2 |
