Neuanlegung einer Excelmappe

Problembeschreibung

Häufig wird das Anlegen einer neuen Excel-Mappen mit einer bestimmten Anzahl von Blättern benötigt. Zusätzlich soll registriert werden, dass die Mappe von einem Programm erzeugt wurde.

Lösung

Mit der Procedure erzeuge_Workbook können Sie die Anzahl der gewünschten Blätter und den Autor der Mappe übergeben.


      Sub erzeuge_Workbook(blattanzahl As     Long, author As String)

        Dim save_value As Long

        '

        save_value = Application.SheetsInNewWorkbook

        '

        Application.SheetsInNewWorkbook = blattanzahl

        Workbooks.Add

        ActiveWorkbook.author = author

        '

        Application.SheetsInNewWorkbook = save_value

      End Sub

Hinweis

Der Procedure-Aufruf


        call erzeuge_Workbook(7 ,"Generiert von     esslog")

erzeugt eine Mappe mit 7 Einzelblättern und folgenden Hinweis in der Datei-Eigenschaft.