Laura希望在工作表中包括一个超链接。但是，她希望超链接“强制” URL的目标在特定浏览器中显示。例如，她希望通过超链接以某种方式指定在Internet Explorer中打开目标。

在Excel中无法执行此操作。单击工作表中的超链接时，它取决于所使用系统上默认的浏览器。但是，有一种解决方法可以尝试：您可以创建一个宏，该宏实际上使用特定的浏览器打开目标地址。

例如，考虑以下宏。它会自动打开Internet Explorer实例并在该浏览器中打开网站：

Sub LaunchIE()

Dim IE As Object     Set IE = CreateObject("InternetExplorer.Application")

IE.navigate "http://excel.tips.net/"

IE.Visible = True     Set IE = Nothing End Sub

可以轻松地将宏分配给快捷方式或工具栏按钮。

但是，当涉及使用哪个浏览器（始终是Internet Explorer）和显示哪个站点（始终是_ExcelTips_站点）时，它并不是十分灵活。您可以通过以下方式使其更加灵活：

Sub showURL(browser As String, URL As String)

Dim pPath As String     Dim bPath As String

'Use this to resolve the correct program file path     'it is different on 32-bit and 64-bit systems     pPath = Environ("ProgramFiles")



If browser = "Firefox" Then         bPath = pPath & "\Mozilla Firefox\Firefox.exe"

ElseIf browser = "IE" Then         bPath = pPath & "\Internet Explorer\iexplore.exe"

Else         Exit Sub     End If

Call Shell(bPath & " " & URL, vbNormalFocus)

End Sub
Sub Testing()

Call showURL("Firefox", "/")

Call showURL("IE", "http://excel.tips.net")

End Sub

请注意，主例程showURL是完成所有工作的例程，可以与Internet Explorer或Firefox一起使用。测试例程显示了如何启动浏览器。您所需要做的就是指定所需的浏览器以及要在该浏览器中打开的URL。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（9835）适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面（Excel 2007及更高版本）找到本技巧的版本：

在超链接中指定浏览器。