Sub Excel_sheet_auslesen(ByVal Daten() As String)
        Dim ExOb As Microsoft.Office.Interop.Excel.Application
        Dim ExWb As Microsoft.Office.Interop.Excel.Workbook
        Dim ExWs As Microsoft.Office.Interop.Excel.Worksheet
        Dim a As String
        Dim i As Integer
 
        ExOb = CreateObject("Excel.Application")
        ExOb.Visible = False
        ExWb = ExOb.Workbooks.Open(pfad)
        ExWs = ExWb.Sheets(1)
 
        Try
            For i = 1 To 100
                a = CStr(ExWs.Range("A1:B100").Cells(i, 1))
            Next
            ExOb.Visible = True
            ExWb.Close(SaveChanges:=False)
            ExOb.Quit()
        Catch
            ExWb.Close(SaveChanges:=False)
            ExOb.Quit()
        End Try
    End Sub