vba - 在 MS Access 中附加链接表时出现运行时错误

Question

我有一个链接到 Excel 电子表格的数据库。当手动添加链接表时，我没有任何问题（我只是按照小向导操作，表就完美创建了）。我正在尝试使用 VBA 自动化：

Dim db as DAO.Database
Dim tdf as TableDef

Set db = CurrentDB
Set tdf = db.CreateTableDef("linked_table")
tdf.Connect = "Excel 8.0;HDR=YES;IMEX=2;DATABASE=" & Me.txtExcelFile  ' references form field
db.TableDefs.Append tdf  ' Here's where I get a run time error

不幸的是，我在最后一行收到运行时错误 3264，它说：“未定义字段——无法附加 TableDefs 或索引。” 我什至不确定为什么需要最后一行（从文档中我发现它似乎是将表添加到数据库的 TableDefs 集合中）。有关解决错误的任何建议？

Answer 1

你错过了：

tdf.SourceTableName = "Sheet1$"

或者您希望用作表格的任何范围或工作表名称。

所以，总的来说，这对我有用：

Dim db as DAO.Database
Dim tdf as TableDef

Set db = CurrentDB
Set tdf = db.CreateTableDef("linked_table")
tdf.SourceTableName = "Sheet1$"
tdf.Connect = "Excel 8.0;HDR=YES;IMEX=2;DATABASE=" & Me.txtExcelFile  ' references form field
db.TableDefs.Append tdf

您还可以使用 TransferSpreadsheet 链接 Excel