用VBA代码将CSV导入Access报错user defined type

xiaovba

要把巨大无比的CSV（打开草鸡费力费时）导入access，在本版找到的大神的代码稍微修改了下，在自己的电脑上居然第一行就报错，提示：uder defined type not defined。运行环境是win10电脑，office 365。

以下是我把大神的代码改过以后的代码：

Sub toaccess() '引用Microsoft ActiveX Data Objects 2.x Library
    Dim cnn As New ADODB.Connection   ’运行中break的地方
     Dim myPath$, MyFile$
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.Path & "\inventory.mdb"
    myPath = ThisWorkbook.Path & "\"
    MyFile = Dir(myPath & "*.csv")
    Do While MyFile <> ""
        SQL = "insert into 2018 select * from [Text;FMT=Delimited;HDR=Yes;DATABASE=" & myPath & ";].[" & MyFile & "]"
        cnn.Execute SQL
        MyFile = Dir()
    Loop
    MsgBox "Finish input", vbInformation
    cnn.Close
    Set cnn = Nothing
End Sub

上传的附件是简化以后的，因为CSV超级巨大，我只放了几行几列，实际用到的CSV有百万行几十列。

追加问题：
1， 上传的附件里面CVS只有1张sheet，实际的CSV有1张也有2张的，随机分布（就是我也不知道那张CSV是2张表，因为太大了我不可能一个一个打开看），这段代码能实现同时覆盖所有的CSV文件吗？
2， 能用CVS文件名中的一部分（即日期，看附件就明白）作为access中数据表的名称吗？



谢谢高手！

zpy2

百度一下 如何 引用Microsoft ActiveX Data Objects 2.x Library
解决这个中断    Dim cnn As New ADODB.Connection   ’运行中break的地方
insert into 是插入数据到已经建立的表，不是创建表。

xiaovba

zpy2 发表于 2018-9-15 15:39
百度一下 如何 引用Microsoft ActiveX Data Objects 2.x Library
解决这个中断    Dim cnn As New ADODB.C ...

调用ActiveX控件以后运行还是报错。

zpy2

xiaovba 发表于 2018-9-17 10:14
调用ActiveX控件以后运行还是报错。

报错说明有bug,需要继续努力调试的。