Articles

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