返回指定对象已打开站点的集合。
本示例创建数组,该数组包含 Web 站点上所有己打开站点的全部 URL。
注意 您必须打开要获取其 URL 的任何站点。
Private Sub GetWebs()
Dim myWebs As Webs
Dim myWeb As WebEx
Dim myOpenWebs() As Variant
Dim i As Integer
Dim myWebCount As Integer
Set myWebs = Application.Webs
myWebCount = myWebs.Count
ReDim myOpenWebs(myWebCount)
Do
For Each myWeb In myWebs
myOpenWebs(i) = myWeb.Url
i = i + 1
Next
Loop Until i > myWebCount
End Sub