Private Sub Command1_Click()
  On Error Resume Next
 
  Dim XLS As Object, WB As Object
 
  ' Excel-Session beginnen
  Set XLS = CreateObject("Excel.Application")
 
  'Fehler dabei aufgetreten?
  If XLS Is Nothing Then
    MsgBox "Microsoft Excel ist nicht installiert!", vbCritical
 
  Else
 
    'Excel-Standard-Meldungen deaktivieren
    XLS.DisplayAlerts = False
 
    'Neue Arbeitsmappe in Excel erstellen
    Set WB = XLS.Workbooks.Add
 
    'Fehler dabei aufgetreten?
    If WB Is Nothing Then
      MsgBox "Microsoft Excel konnte keine neue Arbeitsmappe erstellen!", _
        vbCritical
 
    Else
 
 
 
      ' Text in Zelle="A1" ausgeben
      '  - ".Cells(Zeile, Spalte)"
      '  - ".Worksheets(Tabellenblatt-Index)"
      WB.Worksheets(1).Cells(1, 1) = "Text1"
 
      ' Text in Zelle="A2" ausgeben
      WB.Worksheets(1).Cells(2, 1) = "Text2"
 
      'Arbeitsmappe speichern unter...
      WB.SaveAs "C:\Test.xls"
 
 
 
      ' Arbeitsmappe ohne Rückfrage zur Speicherung schließen
      WB.Close False
 
    End If ' If WB Is Nothing Then
 
    'Excel beenden
    XLS.Quit
 
  End If ' If XLS Is Nothing Then
 
  'Speicher freigeben
  Set WB = Nothing
  Set XLS = Nothing
End Sub

Viel Spass,
R@lf