Tipp 9.1 - Excel Datei erstellen

Wie kann ich Excel zum Erstellen einer Excel-Datei benutzen?

Mit dieser Funktion können Sie Excel zum Erstellen einer Excel-Datei benutzen. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Public Function ExcelCreateWorkbook( _
                sXLSFilePath As String) As Boolean
  '// -----------------------------------------------------
  '// Methode:   | Neue Excel-Datei erstellen
  '// -----------------------------------------------------
  '// Parameter: | sXLSFilePath - Pfad zur n. Excel-Datei
  '// -----------------------------------------------------
  '// Rückgabe:  | True, bei Erfolg
  '// -----------------------------------------------------
  '// Autor:     | Stefan Kulpa
  '//            | EDV Innovation & Consulting - Dormagen
  '// -----------------------------------------------------
  Dim objXLSheet As Object
 
  On Error GoTo Err_ExcelCreateWorkbook
  Set objXLSheet = CreateObject("Excel.Sheet")
  objXLSheet.SaveAs sXLSFilePath
  objXLSheet.application.[Quit]
  Set objXLSheet = Nothing
  ExcelCreateWorkbook = True
 
Exit_ExcelCreateWorkbook:
  Exit Function
 
Err_ExcelCreateWorkbook:
  ExcelCreateWorkbook = False
  Resume Exit_ExcelCreateWorkbook
 
End Function


Zurück | Inhalt | Tipp 9.2 - Word mit Dokument öffnen Weiter