Crea nuova cartella di lavoro

Per creare una nuova cartella di lavoro è sufficiente utilizzare Cartelle di lavoro.Aggiungi:

Workbooks.Add

La cartella di lavoro appena aggiunta è ora ActiveWorkbook.

Puoi vederlo usando questo codice:

Sub AddWB()Workbooks.AddMsgBox ActiveWorkbook.NameEnd Sub

Crea nuova cartella di lavoro& Assegna all’oggetto

Puoi usare l’oggetto ActiveWorkbook per fare riferimento alla nuova cartella di lavoro. In questo modo, è possibile assegnare la nuova cartella di lavoro a una variabile:

Dim wb as WorkbookWorkbooks.AddSet wb = ActiveWorkbook

Ma, è meglio assegnare la Cartella di lavoro di una variabile quando la Cartella di lavoro è stato creato:

Dim wb As WorkbookSet wb = Workbooks.Add

Ora si può fare riferimento alla nuova Cartella di lavoro è variabile di nome

MsgBox wb.Name

Crea Nuova Cartella di lavoro & Salva

È anche possibile creare una nuova Cartella di lavoro e immediatamente salvare:

Workbooks.Add.SaveAs Filename:="NewWB"

in Questo modo, salvare la Cartella di lavoro come .file xlsx nella cartella predefinita (es. I miei documenti). Invece, è possibile personalizzare il SaveAs con la nostra guida per salvare le cartelle di lavoro.

Ora puoi fare riferimento alla cartella di lavoro con il suo nome:

Workbooks("NewWB.xlsx").Activate

Questo codice attiverà “NewWB.xlsx”.

Crea nuova cartella di lavoro & Aggiungi fogli

Dopo aver creato una cartella di lavoro puoi modificarla. Ecco solo un esempio per aggiungere due fogli alla nuova cartella di lavoro (supponendo che sia ActiveWorkbook):

ActiveWorkbook.Worksheets.Add Count:=2