如何在 excel activeX Web 浏览器控件中打开超链接

Question

我在一个列中有多个网页超链接，我想通过单击超链接在 activeX Web 浏览器控件中打开它们，因为如果我为每个单元格创建命令按钮或如果有任何其他单元格将花费更多时间这样做的可能性。检查例如。附上屏幕截图

第一屏

2号画面

Answer 1

您可以通过添加前缀（如“MyLink:”）来创建自己的超链接。双击这些单元格会将地址加载到浏览器控件。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    ' Define Your Own Weblink identifier
    Dim MYLINKPREFIX As String
    MYLINKPREFIX = "MyLink:"
    ' Check if the value of the doubleclicked cell is one of your "weblinks"
    Dim isMyLink As Boolean
    isMyLink = (Left(Target.Value, Len(MYLINKPREFIX)) = MYLINKPREFIX)
    ' If its one of your links, cut out the address, paste it to the browser control.
    ' At the end cancel the double click event of the cell, to avoid going into cell-edit mode.
    If (isMyLink) Then
        Dim TargetAddress As String
        TargetAddress = Right(Target.Value, Len(Target.Value) - Len(MYLINKPREFIX))
        WebBrowser1.Navigate TargetAddress
        Cancel = True   ' Cancel the Double Click to avoid edit mode
    End If
End Sub

检查单元格值是否以您的前缀开头。在工作表内的单元格双击事件中执行此操作。如果单元格值以“Mylink:”前缀开头，您可以去掉前缀文本，同时保留地址名称。

获取此地址名称并使用浏览器控件将其打开。

如果它是您的客户网址之一，请取消 Doubleclick 事件以避免单元格编辑模式，因为您只想查看该网页。

与其取消像“MyLink:”这样的长前缀，我建议使用像“>”这样的短标记。前缀只是为了防止 excel 自行从值生成超链接。

如何在 excel activeX Web 浏览器控件中打开超链接

How to open hyperlink in excel activeX Web browser control

excel

vba

activex

hyperlink

webbrowser-control