Erstellen Sie neue Arbeitsmappe mit VBA in Microsoft Excel
Es kann Fälle geben, in denen Sie eine neue Arbeitsmappe mit einer bestimmten Anzahl von Blättern über einen VBA-Code oder ein Makro erstellen müssen. Hier ist ein einfaches Makro, mit dem Sie eine neue Arbeitsmappe erstellen> öffnen und dann mit maximal 255 neuen Arbeitsblättern speichern können. In diesem Beispielmakro erstellen wir eine neue Arbeitsmappe mit 10 Arbeitsblättern.
Option Explicit _Sub create_workbook ()
Dim wb As Workbook Set wb = NewWorkbook (10)
End Sub_ Function NewWorkbook (wsCount As Integer) As Workbook Dim OriginalWorksheetCount As Long Set NewWorkbook = Nothing Wenn wsCount <1 oder wsCount> 255, dann beenden Sie die Funktion OriginalWorksheetCount = Application.SheetsInNewWorkbook Application.SheetsInNewWorkbook = wsCount SetWork = = OriginalWorksheetCount End Function Code Erläuterung:
Zuerst haben wir eine Prozedur namens „create_workbook„. In dieser Prozedur haben wir eine Variable wb als Arbeitsmappe und rufen über diese Variable die Funktion NewWorkbook auf. Daher wird die neue Funktion aufgerufen und die Anzahl wird auf 10 gesetzt. Dies ist die Anzahl der Arbeitsblätter in der neuen Arbeitsmappe.
Dann gehen wir zu der aufgerufenen Funktion, die _Function NewWorkbook (wsCount as Integer) als Workbook ist. Der Wert für wsCount, der 10 ist, wird vom Sub create_workbook übergeben.
Set NewWorkbook = Nothing
Zuerst wird das NewWorkbook auf nichts gesetzt, damit wir jeden anderen Wert löschen können, der ihm in früheren Codes zugewiesen werden könnte.
Wenn wsCount <1 oder wsCount> 255, dann beenden Sie Function
Als nächstes müssen wir prüfen, ob der vom Sub übergebene Wert kleiner als 1 oder größer als 255 ist. Wenn die Antwort auf eine dieser Prüfungen Ja lautet, beenden Sie die Funktion.
OriginalWorksheetCount = Application.SheetsInNewWorkbook
Auf der Seite mit den Excel-Optionen gibt es einen Parameter, in dem die Anzahl der Blätter festgelegt wird, die in eine neue Arbeitsmappe aufgenommen werden sollen. Wir übergeben diesen Wert an die Variable OriginalWorksheetCount . * Die Variable enthält die Standardanzahl von Blättern, die bereits in den Excel-Optionen voreingestellt war.
Application.SheetsInNewWorkbook = wsCount
Dann weisen wir den Wert von wsCount, der vom Sub übergeben wird, dem Parameter in den Excel-Optionen für die Anzahl der Blätter zu, die in eine neue Arbeitsmappe aufgenommen werden sollen. Dieser Parameter ändert sich nun vom alten Wert auf 10. Der alte Wert kann 1 oder 3 oder eine andere vom Benutzer festgelegte Zahl sein.
Set NewWorkbook = Workbooks.Add
Wir erstellen eine neue Arbeitsmappe, die NewWorkbook zugewiesen ist. Diese neue Arbeitsmappe wird mit der in wsCount angegebenen Anzahl von Blättern erstellt. Sie sehen eine neue Arbeitsmappe mit 10 Blättern mit den Titeln Sheet1 bis Sheet10. Auf dem Bild unten sehen Sie die neue Datei Book3, die erstellt wurde.
Das Bild unten zeigt Ihnen die Anzahl der Blätter, die in der neuen Arbeitsmappe erstellt wurden.
Außerdem wird die Nummer 10 im Parameter Application.SheetsInNewWorkbook in den Excel-Optionen angezeigt (siehe Abbildung unten) –
Application.SheetsInNewWorkbook = OriginalWorksheetCount TheApplication.SheetsInNewWorkbook wird auf seine ursprüngliche Nummer zurückgesetzt, die vor dem Festlegen des wsCount vorhanden war. Wenn also die ursprüngliche Nummer 1 oder 3 war, kehrt dieser Parameter jetzt zu dieser Nummer zurück.
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie Ihren Freunden auf Facebook mit. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden gerne von Ihnen hören, uns mitteilen, wie wir unsere Arbeit verbessern, ergänzen oder innovieren und für Sie verbessern können. Schreiben Sie uns unter