Question

我很难解决链接表到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宏时，上下文没有完全初始化......但我能做些什么来让它工作？

Answer 1

尝试：

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

MS Access将CSV文件作为启动时的表格链接

1 个答案: