' Excel öffnen
        Dim xlsApp As Object
        Dim xlsWorkbook As Object
        Dim xlsSheet As Object
        Dim xlsCell As Object
        Try
            xlsApp = CreateObject("Excel.Application")
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler - Excel kann nicht gestartet" & _
              "werden", _
                        MessageBoxButtons.OK, _
                        MessageBoxIcon.Exclamation)
        End Try
 
        ' nachschauen, ob die Summary  Datei existiert
        If System.IO.File.Exists(AktionNameSummaryFax) Then
            MsgBox("Die Datei: " + AktionNameSummaryFax + " existiert.", _
              MsgBoxStyle.Exclamation)
        Else
            ' MsgBox("Die Datei: " + AktionNameSummaryFax + " existiert" & _
              "nicht.", MsgBoxStyle.Exclamation)
            xlsWorkbook = xlsApp.workbooks.add() '<=========
        End If