Public Declare Function GetTickCount Lib "kernel32" () As Long
Rem Verweis nicht vergessen Microsoft Excel 8.0 Object Library
Public MeinExcel As Excel.Application
 
Public Sub Warten(ByVal Sekunden As Long)
Dim TimeOut As Long
TimeOut = (GetTickCount / 1000) + Sekunden
Do
    DoEvents
Loop Until TimeOut < (GetTickCount / 1000)
End Sub
 
Public Sub ExcelStarten()
On Error Resume Next
Set MeinExcel = GetObject(, "Excel.Application")
If MeinExcel Is Nothing Then
    Set MeinExcel = New Excel.Application
    Warten 5
End If
With MeinExcel
  .Visible = True
  .Activate
  .WindowState = xlMaximized
End With
Set MeinExcel = Nothing
End Sub
 
Public Sub ExcelBeenden()
On Error Resume Next
MeinExcel.Quit
Set MeinExcel = Nothing
End Sub