Ten samouczek zademonstruje różne metody tworzenia nowego skoroszytu za pomocą VBA.
Utwórz nowy skoroszyt
Aby utworzyć nowy skoroszyt, po prostu użyj Skoroszyty.Dodaj:
1 | Skoroszyty.Dodaj |
Nowo dodany skoroszyt to teraz Aktywny zeszyt.
Możesz to zobaczyć za pomocą tego kodu:
123456 | Sub DodajWB()Skoroszyty.DodajMsgBox ActiveWorkbook.NameNapis końcowy |
Utwórz nowy skoroszyt i przypisz do obiektu
Możesz użyć obiektu ActiveWorkbook, aby odwołać się do nowego skoroszytu. Korzystając z tego, możesz przypisać nowy skoroszyt do zmiennej obiektu:
1234 | Dim wb jako skoroszytSkoroszyty.DodajUstaw wb = Aktywny skoroszyt |
Ale lepiej / łatwiej jest natychmiast przypisać skoroszyt do zmiennej podczas tworzenia skoroszytu:
123 | Dim wb jako skoroszytUstaw wb = Skoroszyty.Dodaj |
Teraz możesz odwoływać się do nowego skoroszytu według jego nazwy zmiennej.
1 | MsgBox wb.Name |
Utwórz nowy skoroszyt i zapisz
Możesz także utworzyć nowy skoroszyt i natychmiast go zapisać:
1 | Workbooks.Add.SaveAs Nazwa pliku:="NowyWB" |
Spowoduje to zapisanie skoroszytu jako pliku .xlsx w domyślnym folderze (np. Moje dokumenty). Zamiast tego możesz dostosować SaveAs za pomocą naszego przewodnika po zapisaniu skoroszytów.
Teraz możesz odwoływać się do skoroszytu po jego nazwie:
1 | Skoroszyty("NewWB.xlsx").Aktywuj |
Ten kod aktywuje „NewWB.xlsx”.
Utwórz nowy skoroszyt i dodaj arkusze
Po utworzeniu skoroszytu możesz go edytować. Oto tylko jeden przykład, aby dodać dwa arkusze do nowego skoroszytu (zakładając, że jest to ActiveWorkbook):
1 | ActiveWorkbook.Worksheets.Add Count:=2 |