Dim objExcel As Excel.Application
        Dim xlsDatei As Excel.Workbook
        Dim xlsTabelle As Excel.Worksheet
        Dim strImportDatei As String
 
        Set objExcel = New Excel.Application
 
        'Excel sichtbar machen
        objExcel.Visible = True
        objExcel.ScreenUpdating = True
 
        strImportDatei = Me.<Feldname>
 
        Set xlsDatei = objExcel.Workbooks.Open(strImportDatei)
        Set xlsTabelle = xlsDatei.Worksheets("Tabellenname")
 
        Do Until IsEmpty(objExcel.ActiveCell)
        If objExcel.ActiveCell = objExcel.ActiveCell.Offset(1, 0) Then
 
        'Datei speichern
        xlsDatei.Save
        xlsDatei.Close
       objExcel.Quit
 
       'Die Objektvariablen leeren...
       Set xlsTabelle = Nothing
       Set xlsDatei = Nothing
       Set objExcel = Nothing