主题：[求助]如何批量导入csv文件

DataTables("表A").ResumeRedraw
DataTables("表A").StopRedraw
DataTables("表B").ResumeRedraw
DataTables("表B").StopRedraw
For Each f As String In FileSys.GetFiles("C:\Documents and Settings\Administrator\My Documents\下载\2016\2016")
    Dim str As String = FileSys.ReadAllText(f, Encoding.Default)
    Dim ary() As String = str.Split(chr(13))
    Dim min As Double = ary(0).split(",")(1)
    Dim max As Double = ary(0).split(",")(1)
    Dim sum As Double = 0
    For i As Integer = 0 To ary.Length - 1
        Dim s() As String = ary(i).Split(",")
        If s.Length >= 4 Then
            If val(s(1)) > max Then
                max = val(s(1))
            End If
            If val(s(1)) < min Then
                min = val(s(1))
            End If
            sum += val(s(1))
        End If
    Next
    Dim nr As DataRow
    f = FileSys.GetName(f)
    If f.StartsWith("SH") Then
        nr = DataTables("表A").AddNew
    Else If f.StartsWith("SZ") Then
        nr = DataTables("表B").AddNew
    End If

    nr("第一列") = ary(0).Split(",")(0).Trim()
    nr("第二列") = left(f, 8)
    nr("第三列") = max
    nr("第四列") = min
    nr("第五列") = sum
Next
DataTables("表A").ResumeRedraw
DataTables("表B").ResumeRedraw

    楼上代码试了，速度很快2339个文件3分钟统计完毕，很好！方案可行。

盼望老师帮助我尽快把狐表使用起来，后面我自己慢慢啃。

感谢甜老师csv文件批量导入做好了，导入了几批数据正常，现在出现导完数据后功能区和菜单栏冻结（灰色）不能操作，需要退出重新打开再导入，怎样解决？

你使用的是试用版还是开发版？还是盗版？

如果是开发版，就是激活码有问题；如果是盗版，会出现各种各样的问题的。

你用的不可能是试用版，你用的肯定是盗版的，不然不会出现变灰的情况。