Dim excelObj As Excel.Application
        Dim excelWB As Excel.Workbook
        excelObj = CreateObject("Excel.Application")
        excelWB = excelObj.Workbooks.Open(pfad)
        Dim excelWS As Excel.Worksheet
        excelWS = excelWB.Sheets(Sheetname)
 
        ' Verarbeitung
 
        excelWB.Close(False)
        excelObj.Quit()