See õpetus näitab erinevaid meetodeid uue töövihiku loomiseks VBA abil.
Loo uus töövihik
Uue töövihiku loomiseks kasutage lihtsalt Töövihikud. Lisa:
1 | Töövihikud. Lisa |
Äsja lisatud töövihik on nüüd ActiveWorkbook.
Seda näete selle koodi abil:
123456 | Sub AddWB ()Töövihikud. LisaMsgBox ActiveWorkbook.NameEnd Sub |
Loo uus töövihik ja määra objektile
Saate kasutada ActiveWorkbooki objekti uuele töövihikule viitamiseks. Seda kasutades saate uue töövihiku määrata objekti muutujale:
1234 | Dim wb töövihikunaTöövihikud. LisaMäära wb = ActiveWorkbook |
Kuid töövihiku loomisel on parem / lihtsam töövihik kohe muutujale määrata:
123 | Dim wb TöövihikunaMäära wb = Töövihikud. Lisa |
Nüüd saate uuele töövihikule viidata selle muutuja nime järgi.
1 | MsgBox wb. Nimi |
Loo uus töövihik ja salvesta
Samuti saate luua uue töövihiku ja selle kohe salvestada.
1 | Workbooks.Add.SaveAs Failinimi: = "NewWB" |
See salvestab töövihiku .xlsx -failina teie vaikekausta (nt Minu dokumendid). Selle asemel saate SaveA -sid kohandada meie töövihikute salvestamise juhendiga.
Nüüd saate töövihikule viidata selle nime järgi:
1 | Töövihikud ("NewWB.xlsx"). Aktiveerige |
See kood aktiveerib "NewWB.xlsx".
Loo uus töövihik ja lisa lehti
Pärast töövihiku loomist saate seda muuta. Siin on vaid üks näide kahe lehe lisamiseks uuele töövihikule (eeldusel, et see on ActiveWorkbook):
1 | ActiveWorkbook.Worksheets.Add Count: = 2 |