如何操作MS Access VBA中的对象

我有一个问题。 第一次迭代正确，但第二次在Set tdf = db.TableDefs("temp_table") （Access虽然在上面创build了一行，但找不到“temp_table”）。 新的导入表的指针肯定是错的。

  dirfilename = Dir(strfilename & "\") Do While dirfilename <> "" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, "temp_table", strfilename & "\" & dirfilename, True Set tdf = db.TableDefs("temp_table") . . . . db.TableDefs.Refresh dirfilename = Dir Loop 

你们能帮助我吗？

Answer 1

尽pipe过去我不能复制这个问题。

尝试：

Application.RefreshDatabaseWindow

要么

DoCmd.SelectObject acTable, "temp_table", True

Answer 2

好的，我明白了。 我需要在导入数据命令和设置指针（tdf）之间插入“db.TableDefs.Refresh”。 我也不得不唯一调用临时表，所以'temp_table1'，'temp_table2'等，它现在正常工作。