从 2007 年更新到 2019 年后无法将 CSV 文件导入 Access 数据库 (MS365)

问题描述

我们最近终于从 office 2007 升级到了 MS365（所以是 office 2019），从那时起，我们使用的访问数据库不再导入它曾经使用的文件。它有一个带有按钮的表单，用于运行清除一些临时表的导入，然后进行文本传输以将数据拉回所述临时表，然后运行查询以将数据移动到主表。

它仍然是一个旧的 mdb，我可以将其导入到 accdb 中，因为我被告知新版本不喜欢旧类型。传入的文件没有任何变化，我检查过的其他所有内容似乎都在正常工作。下面是按下导入按钮时运行的 VBA，它没有给出错误并说完成但没有导入。查询都运行良好，但导入没有。

非常感谢任何帮助或指导！

Option Compare Database
Option Explicit

Private Sub Command1_Click()

On Error Resume Next

DoCmd.SetWarnings False

DoCmd.OpenQuery "del_Handle_temp"
DoCmd.OpenQuery "del_tracktype"
DoCmd.OpenQuery "del_FAIR_PA"
DoCmd.OpenQuery "del_FAIR_PL"
DoCmd.OpenQuery "del_FAIR_SU"
DoCmd.OpenQuery "del_FAIR_OS"
DoCmd.OpenQuery "del_FAIR_IS"
DoCmd.TransferText acImportDelim,"FAIR_PA","H:\TrackData\Import\fair_pa.csv",False
DoCmd.TransferText acImportDelim,"FAIR_PL","H:\TrackData\Import\fair_pl.csv","FAIR_SU","H:\TrackData\Import\fair_su.csv","FAIR_OS","H:\TrackData\Import\fair_os.csv","FAIR_IS","H:\TrackData\Import\isa_mdf.csv",False
DoCmd.OpenQuery "trisuper_update"
DoCmd.OpenQuery "qry_tracktype"
DoCmd.OpenQuery "FAIR_OS Update"
DoCmd.OpenQuery "FAIR_OS Update2"
DoCmd.OpenQuery "FAIR_OS Update3"
DoCmd.OpenQuery "FAIR_OS Update4"
DoCmd.OpenQuery "FAIR_OS Update5"
DoCmd.OpenQuery "FAIR_OS Update6"

DoCmd.SetWarnings True

DoCmd.Close acForm,"import"
DoCmd.OpenForm "Done"
End Sub


Private Sub Command2_Click()
DoCmd.OpenForm "Importmain"
DoCmd.Close acForm,"import"
End Sub

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

csv csv import-from-excel ms-access