Private Sub cmb_Click() 'без подключения библиотеки EXCEL
Dim objExcel As Object, wb As Object, ws As Object
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible =False 
Set wb = objExcel.Workbooks.Open("D:\F.xls")
Set ws = wb.ActiveSheet 
'действия в Ёкселе(в данном случае изменения шрифта),у Вас будет подготовка к импорту
ws.Cells.Font.Name = "arial" 
ws.Cells.Font.Size = 10
ws.Cells.Font.Bold = False
DoCmd.TransferSpreadsheet acImport, 8, "tbl", "D:\F.xls" 'если таблица существует данные добавятся,если таблицы нет-она создается
End Sub

Private Sub cmb_Click() 'подключить библиотеку EXCEL
Dim xlApp As Excel.Application, wb As Workbook, ws As Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set wb = xlApp.Workbooks.Open("D:\F.xls")
Set ws = wb.ActiveSheet
'подготовка файла EXCEL
DoCmd.TransferSpreadsheet acImport, 8, "tbl", "D:\F.xls"
End Sub