Question

我看到许多代码可以从特定文件夹打开 excel 文件。你能帮我制作一个代码来遍历我硬盘上的每个文件夹吗？我知道这听起来很大，但是你 - 这就是我需要的..

谢谢！

Answer 1

添加对 Microsoft Scripting Runtime 的引用（工具 -> 引用...）。然后你可以编写如下代码：

Dim fso As New FileSystemObject

Sub ParseFolder(fldr As Folder)
    Dim subfolder As Folder
    For Each subfolder in fldr.Subfolders
        ParseFolder subfolder
    Next

    Dim f As File
    For Each f In fldr.Files
        Select Case fso.GetExtensionName(file.path)
            Case "xls", "xlsb", "xlsm"
                
                ' Do something with Excel file here

        End Select
    Next
End Sub

Sub Main
    ' Run this macro to start the process running
    ParseFolder fso.GetFolder("C:\")
End Sub

根据磁盘上有多少 Excel 文件，您可能只想将代码定位到较小的 Excel 文件子集或较小的文件夹子集；或使用 DoEvents 以免应用程序冻结。

参考资料

脚本运行时

FileSystemObject object -- GetExtensionName 和 GetFolder 方法
Folder object -- Subfolders 和 Files 属性

VBA - 从硬盘驱动器打开所有excel文件

1 个答案: