vytvořit nový sešit

Chcete-li vytvořit nový sešit jednoduše použijte sešity.Přidat:

Workbooks.Add

nově přidaný sešit je nyní ActiveWorkbook.

můžete vidět to pomocí tohoto kódu:

Sub AddWB()Workbooks.AddMsgBox ActiveWorkbook.NameEnd Sub

Vytvořit Nový Sešit & Přiřadit Objekt

můžete použít ActiveWorkbook objekt odkazovat na nový Sešit. Pomocí tohoto můžete přiřadit nový sešit proměnné:

Dim wb as WorkbookWorkbooks.AddSet wb = ActiveWorkbook

Ale, to je lepší, aby přiřadit Sešit do proměnné, když je Sešit vytvořen:

Dim wb As WorkbookSet wb = Workbooks.Add

Nyní můžete odkaz na nový Sešit je název proměnné

MsgBox wb.Name

Vytvořit Nový Sešit & Uložit

Můžete také vytvořit nový Sešit a okamžitě uložit:

Workbooks.Add.SaveAs Filename:="NewWB"

Tento Sešit uložit jako .xlsx soubor do 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 odkazovat na sešit podle jeho názvu:

Workbooks("NewWB.xlsx").Activate

tento kód aktivuje “ NewWB.xlsx“.

vytvořit nový sešit & přidat 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):

ActiveWorkbook.Worksheets.Add Count:=2