VBA导入Excel结构化表到Access时表范围引用失败如何解决？

• DoCmd.TransferSpreadsheet 方法的 Range 参数仅支持两种格式的范围定义：带$符号的单元格绝对引用（如$A$1:$L$116）、Excel工作簿中预先定义的普通命名区域名称，不识别Excel结构化表（ListObject）专属的结构化引用语法（如tbl_IOList[#All]），因此传入结构化引用会直接校验失败导致导入错误。

方案1：提前转换结构化表为单元格地址传入 #

你可以通过Excel对象模型先读取目标结构化表的实际单元格范围，再将地址参数传入导入方法，示例代码如下：

' 先获取结构化表的实际单元格地址
Function GetExcelTableAddress(FileName As String, TableName As String) As String
    Dim xlApp As Object, xlWb As Object, xlTable As Object
    Set xlApp = CreateObject("Excel.Application")
    Set xlWb = xlApp.Workbooks.Open(FileName, ReadOnly:=True)
    Set xlTable = xlWb.ListObjects(TableName)
    GetExcelTableAddress = xlTable.Range.Address
    xlWb.Close SaveChanges:=False
    xlApp.Quit
    Set xlTable = Nothing
    Set xlWb = Nothing
    Set xlApp = Nothing
End Function

' 调用示例
Dim tableAddr As String
tableAddr = GetExcelTableAddress(Me.txtFileName, "tbl_IOList")
' 用GetBaseName替代GetFileName可去掉Excel文件后缀，避免Access表名带.xlsx后缀
ExcelImport.ImportExcelSpreadsheet Me.txtFileName, Replace(FSO.GetBaseName(Me.txtFileName), ".", "_"), tableAddr

方案2：将结构化表绑定为普通命名区域 #

在Excel源文件中，选中整个结构化表，在顶部公式栏左侧的名称框输入自定义名称（如import_IOList），保存文件后，直接将该命名区域的名称作为Range参数传入即可：

ExcelImport.ImportExcelSpreadsheet Me.txtFileName, "目标Access表名", "import_IOList"

方案3：改用ADO连接读取结构化表（更灵活） #

如果不想依赖TransferSpreadsheet的限制，可以用ADO直接连接Excel文件读取结构化表数据，支持直接识别结构化表名称，示例核心代码如下：

Sub ImportTableByADO(ExcelPath As String, ExcelTableName As String, AccessTableName As String)
    Dim conn As Object
    Set conn = CreateObject("ADODB.Connection")
    conn.Open "Provider=ACE.OLEDB.12.0;Data Source=" & ExcelPath & ";Extended Properties=""Excel 12.0 Xml;HDR=YES"";"
    ' 直接写入Access新表
    CurrentDb.Execute "DROP TABLE IF EXISTS " & AccessTableName
    CurrentDb.Execute "SELECT * INTO " & AccessTableName & " FROM [" & ExcelTableName & "] IN '" & ExcelPath & "' 'Excel 12.0 Xml;HDR=YES;'"
    conn.Close
    Set conn = Nothing
End Sub

内容的提问来源于stack exchange，提问作者Benjamin van Wyk