Skapa ny arbetsbok

för att skapa en ny arbetsbok använder du bara arbetsböcker.Lägg till:

Workbooks.Add

den nyligen tillagda arbetsboken är nu ActiveWorkbook.

Du kan se detta med den här koden:

Sub AddWB()Workbooks.AddMsgBox ActiveWorkbook.NameEnd Sub

Skapa ny arbetsbok& tilldela objekt

Du kan använda activeworkbook-objektet för att hänvisa till den nya arbetsboken. Med hjälp av detta kan du tilldela den nya arbetsboken till en variabel:

Dim wb as WorkbookWorkbooks.AddSet wb = ActiveWorkbook

men det är bättre att tilldela arbetsboken till en variabel när arbetsboken skapas:

Dim wb As WorkbookSet wb = Workbooks.Add

Nu kan du referera till den nya arbetsboken med variabelnamnet

MsgBox wb.Name

skapa ny arbetsbok & spara

Du kan också skapa en ny arbetsbok och omedelbart spara den:

Workbooks.Add.SaveAs Filename:="NewWB"

detta sparar arbetsboken som en .xlsx-fil till din standardmapp (ex. Mina Dokument). Istället kan du anpassa SaveAs med vår guide för att spara arbetsböcker.

Nu kan du hänvisa till arbetsboken med namnet:

Workbooks("NewWB.xlsx").Activate

den här koden aktiverar ”NewWB.xlsx”.

Skapa ny arbetsbok & Lägg till Ark

När du har skapat en arbetsbok kan du redigera den. Här är bara ett exempel för att lägga till två ark i den nya arbetsboken (förutsatt att det är ActiveWorkbook):

ActiveWorkbook.Worksheets.Add Count:=2