Dim oExcel As Object = Nothing
        Dim oBook As Object = Nothing
        Dim oSheet As Object = Nothing
        Try
            oExcel = GetObject(, "Excel.Application")
        Catch ex As Exception
            Try
                oExcel = CreateObject("Excel.Application")
            Catch ex1 As Exception
                MsgBox("Applikation nicht installiert!", _
                    MsgBoxStyle.Critical, "Error")
            End Try
        End Try
        oExcel.Visible = True ' zu Testzwecken
        oBook = oExcel.Workbooks.Open("F:\Protokoll.xlsx")
        oSheet = oBook.Worksheets("Seite 1")
 
        'tag/Zeit
        oSheet.Range("C2").Value = txtC2.Text
        oSheet.Range("K2").Value = txtZeit.Text
 
        'Hier kommen jetzt ca. 30 weitere "Übertragungen"
 
        oSheet = oBook.Worksheets("Seite 2")
        
        oSheet.Range("D1").Value = txtD1.Text
        oSheet.Range("D3").Value = txtD3.Text
 
        'Und hier nochmal etwa 15 "Übertragungen"
 
Try
            oBook.SaveAs("F:\protokollTest.xlsx") 'Der Dateiname wurde lediglich für debugzwecke gewählt und wird noch mit einer Routine versehen
        Catch
            MsgBox(Prompt:="Datei bereits Vorhanden")
        End Try
 
        chkSpeichern.Checked = True
 
        If chkAnzeigen.Checked = False Then
            oBook.Close(True)
            oExcel.Quit()
        End If
        oSheet = Nothing
        oBook = Nothing
        oExcel = Nothing
        GC.Collect()
        GC.WaitForFullGCComplete()

    Sub Main()
        ' Create an Outlook application.
        Dim oApp As Outlook._Application
        oApp = New Outlook.Application()
 
        ' Create a New MailItem.
        Dim oMsg As Outlook._MailItem
        oMsg = oApp.CreateItem(Outlook.OlItemType.olMailItem)
        oMsg.Subject = "Send Attachment Using OOM In Visual Basic .NET"
        oMsg.Body = "Hello World" & vbCr & vbCr
 
        ' TODO: Replace With a valid e-mail address.
        oMsg.To = " user@example.com"
 
        ' Add an attachment
        ' TODO: Replace With a valid attachment path.
        Dim sSource As String = "C:\Temp\Hello.txt"
        ' TODO: Replace With attachment name
        Dim sDisplayName As String = "Hello.txt"
 
        Dim sBodyLen As String = oMsg.Body.Length
        Dim oAttachs As Outlook.Attachments = oMsg.Attachments
        Dim oAttach As Outlook.Attachment
        oAttach = oAttachs.Add(sSource, , sBodyLen + 1, sDisplayName)
 
        ' Send
        oMsg.Send()
 
        ' Clean up
        oApp = Nothing
        oMsg = Nothing
        oAttach = Nothing
        oAttachs = Nothing
    End Sub

        ' Excel-Tabelle drucken
        Dim PfadZuExcel As String
        Dim x As Long
 
        PfadZuExcel = AnwendungFuerDatei(sFilename)
        With Text1
            x = Shell(PfadZuExcel, vbHide)
  On Local Error Resume Next
            .LinkMode = 0
            .LinkTopic = "Excel|system"
            .LinkMode = 2
            .LinkExecute("[Open(""" + sFilename + _
              """)][Print()][quit()]")
        End With

        'Dim wApp As New Excel.Application
        'With wApp
        '    .Visible = True
        '    .Documents.Open(GewählteEXEDatei)
        '    .ActiveDocument.PrintOut()
        '    .ActiveDocument.Close(False)
        '    .Quit()
        'End With