你是否经常同时打开多个Excel文件，却不知道到底开了多少？
你是否需要批量操作所有工作簿，但手动切换太麻烦？
今天，我要揭秘 `Workbooks.Count` 这个VBA属性，让你轻松掌控所有打开的Excel文件，实现真正的自动化办公！
什么是 Workbooks.Count？
`Workbooks.Count` 是VBA中用来 统计当前打开的Excel工作簿数量 的属性。它可以告诉你：
当前打开了多少个Excel文件
结合循环，批量操作所有工作簿
基本用法
Sub 统计工作簿数量()
Dim wbCount As Integer
wbCount = Workbooks.Count '获取当前打开的工作簿数量
MsgBox "当前打开了 " & wbCount & " 个工作簿！", vbInformation
End Sub运行这段代码，它会弹窗告诉你 当前打开了多少个Excel文件，超级方便！
5个超实用场景，让你告别手动操作！
1 自动关闭所有工作簿（不保存）
Sub 关闭所有工作簿()
Dim i As Integer
For i = Workbooks.Count To 1 Step -1 '倒序关闭，避免报错
Workbooks(i).Close SaveChanges:=False
Next i
End Sub适用场景：下班前快速关闭所有Excel文件，避免一个个点×！
2 批量保存所有工作簿
Sub 保存所有文件()
Dim wb As Workbook
For Each wb In Workbooks
If Not wb.ReadOnly Then '只保存可编辑的文件
wb.Save
End If
Next wb
MsgBox "所有文件已保存！", vbInformation
End Sub适用场景：同时编辑多个文件时，一键全部保存，防止数据丢失！
3 查找特定名称的工作簿
Sub 查找工作簿()
Dim wbName As String, found As Boolean
wbName = "财务报表.xlsx" '要查找的文件名
found = False
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name = wbName Then
found = True
Exit For
End If
Next wb
If found Then
MsgBox "找到了：" & wbName, vbInformation
Else
MsgBox "未找到该工作簿！", vbExclamation
End If
End Sub适用场景：在多个打开的Excel文件中快速定位目标文件！
4 一键合并多个工作簿数据
Sub 合并数据()
Dim summarySheet As Worksheet
Set summarySheet = ThisWorkbook.Sheets("汇总") '数据汇总表
Dim wb As Workbook
For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then '排除当前工作簿
wb.Sheets(1).UsedRange.Copy summarySheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
End If
Next wb
MsgBox "数据合并完成！", vbInformation
End Sub适用场景：财务、销售等部门需要汇总多个Excel数据时，一键搞定！
5 检查是否有未保存的工作簿
Sub 检查未保存文件()
Dim unsavedCount As Integer
unsavedCount = 0
Dim wb As Workbook
For Each wb In Workbooks
If wb.Saved = False Then '检查是否已保存
unsavedCount = unsavedCount + 1
End If
Next wb
If unsavedCount > 0 Then
MsgBox "有 " & unsavedCount & " 个文件未保存！", vbExclamation
Else
MsgBox "所有文件已保存！", vbInformation
End If
End Sub适用场景：防止忘记保存重要修改，避免数据丢失！
注意事项 & 常见问题
1. `Workbooks.Count` 不包括隐藏的工作簿，如需统计所有，需先取消隐藏。
2. 关闭工作簿时建议倒序循环（如 `For i = Workbooks.Count To 1 Step -1`），避免索引错误。
3. `ThisWorkbook` 不会被关闭，它是VBA代码所在的工作簿。
为什么你要掌握 Workbooks.Count？
一键统计所有打开的Excel文件，管理更高效
批量操作多个工作簿，节省90%重复操作时间
适合财务、人事、数据分析等岗位，大幅提升办公效率
如果你觉得有用，点赞 + 收藏，下次直接用！
关注我，解锁更多 Excel VBA自动化技巧！