[已解决]（求问）判断打开工作簿的数量

xdwy81129

求问：判断打开工作簿的数量或者是打开的excel窗口的个数。

如果可以希望老师给出2种方面的判断。

msgbox 显示大开的工作簿数量或者是excel打开的窗口个数

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-28 11:15

Sub Test()
    MsgBox Workbooks.Count '打开工作簿数量
    MsgBox Windows.Count   '打开窗口数量
End Sub

跳转到最佳答案楼层

xdwy81129

QUOTE:

以下是引用xdwy81129在2009-12-28 11:11:00的发言：

求问：判断打开工作簿的数量或者是打开的excel窗口的个数。

如果可以希望老师给出2种方面的判断。

msgbox 显示大开的工作簿数量或者是excel打开的窗口个数

求老师增加一个语句，求出打开的工作簿全部名称放在a列

amulee

Sub Test()
    MsgBox Workbooks.Count '打开工作簿数量
    MsgBox Windows.Count   '打开窗口数量
End Sub

amulee

QUOTE:

以下是引用xdwy81129在2009-12-28 11:13:00的发言：

求老师增加一个语句，求出打开的工作簿全部名称放在a列

Sub Test()
    For i = 1 To Workbooks.Count
        Cells(i, 1) = Workbooks(i).Name
    Next i
End Sub

xdwy81129

QUOTE:

以下是引用amulee在2009-12-28 11:15:00的发言：

Sub Test()
    MsgBox Workbooks.Count '打开工作簿数量
    MsgBox Windows.Count   '打开窗口数量
End
  Sub

怎么求工作簿的名称和窗口的名称呢？？

烦请再赐教下

xdwy81129

QUOTE:

以下是引用amulee在2009-12-28 11:17:00的发言：

Sub Test()
    For i = 1 To Workbooks.Count
        Cells(i, 1) = Workbooks(i).Name
    Next i
End
  Sub

        For j = 1 To Windows.Count
        Cells(j, 2) = Windows(j).Name
    Next j

这个错误，这个能求吗？？？

amulee

QUOTE:

以下是引用xdwy81129在2009-12-28 11:22:00的发言：

        For j = 1 To Windows.Count
        Cells(j, 2) = Windows(j).Name
    Next j

这个错误，这个能求吗？？？

Sub Test()
    For j = 1 To Windows.Count
        Cells(j, 2) = Windows(j).Caption
    Next j
End Sub

xdwy81129

QUOTE:

以下是引用amulee在2009-12-28 11:25:00的发言：

Sub Test()
    For j = 1 To Windows.Count
        Cells(j, 2) = Windows(j).Caption
    Next j
End
  Sub

非常非常的棒，感谢，感谢了

零点★沉思

来学习下