使用excel中的vba来激活多个excel窗口

1、首先我们打开一个工作样表作为例子。

2、使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：

Sub SelectWindow()

Dim iWin As Long, i As Long, bWin

MsgBox "依次切换已打开的窗口"

iWin = Windows.Count

MsgBox "您已打开的窗口数量为：" & iWin

For i = 1 To iWin

Windows(i).Activate

bWin = MsgBox("您激活了第 " & i & "个窗口，还要继续吗 ", vbYesNo)

If bWin = vbNo Then Exit Sub

Next i

End Sub

3、这里我先说明一下，这个打开的窗口指的是工作薄，而不是工作表，变量声明中的long类型，其实完全用不着这么大的内存空间，使用integer就可以了。

4、windows.count是windows对象的属性，而不是一种方法，count将windows视为一个集合，并将集合下标数返回出来赋予iWin变量。

5、接着我们用msgbox返回提示信息，对windows所有窗口个数返回为提示信息。

6、激活窗口使用的是Activate方法，并使用windows集合的下标来进行顺序激活，使用的循环方法，将历遍所有的excel工作薄，并使用了msgbox的按钮参数来判断循环的执行过程。

7、先写到这里了，谢谢大家的观看。

祝大家生活愉快。

小编还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。

看不清楚图片的可以点击放大再看哦。