Question

excel vba 中如何取得目录下文件的数量

excel vba 中如何取得目录下某类型文件的数量,并将文件名取到excel 中，并按文件名最后一位数的大小排序

Answer 1

Function FileCount(cPath As String) as Integer
    cFile=Dir(cPath & "*.*")
    Do While cFile<>""
        FileCount=FileCount+1
        cFile=Dir
    Loop
End Function

这是一段自定义函数，在Excel VBA编辑模式下，主菜单“插入”——“模块”，将代码粘贴到右侧编辑区。如果在工作表状态下使用，在单元格输入：=FileCount("c:\XXX\")就可以得出c:\XXX文件夹下的所有文件个数（不含子文件夹)；如果在代码中使用，则可以：nFileCount=FileCount("c:\XXX\")得到文件个数。注意：cPath参数必须以“\”符号结尾。

Answer 2

excel 遍历文件 代码提供

Answer 3

dir 函数试试