popis:

někdy můžeme chtít otevřít nebo vytvořit nový sešit pomocí VBA.Nově vytvořený sešit můžete nastavit na objekt, takže je snadné odkazovat na váš sešit a provádět další úkoly.

řešení:

následující makra umožní otevřít nebo vytvořit nový sešit pomocí metody Add.

vytvořit nový sešit v Excelu VBA-příklady případů:

• Vytvoření nového sešitu
• Vytvořit Objekt pro nově vytvořený sešit

Vytvořit nový sešit

můžete použít následující kód k vytvoření nového Sešitu a uložit na disk C pomocí Add metodu.

Kód:

Sub AddNewWorkbook1()'Adding New WorkbookWorkbooks.Add'Saving the WorkbookActiveWorkbook.SaveAs "C:\WorkbookName.xls"'ORActiveWorkbook.SaveAs Filename:="C:\WorkbookName1.xls"End Sub

Vysvětlení:

1. Sešity.Přidat metoda přidá nový sešit
2. ActiveWorkbook.Metoda SaveAs uloží aktivní sešit na konkrétní místo se zadaným názvem souboru

výstup:

měli byste vidět nově otevřený sešit spolu s existujícím sešit.

Pokyny:

1. Otevřete sešit aplikace excel
2. Stiskněte klávesu Alt+F11 otevřete Editor jazyka VBA
3. Vložit nový modul v nabídce Vložit
4. Zkopírovat výše uvedený kód a Vložit do okna kódu
5. Stiskněte klávesu F5 vidět výstup
6. měli Byste vidět nově otevřeném sešitu, jak je uvedeno výše
7. Uložte soubor jako makro povoleno sešitu

Vytvořit objekt pro nově vytvořený sešit

můžete nastavit nově vytvořený sešit k objektu, tak, že je snadno naleznete v sešitu dělat další úkoly.

kód:

sub AddNewWorkbook2()Dim wkb as Workbook'Adding New WorkbookSet wkb = Workbooks.Add'Saving the Workbookwkb.SaveAs "C:\WorkbookName.xls"'ORwkb.SaveAs Filename:="C:\WorkbookName1.xls"</span></code>End Sub

výstup:

měli byste vidět nově otevřený sešit spolu s existujícím sešit.

Pokyny:

1. Otevřete sešit aplikace excel
2. Stiskněte klávesu Alt+F11 otevřete Editor jazyka VBA
3. Vložit nový modul v nabídce Vložit
4. Zkopírovat výše uvedený kód a Vložit do okna kódu
5. Stiskněte klávesu F5 vidět výstup
6. měli Byste vidět nově otevřeném sešitu, jak je uvedeno výše
7. Uložte soubor jako makro povoleno sešitu