[已解决]代码解释？

afad12

Sub 导入CSV文件()
    Dim s$(), Fso As Object, Folder As Object, i&, j&, m&, FilePath$(), mf&, arr$(1 To 60000, 1 To 1)
    Set Fso = CreateObject("Scripting.FileSystemObject")
    Set Folder = Fso.GetFolder(ThisWorkbook.Path)
    Call GetFiles(Folder, FilePath, mf)
    For j = 1 To mf
        Open FilePath(j) For Input As #1
        s = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
        Close #1
        For i = 2 To UBound(s)
            If Len(s(i)) Then
                m = m + 1
                arr(m, 1) = Split(s(i), vbTab)(0)
            End If
        Next
    Next
    [a:a].ClearContents
    [a1].Resize(m) = arr
    Set Folder = Nothing
    Set Fso = Nothing
End Sub
Sub GetFiles(ByVal Folder As Object, arr$(), mf&)
    Dim SubFolder As Object
    Dim File As Object
    For Each File In Folder.Files
        If File.Name Like "*.txt" Then
            mf = mf + 1
            ReDim Preserve arr(1 To mf)
            arr(mf) = File
        End If
    Next
    For Each SubFolder In Folder.SubFolders
        Call GetFiles(SubFolder, arr, mf)
    Next
End Sub

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2015-2-14 16:42

Call GetFiles(Folder, FilePath, mf)
括号里的参数是什么意思？
第一个是Folder对象，第二个数组（存放具体的文件路径），第三个是计数器（统计第二个参数（数组里）存储的文件路径数量

跳转到最佳答案楼层

hwc2ycy

如果楼主没有VBA的基础，就不用去费力理解代码了，会用就行。
如果有基础，建议自己F8调试一次，理解就知道了。

afad12

hwc2ycy 发表于 2015-2-14 13:07
如果楼主没有VBA的基础，就不用去费力理解代码了，会用就行。
如果有基础，建议自己F8调试一次，理解就知道 ...

Call GetFiles(Folder, FilePath, mf)
括号里的参数是什么意思？

scl5801

Call GetFiles(Folder, FilePath, mf)括号里的参数是什么意思？这句是调用另一个叫GetFiles 的过程，欲知参数含义，要看GetFiles 过程才知道。

afad12

scl5801 发表于 2015-2-14 14:11
Call GetFiles(Folder, FilePath, mf)括号里的参数是什么意思？这句是调用另一个叫GetFiles 的过程，欲知参 ...

请看附件，帮我看看代码到底是什么意思？
基础文件.rar (15.03 KB, 下载次数: 5)

2015-2-14 14:15 上传

点击文件名下载附件

scl5801

我的理解，第一个是要导入文件的地址，二是类型，三是数量，不知对否，还请请教高手。

hwc2ycy

Call GetFiles(Folder, FilePath, mf)
括号里的参数是什么意思？
第一个是Folder对象，第二个数组（存放具体的文件路径），第三个是计数器（统计第二个参数（数组里）存储的文件路径数量