Rem Verweis nicht vergessen Microsoft Excel 8.0 Object Library
Public Declare Function GetTickCount Lib "kernel32" () As Long
 
Public Sub Warten(ByVal Sekunden As Long)
Dim TimeOut As Long
TimeOut = (GetTickCount / 1000) + Sekunden
Do
    DoEvents
Loop Until TimeOut < (GetTickCount / 1000)
End Sub
 
Private Sub Command2_Click()
Dim MeinExcel As Excel.Application
On Error Resume Next
Set MeinExcel = GetObject(, "Excel.Application")
If MeinExcel Is Nothing Then
    Set MeinExcel = New Excel.Application
    Warten 3
End If
With MeinExcel
    .Visible = True
    .Activate
    .WindowState = xlMaximized
    Rem Hier kommen Deine Anweisungen an Excel
 
    Rem z. B. Neue Excel-Datei erzeugen
    .Workbooks.Add
    Rem z. B. in eine Zelle schreiben
    .Range("A1").Value = 123
    Rem z. B. Datei schließen
    .ActiveWorkbook.Close False
End With
Set MeinExcel = Nothing
End Sub