DoCmd.TransferSpreadsheet设置Range时!被替换为$致导入Access报错

问题根因 #

你遇到的分隔符自动替换、运行报错问题，核心是认知偏差和代码疏漏：

• DoCmd.TransferSpreadsheet是Access侧的内置方法，它的Range参数不支持!作为工作表名与单元格范围的分隔符，方法内置解析逻辑会自动将传入的!替换为$。你手动拼接的Line14!$A$1:$G$18经过解析后会变成Line14$$A$1:$G$18，出现连续两个$，属于非法范围格式，直接触发运行错误。
• 你在Excel VBA环境中直接使用了acImport、acSpreadsheetTypeExcel12Xml这两个Access专属常量，如果没有提前绑定Microsoft Access对象库，这两个常量会被识别为空值/0，导致参数传递错误。
• 额外隐患：代码执行完成后没有释放Access应用对象，会导致后台残留Access进程，长期运行会占用系统资源、锁死目标数据库文件。

修正方案 #

• 拼接Range参数时移除手动添加的!分隔符，直接拼接工作表名与Address方法返回的范围字符串即可，最终格式为工作表名$绝对引用范围，符合TransferSpreadsheet的参数要求。
• 如果不想配置前期绑定，直接使用常量对应的数值代替常量名，避免环境差异导致的参数错误。
• 执行完导入操作后正确释放COM对象，避免后台残留进程。

修正后可直接运行的代码 #

Sub ImportLine14()
    Dim accappl As Access.Application
    Dim strpathdb As String
    Dim strpathxls As String
    Dim lRow As Long, LCol As Long
    Dim fullrange As String
    Dim PageName As String
    Dim importRange As String

    '配置数据库与目标Excel文件路径
    strpathdb = "\\US5MS0005\_Group Folders\Public\Production Data\Production Database\dbPlantData_be.accdb"
    strpathxls = "\\US5MS0005\_Group Folders\Public\Production Schedule SAP\Production Schedule 2022  DugTest.xlsm"

    '初始化Access应用
    Set accappl = New Access.Application
    accappl.OpenCurrentDatabase strpathdb

    '获取目标工作表已用范围
    PageName = Worksheets("Line14").Name
    lRow = Worksheets("Line14").Range("A" & Rows.Count).End(xlUp).Row
    LCol = Worksheets("Line14").Cells(2, Columns.Count).End(xlToLeft).Column
    fullrange = Worksheets("Line14").Range(Worksheets("Line14").Cells(1, 1), _
                   Worksheets("Line14").Cells(lRow, LCol)).Address
    '按TransferSpreadsheet要求拼接合法范围格式：工作表名$范围，不需要加!
    importRange = PageName & fullrange '拼接后格式为 Line14$A$1:$G$18

    '执行导入：常量直接用对应数值，避免未绑定引用库导致的参数错误
    'acImport = 0，acSpreadsheetTypeExcel12Xml = 10
    accappl.DoCmd.TransferSpreadsheet TransferType:=0, _
             SpreadsheetType:=10, _
             TableName:="tblProcessOrder", Filename:=strpathxls, _
             HasFieldNames:=True, Range:=importRange

    '退出Access并释放对象
    accappl.Quit
    Set accappl = Nothing
End Sub

额外排查点 #

如果修正后仍报错，按以下顺序检查：

• 先在即时窗口打印importRange变量，确认返回值为Line14$A$1:$G$18，无连续$、无!符号。
• 确认路径下的目标Excel文件、Access数据库没有被其他用户/进程打开，共享路径下文件被锁定时也会触发导入失败。
• 检查Access目标表tblProcessOrder的字段类型，与Excel导入范围的列数据类型是否匹配，避免类型转换导致的运行错误。
• 如果后续修改工作表名带空格/特殊字符，拼接范围时需要用单引号包裹整个范围字符串，格式为'Line 14$A$1:$G$18'。

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