Sub excel_test2()
        Dim XLSApp As New Excel.Application
        Dim XLSWS As New Excel.Worksheet
        Dim path As String = "D:\Kalkulationsblatt.xlsx"
 
        XLSApp.Workbooks.Open(path) : path = Nothing
        XLSApp.Visible = True
 
        'Daten nach Excel schreiben
        XLSWS = XLSApp.Sheets(1)
        With XLSWS
            .Select()
            .Visible = True
            .Cells(4, 3).value = Variable1
            .Cells(6, 3).value = Variable2
            .Cells(8, 3).value = Variable3
. 
.
.
        End With
        XLSWS = Nothing
 
        'Excel Speichern und beenden       
        With XLSApp
            .ActiveWorkbook.Save()
            .DisplayAlerts = False
            .Quit()
        End With
 
        'Prozess beenden
        System.Runtime.InteropServices.Marshal.ReleaseComObject(XLSWS)
        XLSWS = Nothing
 
        System.Runtime.InteropServices.Marshal.ReleaseComObject(XLSApp)
        XLSApp = Nothing
 
        GC.Collect()
        GC.WaitForPendingFinalizers()
    End Sub