再谈批量导入CSV文件

123shusheng

我在论坛里找到Grant版主的一篇例子,非常好.美中不足是在我的导入文件夹里有两类文件,都是CVS文件,但列数不同,两类文件在文件名上有区分,一个是以"N"结尾,一个是以"Y"结尾.
我的思路是:1.窗体1中列表框List1中的文件,默认值是全部导入同一个表(我再用查询将两类文件分开),不需要的文件人工点击取消.目前的问题是由于两类文件列数不同无法同时导入一个表.因为我的文件数量比较多,如果人工分两次导入不太方便.
2.如果不能将两类文件一次导入一个表内,能否根据文件名,将两类文件分别导入相应的表内.
请高手指点,谢谢!

efcndi

aslxt 发表于 2013-5-12 11:29
解决就好，“速度慢了好多 有的时候超过10万行 感觉像死机了一样
"可以做一个进度条，好看一些

谢谢 又学了很多

aslxt

解决就好，“速度慢了好多 有的时候超过10万行 感觉像死机了一样
"可以做一个进度条，好看一些

efcndi

实在对不起了 让您白等了 领导不让传 呵呵 不过问题解决了 我刚才数据弄错了 再次感谢aslxt 就是逐行读取速度慢了好多 有的时候超过10万行 感觉像死机了一样

efcndi

您稍等，我需要处理一下，有数据不能公开，我立刻处理

aslxt

把你的实例贴上来（access【2007版本及以下】和csv文件）
或加我qq：853156456

efcndi

aslxt 发表于 2013-5-10 19:35
当然“SQL=....” 的语法要根据自己的表重新改过，才能实际运用

再次感谢aslxt 可是我用您逐行读取的方式试了一下，问题还是没解决，还是会变成“1.002”之类的数据.

efcndi

aslxt 发表于 2013-5-10 19:35
当然“SQL=....” 的语法要根据自己的表重新改过，才能实际运用

谢谢 太厉害了 好好学习中

aslxt

当然“SQL=....” 的语法要根据自己的表重新改过，才能实际运用

aslxt

目前只能用逐行读取文本文件的方式可以保存数据的原样，参考代码如下：
Private Sub Command0_Click()
     Dim varItem As Variant
    With Application.FileDialog(3) 'msoFileDialogFilePicker
      .AllowMultiSelect = True       '允许选择多个文件
      .Filters.Clear
      .Filters.Add "CSV Files", "*.CSV"        '只显示CSV文件，可根据需要改变
      If .Show Then
        For Each varItem In .SelectedItems
          DR varItem
        Next
      End If
    End With
End Sub

Function DR(ByVal MYspath As String)
    Dim SQL, STR
    Dim i As Long
    Dim A
    Close #1
    i = 0
    Open MYspath For Input As #1
        Do While Not EOF(1)
            Line Input #1, STR    '   逐行读入
            i = i + 1
            A = Split(STR, ",") '这里不允许csv文件的数据设为千分位，文本字符间不能有半角逗号
            If i > 1 Then
                SQL = "INSERT INTO tbl_Export ( [VENDOR NO], [CUSTOMER NO], [INVOICE NO], [BL DATE], [MODEL NO], QTY, PRICE, AMOUNT ) VALUES (" & _
                      """" & A(0) & """" & "," & """" & A(1) & """" & ", " & """" & A(2) & """" & ", " & "#" & A(3) & "#" & "," & """" & A(4) & """" & ", " & A(5) & ", " & A(6) & ", " & A(7) & " )"
                Debug.Print SQL
                CurrentProject.Connection.Execute SQL
            End If
        Loop
    Close #1
End Function