Opprett Ny Arbeidsbok

for å opprette en ny arbeidsbok, bruk Bare Arbeidsbøker.Legg til:

Workbooks.Add

Den nylig lagt Arbeidsboken er Nå ActiveWorkbook.

Du kan se dette ved hjelp av denne koden:

Sub AddWB()Workbooks.AddMsgBox ActiveWorkbook.NameEnd Sub

Opprett Ny Arbeidsbok & Tilordne Til Objekt

Du kan bruke ActiveWorkbook-objektet til å referere til den nye Arbeidsboken. Ved hjelp av dette kan du tilordne den nye Arbeidsboken til en variabel:

Dim wb as WorkbookWorkbooks.AddSet wb = ActiveWorkbook

Men Det er bedre å tilordne Arbeidsboken til en variabel når Arbeidsboken er opprettet:

Dim wb As WorkbookSet wb = Workbooks.Add

nå kan du referere til den nye Arbeidsboken med variabelnavnet

MsgBox wb.Name

opprett ny arbeidsbok & lagre

du kan også opprette en ny arbeidsbok og lagre den umiddelbart:

Workbooks.Add.SaveAs Filename:="NewWB"

dette vil lagre arbeidsboken som en .xlsx-fil til standardmappen din (ex. Mine Dokumenter). I stedet kan Du tilpasse SaveAs med vår guide til lagring Av Arbeidsbøker.

nå kan Du referere Til Arbeidsboken med navnet:

Workbooks("NewWB.xlsx").Activate

denne koden Vil Aktivere » NewWB.xlsx».

Opprett Ny Arbeidsbok & Legg Til Ark

etter at Du har 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):

ActiveWorkbook.Worksheets.Add Count:=2