Set ExlApp = CreateObject("Excel.Application")
    With ExlApp
        .Visible = False                                
        .Workbooks.Open FileName:=txt_File, updatelinks:=False, readonly:=False
 
        ' Formatierung der Zeilen und Spalten. Erst alles löschen, dann 
        ' importieren.
        .Range("A:I").Select
        .Selection.ClearFormats
        .Range("A:C").Select
        .Selection.NumberFormat = "@"
        .Range("D:I").Select
        .Selection.NumberFormat = "0"
        .Range("A1:I1").Select
        .Selection.NumberFormat = "@"
 
        ' Schreibe Spalten-Bezeichnung in erste Zeile, damit Zuordnung zw. 
        ' Access und Excel stattfinden kann
        .Cells(1, 1).Value = "Text1"
        ' [...]
        .Cells(1, 9).Value = "Gesamt"
        .ActiveWorkbook.Save
        ExlApp.Application.Quit
    End With
    Set ExlApp = Nothing
 
    'ExlApp.ActiveWindow.Close SaveChanges:=True
 
    Set ExlApp = CreateObject("Excel.Application")
    With ExlApp
        .Visible = False                                 
        .Workbooks.Open FileName:=txt_File, updatelinks:=True, readonly:=False
    End With
 
    ' Importieren der Daten aus Excel in Access
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Tabelle1", _
      txt_File, True
 
    ExlApp.ActiveWorkbook.Save
    ExlApp.ActiveWindow.Close SaveChanges:=True
    ExlApp.Application.Quit
    Set ExlApp = Nothing