Skapa en ny Excel -arbetsbok med namngivna kalkylblad med hjälp av ett makro

Använd ett VBA -makro för att skapa en ny arbetsbok som innehåller exakt så många kalkylblad som du behöver

I många makron ska nya arbetsböcker skapas som till exempel fylls med visst innehåll. En viktig uppgif.webpt här är att skapa en ny Excel -arbetsbok som innehåller exakt det antal kalkylblad du vill ha.

Följande makro gör det här jobbet. Den skapar en ny arbetsbok som innehåller 31 kalkylblad. Dessa kalkylblad är numrerade från 1 till 31. Här är lämpliga VBA -kommandon:

Sub FuegeTabellenEin ()
Dim nummer Som heltal
Dim i As Integer
Dim Mappe som arbetsbok
Number = Application.SheetsInNewWorkbook
Application.SheetsInNewWorkbook = 31
Ange mapp = Workbooks.Add
För i = 1 Till Mappe.Worksheets.Count
Folder.Worksheets (i) .Name = i
Nästa i
Application.SheetsInNewWorkbook = nummer
Avsluta Sub

När den startar visar Excel en ny arbetsbok som innehåller 31 kalkylblad. Följande bild visar hur detta ser ut i bladregistret:

I makrot anger du antalet kalkylblad du vill använda med siffran 31. Ändra detta nummer om du vill ha färre eller fler kalkylblad i en arbetsbok.

För att gå in i makrot, tryck på ALT F11 i Excel för att öppna VBA -redigeraren. Använd kommandot INSERT - MODULE för att infoga ett tomt modulark. För att starta makrot direkt från Excel, använd tangentkombinationen ALT F8.