DAO.TableDef не определен в Excel

Question

Я пытаюсь преобразовать в пять форматов, но когда я выполняю код в строке 2, он говорит, что DAO.TableDef не определен.Если код будет успешно выполнен, он создаст пять форматов: csv, xml.laccdb, acccdb, xls.Следующие программы будут созданы как новые файлы в Excel vba.

Sub exportTables2XLS()
Dim td As DAO.TableDef, db As DAO.Database
Dim out_file As String
out_file = CurrentProject.Path & "\test.xls"
Set db = CurrentDb()
For Each td In db.TableDefs
If Left(td.Name, 4) = "MSys" Then
'//do nothing -- skip
Else
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _
td.Name, out_file, True, Replace(td.Name, "dbo_", "")
End If
Next
End Sub
'expeced ouput :test.xls, test.xml, test.csv, test.accdb,test.laccdb,

Answer 1

Если он не соответствует вашему определению DAO.TableDef, то, вероятно, ваши ссылки

Alt + F11> Инструменты> Ссылки

Убедитесь, что этот флажок установлен, где x - ваш конкретный номер версии: библиотека объектов Microsoft DAO x.x

https://stackoverflow.com/a/13919392/4731063