我尝试通过VBA将CSV文件导入Access数据库。我收到此错误:"运行时错误:' 3061':参数太少。预计1。"
我已经尝试添加单引号,就像其他有关此问题的线程一样,但它没有帮助。
strSQL = "INSERT INTO Import (" & _
"[Equipment]" & _
",[Description]" & _
",[User_status]" & _
",[Functional_Location]" & _
",[Functional_Location_Desc]" & _
",[Cost_Center]" & _
",[Main_WorkCtr]" & _
",[Manufacturer]" & _
",[Model_Number]" & _
",[Serial_Number]" & _
",[Plant_Section])" & _
" SELECT Equipment,Description,User_status" & _
",Functional_Loc,Description3,Cost_Center,Main_WorkCtr" & _
",Manufacturer,Model_number,ManufSerialNo,Plant_section" & _
" FROM [Text" & _
";FMT=Delimited" & _
";HDR=YES" & _
";IMEX=2" & _
";CharacterSet=1252" & _
";DATABASE=" & strFolder & "].[" & strFilename & "]"
CurrentDb.Execute strSQL
我的CSV文件的第一行:设备,说明,User_status,Functional_Loc,Description3,Cost_Center,Main_WorkCtr,制造商,Model_number,ManufSerialNo,Plant_section
感谢您的帮助。
标记
答案 0 :(得分:0)
我要偷窃vacip的答案并扩展它。我100%同意他的建议:
在CurrentDB.Execute之前添加Debug.Print strSQL并查看是否存在 好吧,有所有的价值观等。
我建议将Debug.Print的结果粘贴到Access查询向导的SQL窗口中。然后尝试运行它。当Access通过查询构建器运行时,有时错误更明显。此外,切换到此新查询的“设计”视图,查看是否有任何问题。通常在这两个视图之间,我可以找出我的查询所遇到的任何问题。