VBA怎样获取当前已经打开的Excel book名和Excel sheet名?

在一个excel的 sheet中,显示出:
所有当前excel打开的book名,
和该book下面对应的 sheet 名.

谢谢.
请各位大虾指教.

3 个解决方案

#1

我顶~~

#2

并不算很难的程序阿~~
高手都去哪里了？

#3

For iIndex=1 To Workbooks.Count
    MsgBox Workbooks.Item(iIndex).Name
    Set vWorkBook=Workbooks.Item(iIndex)
    For kIndex=1 To vWorkBook.Sheets.Count
        MsgBox vWorkBook.Sheets(kIndex).Name
    Next
Next
大概就这样了