Office2019中DoCmd.TransferSpreadsheet导入Excel到Access异常求助

问题现象 #

使用Office 2019的Access VBA代码DoCmd.TransferSpreadsheet导入Excel数据时，出现以下异常：

• 原Excel表的ID列丢失
• 导入后多出一个无来源的F10列
• 手动导入可正常完成，但批量导入需自动化方案

核心原因 #

1. Range参数引用错误：硬编码的"A1:J10"可能未准确覆盖目标区域，或未指定工作表前缀导致Access识别偏差
2. Access自动类型猜测机制：导入时Access会采样前几行数据判断列类型，若ID列的表头/数据格式触发误判，会导致列丢失
3. Excel文件格式问题：Excel中存在隐藏列、合并单元格或无效格式，导致Access误识别表头

解决方案 #

方案1：复用手动导入规格（最可靠）

手动导入时保存正确的导入步骤，在VBA中直接调用，完全复用手动导入的配置：

1. 手动完成一次正确的Excel导入，在向导最后一步勾选保存导入步骤，命名为比如ImportExcelSpec
2. 在VBA中调用该规格，支持动态修改路径和目标表名：

Dim dbs As DAO.Database
Dim impSpec As DAO.ImportExportSpecification

Set dbs = CurrentDb
Set impSpec = dbs.ImportExportSpecifications("ImportExcelSpec")

' 动态替换路径和目标表名
impSpec.SourceFileName = Path
impSpec.DestinationTableName = ShtName

impSpec.Execute

Set impSpec = Nothing
Set dbs = Nothing

方案2：修正TransferSpreadsheet参数

• 若无需指定区域，直接导入整个工作表，避免Range硬编码错误：

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, ShtName, Path, True

• 若必须指定Range，需加上工作表前缀确保识别准确：

' 指定Sheet1的A1到J10区域
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, ShtName, Path, True, "Sheet1!A1:J10"

方案3：排查Excel文件问题

• 检查Excel中ID列是否被隐藏，取消隐藏后重新导入
• 确认目标区域内无合并单元格、空表头或无效格式
• 检查工作表是否存在隐藏列，删除无用的隐藏列后再导入

关于F10列的说明 #

该列大概率是Access误识别了Excel中某个隐藏列的表头，或Range参数实际包含了未被注意的空白列（该列某单元格存在F10内容），排查Excel文件的隐藏列和无效区域即可解决。

内容的提问来源于stack exchange，提问作者AnthonyJ