vba遍历所有工作簿

VBA (Visual Basic for Applications) 是Excel内置的一种宏语言，可以用来自动化Excel操作。如果你想遍历Excel的所有工作簿，你可以使用`Workbooks`对象模型，下面是一个简单的示例：

Sub TraverseSheets()
    Dim ws As Workbook
    For Each ws In ThisWorkbook.Workbooks '遍历当前工作簿的所有工作簿
        Debug.Print "当前工作簿名称: " & ws.Name '打印每个工作簿的名称
        ' 这里还可以对每个工作簿执行其他操作，如打开、修改、关闭等
        ws.Close SaveChanges:=False '关闭工作簿，不保存更改（如果不需要保存）
    Next ws
End Sub

上述代码会迭代`ThisWorkbook`（当前正在运行脚本的工作簿）中的所有工作簿，并打印出每个工作簿的名称。如果你需要遍历所有打开的工作簿，而不是只限于当前工作簿，可以将`ThisWorkbook.Workbooks`改为`Application.Workbooks`。