主题：[求助]如何批量导入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