Private oExl As New Excel.Application
    Private Sub OpenExlWS(ByVal sWSName As String, ByVal sTabName As String)
        Dim A As Object
        Dim Zeile As Long, Spalte As Integer
        Try
            oExl.Workbooks.Open(sWSName)
            With oExl
                .ActiveWorkbook.Sheets(sTabName).Select()
                A = .ActiveSheet.Cells(Zeile, Spalte).Value
                .ActiveSheet.Cells(Zeile, Spalte).Value = "Test"
                .ActiveWorkbook.Close(SaveChanges:=True)
            End With
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            oExl.Quit()
            oExl = Nothing
        End Try
    End Sub