全部显示

FollowHyperlink 方法

FollowHyperlink 方法可打开由超链接地址指定的文档或 Web 页。

expression  必需。返回“Applies To”列表中的一个对象的表达式。

Address  必需，String 型。确定有效超链接地址的字符串表达式。

SubAddress  可选，String 型。字符串表达式，用于确定由 address 参数指定的文档中的命名位置。默认值为空字符串 (" ")。

NewWindow  可选，Boolean 型。Boolean 值，该值为 True (–1) 时，将在新窗口中打开文档；该值为 False (0) 时，则在当前窗口中打开文档。默认值为 False。

AddHistory  可选，Boolean 型。Boolean 值，该值为 True 时，将添加指向“历史记录”文件夹的超链接，该值为 False 时，则不添加指向“历史记录”文件夹的超链接。默认值为 True。

ExtraInfo  可选，Variant 型。字符串或 Byte 数据数组，用于指定定位到超链接的其他信息。例如，该参数可以用来为 .ASP 或 .IDC 文件指定搜索参数。在 Web 浏览器中，extrainfo 参数可能出现在超链接地址后，并用问号 (?) 与地址分开。指定 extrainfo 参数时，不包括问号。

Method  可选，MsoExtraInfoMethod。Integer 值，用于指定附加 extrainfo 参数的方式。method 参数可以是下列固有常量之一。

HeaderInfo  可选 String 型。 用于指定页眉信息的字符串。默认情况下，headerinfo 参数是空字符串。

说明

通过使用 FollowHyperlink 方法，可以跟随一个不存在于控件中的超链接。该超链接可以由您或其他用户提供。例如，可以提示用户在对话框中输入超链接地址，然后使用 FollowHyperlink 方法来跟随该超链接。

浏览到某个超链接时，可以使用 extrainfo 和 method 参数来提供其他信息。例如，可以为搜索引擎提供参数。

可以使用 Follow 方法来跟随与控件相关联的超链接。

示例

下列函数提示用户输入一个超链接地址，然后跟随该超链接：

Function GetUserAddress() As Boolean
    Dim strInput As String

    On Error GoTo Error_GetUserAddress
    strInput = InputBox("Enter a valid address")
    Application.FollowHyperlink strInput, , True
    GetUserAddress = True

Exit_GetUserAddress:
    Exit Function

Error_GetUserAddress:
    MsgBox Err & ": " & Err.Description
    GetUserAddress = False
    Resume Exit_GetUserAddress
End Function

可以用以下的过程来调用该函数：

Sub CallGetUserAddress()
    If GetUserAddress = True Then
        MsgBox "Successfully followed hyperlink."
    Else
        MsgBox "Could not follow hyperlink."
    End If
End Sub