VBA-Maak een nieuwe werkmap (werkmappen.Toevoegen) – Automate ExcelAutomate Excel
Maak een nieuwe werkmap
om een nieuwe werkmap te maken, gebruikt u gewoon werkmappen.Toevoegen:
Workbooks.Add
De nieuw toegevoegde werkmap is nu de ActiveWorkbook.
u kunt dit zien met deze code:
Sub AddWB()Workbooks.AddMsgBox ActiveWorkbook.NameEnd Sub
nieuwe werkmap aanmaken & toewijzen aan Object
u kunt het ActiveWorkbook-object gebruiken om naar de nieuwe werkmap te verwijzen. Hiermee kunt u de nieuwe werkmap toewijzen aan een variabele:
Dim wb as WorkbookWorkbooks.AddSet wb = ActiveWorkbook
Maar, het is beter voor het toewijzen van de Werkmap naar een variabele wanneer de Werkmap wordt gemaakt:
Dim wb As WorkbookSet wb = Workbooks.Add
je kunt Nu naar de nieuwe Werkmap door de naam van de variabele
MsgBox wb.Name
Maak een Nieuwe Werkmap & Opslaan
U kunt ook maak een nieuwe Werkmap en sla het:
Workbooks.Add.SaveAs Filename:="NewWB"
Dit zal de Werkmap opslaan als .xlsx-bestand naar uw standaardmap (bijv. Mijn Documenten). In plaats daarvan kunt u de SaveAs aanpassen met onze gids voor het opslaan van werkmappen.
nu kunt u naar de werkmap verwijzen met zijn naam:
Workbooks("NewWB.xlsx").Activate
deze code activeert “NewWB.xlsx”.
nieuwe werkmap aanmaken & werkbladen toevoegen
na het maken van een werkmap kunt u deze bewerken. Hier is slechts één voorbeeld om twee werkbladen toe te voegen aan de nieuwe werkmap (aangenomen dat het de ActiveWorkbook is):
ActiveWorkbook.Worksheets.Add Count:=2
Leave a Reply