将Excel文件数据导入Access数据库VBA

我对Access&VBA完全陌生。我需要将excel文件数据导入access表。 我试着用下面的代码来做

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "TableName", importFilePath, True

在我的输入文件中有一些格式，我需要从第8行获取数据

所以，我被困在这一点上。如何从第8列读取数据。 我还指定了范围，但随后它生成了错误。

---

有人能帮上忙吗？

当然，一种方法是创建文件的临时副本，在Excel中打开该副本，删除前7行，保存它，然后导入该副本：

Sub-ExcelImportTest（）
将fso设置为对象的FileSystemObject
Dim f作为对象的文件
将strTempPath设置为字符串
Dim objExcel作为对象的Excel.Application
将objWorkbook作为对象的Excel.Workbook进行调整
常量临时文件夹=2
设置fso=CreateObject（“Scripting.FileSystemObject”）'新的FileSystemObject
strTempPath=fso.GetSpecialFolder（临时文件夹）&“\”&fso.GetTempName&“\”
fso.CreateFolder strTempPath
设置f=fso.GetFile（“C:\Users\Gord\Desktop\toImport.xls”）
fso.copy文件f.Path、strtempath和f.Name
设置objExcel=CreateObject（“Excel.Application”）'新建Excel.Application
设置objWorkbook=objExcel.Workbooks.Open（strTempPath&f.Name）
objWorkbook.ActiveSheet.Rows（“1:7”）.EntireRow.Select
objExcel.Selection.Delete
objWorkbook.ActiveSheet.Range（“A1”）。选择
objWorkbook.Save
设置objWorkbook=Nothing
退出
设置objExcel=Nothing
DoCmd.transfer电子表格导入，acSpreadsheetTypeExcel9，“ExcelData”，strTempPath&f.名称，True
fso.delete文件strtempath和f.Name
fso.DeleteFolder Left（strTempPath，Len（strTempPath）-1）
设置f=无
设置fso=无
端接头