Denna handledning kommer att visa olika metoder för att skapa en ny arbetsbok med VBA.
Skapa ny arbetsbok
För att skapa en ny arbetsbok helt enkelt använda Arbetsböcker.Lägg till:
1 | Arbetsböcker.Lägg till |
Den nyligen tillagda arbetsboken är nu ActiveWorkbook.
Du kan se detta med den här koden:
123456 | Sub AddWB ()Arbetsböcker.Lägg tillMsgBox ActiveWorkbook.NameAvsluta Sub |
Skapa ny arbetsbok och tilldela objekt
Du kan använda ActiveWorkbook -objektet för att hänvisa till den nya arbetsboken. Med detta kan du tilldela den nya arbetsboken till en objektvariabel:
1234 | Dim wb som arbetsbokArbetsböcker.Lägg tillAnge wb = ActiveWorkbook |
Men det är bättre / enklare att tilldela arbetsboken omedelbart till en variabel när arbetsboken skapas:
123 | Dim wb Som arbetsbokAnge wb = Workbooks.Add |
Nu kan du referera till den nya arbetsboken med dess variabelnamn.
1 | MsgBox wb.Name |
Skapa ny arbetsbok och spara
Du kan också skapa en ny arbetsbok och spara den direkt:
1 | Workbooks.Add.SaveAs Filnamn: = "NewWB" |
Detta sparar arbetsboken som en .xlsx -fil i din standardmapp (t.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 dess namn:
1 | Arbetsböcker ("NewWB.xlsx"). Aktivera |
Denna kod aktiverar “NewWB.xlsx”.
Skapa ny arbetsbok och 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å blad i den nya arbetsboken (förutsatt att det är ActiveWorkbook):
1 | ActiveWorkbook.Worksheets.Add Count: = 2 |