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培训的来源。

本技巧(9836)适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本: