Webs 属性

       

返回指定对象已打开站点的集合。

示例

本示例创建数组,该数组包含 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