VBA导入多工作表Excel文件Range参数触发错误3011问题咨询

错误原因 #

Access的DoCmd.TransferSpreadsheet方法对Range参数的格式有固定要求：指定工作表+范围的格式必须为[工作表名$起始单元格:结束单元格]，不支持!分隔工作表和范围。系统自动将!替换为$后，会把拼接后的整个字符串识别为工作表名，自然找不到对应工作表触发3011错误。

修复步骤 #

1. 修正Range参数拼接规则 #

将原来拼接strWorksheetName的代码替换为如下写法，兼容带特殊字符、空格的工作表名：

strWorksheetName = "[" & objWorksheet.Name & "$" & objRange.Address(False, False) & "]"

2. 修复代码中其他导致运行失败的问题 #

你提供的完整代码还存在几处逻辑错误，不修正依然无法正常运行：

• 文件夹/文件选择逻辑混乱：你当前使用的是文件夹选择对话框msoFileDialogFolderPicker，但配置的是选择文件的参数，且没有给strFolder变量赋值，后续Dir读取会失败。如果需求是选择多个Excel文件，建议将对话框类型改为msoFileDialogFilePicker，并遍历所有选中的文件。
• TransferSpreadsheet的FileName参数传值错误：你当前传的是只有文件名的strFile，需要传带完整路径的strFullFileName才能定位到文件。
• Excel对象释放逻辑错误：关闭Excel应用要调用objExcel.Quit，不能用Close，释放对象需要用Set objWorkbook = Nothing的格式，不能直接写objWorkbook = Nothing。

修正后的核心导入逻辑参考 #

For Each objWorksheet In colworksheets
    Set objRange = objWorksheet.UsedRange
    ' 修正Range参数格式
    strWorksheetName = "[" & objWorksheet.Name & "$" & objRange.Address(False, False) & "]"
    DoCmd.TransferSpreadsheet _
            TransferType:=acImport, _
            SpreadsheetType:=lngFileType, _
            tableName:=strTable, _
            FileName:=strFullFileName, ' 替换为完整文件路径
            HasFieldNames:=False, _
            Range:=strWorksheetName
Next
' 修正Excel对象退出逻辑
objworkbook.Close SaveChanges:=False
Set objworkbook = Nothing
objexcel.Quit
Set objexcel = Nothing

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