Ši pamoka parodys skirtingus metodus, kaip sukurti naują darbaknygę naudojant VBA.
Sukurti naują darbaknygę
Norėdami sukurti naują darbaknygę, tiesiog naudokite Darbaknygės. Pridėti:
1 | Darbaknygės. Pridėti |
Naujai pridėta darbo knyga dabar yra „ActiveWorkbook“.
Tai galite pamatyti naudodami šį kodą:
123456 | Sub AddWB ()Darbaknygės. Pridėti„MsgBox ActiveWorkbook“. PavadinimasPabaiga Sub |
Sukurti naują darbaknygę ir priskirti objektui
Galite naudoti „ActiveWorkbook“ objektą, kad nurodytumėte naują darbaknygę. Naudodami tai galite priskirti naują darbaknygę objekto kintamajam:
1234 | Dim wb kaip darbo knygaDarbaknygės. PridėtiNustatykite wb = ActiveWorkbook |
Tačiau geriau / lengviau iš karto priskirti darbaknygę kintamajam, kai sukurta darbo knyga:
123 | Dim wb Kaip darbo knygaNustatykite wb = Darbaknygės. Pridėti |
Dabar galite nurodyti naują darbaknygę pagal jos kintamąjį.
1 | „MsgBox wb.Pavadinimas“ |
Sukurkite naują darbaknygę ir išsaugokite
Taip pat galite sukurti naują darbaknygę ir iš karto ją išsaugoti:
1 | Workbooks.Add.SaveAs Failo pavadinimas: = "NewWB" |
Tai išsaugos darbaknygę kaip .xlsx failą į numatytąjį aplanką (pvz., Mano dokumentai). Vietoj to, galite tinkinti „SaveAs“ naudodami mūsų vadovą, kaip išsaugoti darbaknyges.
Dabar galite kreiptis į darbaknygę pavadinimu:
1 | Darbaknygės („NewWB.xlsx“). Suaktyvinkite |
Šis kodas suaktyvins „NewWB.xlsx“.
Sukurkite naują darbaknygę ir pridėkite lapų
Sukūrę darbaknygę, galite ją redaguoti. Čia yra tik vienas pavyzdys, kaip į naują darbaknygę įtraukti du lapus (darant prielaidą, kad tai „ActiveWorkbook“):
1 | ActiveWorkbook.Worksheets.Add Count: = 2 |