VBA 遍历某个文件夹指定文件类型

springdk2009

于 2024-04-29 10:04:12 发布

阅读量388

点赞数 1

CC 4.0 BY-SA版权

分类专栏： VBA 文章标签： vba

本文链接：https://blog.youkuaiyun.com/springdk2009/article/details/136809359

VBA 专栏收录该内容

12 篇文章

订阅专栏

该文章详细描述了一个使用VBA编写的Sub过程，通过FileSystemObject在给定路径下的文件夹中递归查找MicrosoftExcel97-2003工作表或工作表类型的文件，对这些文件进行特定操作。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

时间：2016-10-10 10:14:00

Private Sub 遍历_Click()
    Application.ScreenUpdating = False
    Dim fso, folder, fds, fd, folder1, folder2, fs, f
    Dim dirpath, atdirname, atfilename As String, arr
    Dim putrows As Integer
    dirpath = ThisWorkbook.Path
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder1 = fso.GetFolder(dirpath)  '获得文件夹
    Set fds = folder1.SubFolders        '子文件夹集合
    putrows = 5
    For Each fd In fds                  '遍历子文件夹
         
        'Debug.Print fd.Name
        If fd.Name = "目录" Then
            atdirname = fd.Name
            Set folder2 = fd                '获得文件夹2
            Set fs = folder2.Files          '文件集合
            For Each f In fs                '遍历文件
                 
                If f.Type = "Microsoft Excel 97-2003 工作表" Or f.Type = "Microsoft Excel 工作表" Then
                    '是表格文件
                    'Debug.Print f.Name
                    '执行其他操作.....
                End If
            Next
            'Debug.Print
            'putrows = putrows + 1
         End If
    Next
End Sub