Tento tutoriál předvede různé metody k vytvoření nového sešitu pomocí jazyka VBA.
Vytvořit nový sešit
Pro vytvoření nového sešitu jednoduše použijte Sešity. Přidat:
| 1 | Sešity. Přidat |
Nově přidaný sešit je nyní Aktivní pracovní kniha.
Můžete to vidět pomocí tohoto kódu:
| 123456 | Sub AddWB ()Sešity. PřidatMsgBox ActiveWorkbook.NameEnd Sub |
Vytvořte nový sešit a přiřaďte k objektu
Objekt ActiveWorkbook můžete použít k odkazu na nový sešit. Pomocí toho můžete nový sešit přiřadit proměnné objektu:
| 1234 | Dim wb jako sešitSešity. PřidatNastavit wb = ActiveWorkbook |
Je však lepší / snazší přiřadit sešit okamžitě proměnné při vytváření sešitu:
| 123 | Dim wb jako sešitNastavit wb = Workbooks.Add |
Nyní můžete na nový sešit odkazovat podle jeho názvu proměnné.
| 1 | MsgBox wb. Jméno |
Vytvořit nový sešit a uložit
Můžete také vytvořit nový sešit a okamžitě jej uložit:
| 1 | Workbooks.Add.SaveAs Název souboru: = "NewWB" |
Tím sešit uložíte jako soubor .xlsx do vaší výchozí složky (např. Moje dokumenty). Místo toho můžete SaveAs přizpůsobit pomocí našeho průvodce ukládáním sešitů.
Nyní můžete na sešit odkazovat jeho jménem:
| 1 | Sešity ("NewWB.xlsx"). Aktivujte |
Tento kód aktivuje „NewWB.xlsx“.
Vytvořte nový sešit a přidejte listy
Po vytvoření sešitu jej můžete upravit. Zde je jen jeden příklad přidání dvou listů do nového sešitu (za předpokladu, že je to ActiveWorkbook):
| 1 | ActiveWorkbook.Worksheets.Add Count: = 2 |
