VBA遍历文件夹中所有工作簿

在VBA（Visual Basic for Applications）中，如果你想遍历文件夹中的所有Excel工作簿，你可以使用`Application.GetFolder`和`Files`属性结合`Do While...Loop`结构。以下是一个简单的示例：

Sub TraverseFolder()
    Dim ws As Workbook
    Dim folderPath As String
    Dim file As Object
    
    ' 设置文件夹路径
    folderPath = "C:\Your\Folder\Path" ' 请替换为你需要遍历的实际路径
    
    Set file = Application.GetFolder(folderPath).Files
    If file Is Nothing Then
        MsgBox "No files found in the specified path."
        Exit Sub
    End If
    
    Do While Not file Is Nothing
        Set ws = Workbooks.Open(file.Path)
        ' 对每个打开的工作簿执行操作，如显示信息、检查内容等
        Debug.Print ws.Name ' 只是为了演示，实际应用中可以做其他处理
        
        ws.Close SaveChanges:=False ' 关闭工作簿，如果不关闭可能会占用资源
        Set file = file.Next ' 移动到下一个文件
    Loop
    
    Set file = Nothing
End Sub