1

我在将表链接到 csv 文件时遇到问题。我通过 VBA 代码进行了附加,如下所示:

With CurrentDb
  Dim ts As DAO.TableDef
  Set ts = .CreateTableDef("cli")
  ts.SourceTableName = "CLI1.csv"
  ts.Connect = "Text;DSN=CLI1 Spec;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=C:\Users\user1\Desktop"
  .TableDefs.Append ts
  .TableDefs.Refresh
End With

当手动调用它时,表格已正确附加。当在 autoexec 宏中自动调用它时,我收到一个错误 3625,说文本文件规范“CLI1 Spec”不存在......通过它!

也许是因为在运行 autoexec 宏时,上下文没有完全初始化……但是我该怎么做才能让它工作呢?

4

1 回答 1

2

尝试:

With CurrentDb
  Dim ts As DAO.TableDef
  Set ts = .CreateTableDef("cli")
  ts.SourceTableName = "CLI1.csv"
  ts.Connect = "Text;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=850;DATABASE=C:\Users\user1\Desktop"
  .TableDefs.Append ts
  .TableDefs.Refresh
End With

如果不适合,使用 schema.ini 文件和 sql 并不太难,例如:Handle TransferText Errors

于 2013-02-08T19:27:02.707 回答