如何使用vba获取指定目录(含子目录)下的其他excel中符合条件的行数

pi_pi

求教如何使用vba获取指定目录(含子目录)下的其他excel中符合条件的行数，vbs脚本报各种问题导致统计很不顺利

目录结构
d:\sit第二轮\测试案例\客户信息.xlsx（数据案例这个sheet页里面是测试案例，要统计这里的行数，前两行是标题头）
d:\sit第二轮\测试需求分析\客户信息.xlsx（测试需求分析这个sheet页里面是需求分析，第一行是标题头，根据测试类型排除界面测试和字符测试，统计测试项数量）
能输入到excel里面，根据文件名，数量，类型进行保存

limonet

rst.recordcount

pi_pi

limonet 发表于 2024-4-15 10:31
rst.recordcount

没看明白，麻烦您给个示例或者思路也行，谢谢

tanglf188

遍历文件夹及文件代码如下，其余的自己完善

Rem 功能：1、遍历当前文件夹下所有文件；2、遍历当前文件夹下所有子文件夹；3、遍历子文件夹下所有文件
Sub test()
    Set fso = CreateObject("Scripting.FileSystemObject")
    pf = "D:\VBA"   'ThisWorkbook.Path为当前工资表路径，根据需要修改
    Set curFolder = fso.GetFolder(pf).SubFolders
    For Each FileRec In fso.GetFolder(pf).Files  '遍历当前文件夹下所有文件
        If fso.GetFile(FileRec.Path).Type = "文本文档" Then  'ParentFolder只含路径不含文件名、Name只含文件名不含路径、Path包含路径和文件名
            Debug.Print FileRec.Path  '文本文档输出文件路径和文件名
        Else
            Debug.Print fso.GetFile(FileRec.Path).Type  '不是文本文档则输出文件类型
        End If
    Next
    For Each subFolder In curFolder  '遍历当前文件夹下所有子文件夹
        Set ffolder = fso.GetFolder(subFolder.Path)
        For Each FileRec In ffolder.Files  '遍历子文件夹下所有文件
            If fso.GetFile(FileRec.Path).Type = "文本文档" Then  'ParentFolder只含路径不含文件名、Name只含文件名不含路径、Path包含路径和文件名
                Debug.Print FileRec.Path  '文本文档输出文件路径和文件名
            Else
                Debug.Print fso.GetFile(FileRec.Path).Type  '不是文本文档则输出文件类型
            End If
        Next
    Next
End Sub

limonet

pi_pi 发表于 2024-4-15 11:06
没看明白，麻烦您给个示例或者思路也行，谢谢

我没有示例，你也没有。这个就是思路，或者你用OPEN+数组或字典也可以。

ykcbf1100

建议上传附件，便于解决问题