如何在 Excel 中创建指向 HTML 文件特定部分的超链接？

Question 1

试试这个。每行都需要两列。第一列包含每行书签的名称。第二列包含指向书签本身的超链接。

要为多行插入自引用超链接，请运行如下宏：

Sub AddHyperlinksPointingToOwnCell()

   For i = 1 To 100

   Range("A" & i).Select
   ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
       "Sheet1!A" & i, TextToDisplay:="Click Here!"

   ActiveCell.Offset(1, 0).Select

   Next i

End Sub

现在您需要一个子程序来打开浏览器到正确的位置。编辑此文件以确保文件和浏览器路径正确：

Sub GoToBookmark()

    Dim ThisRow As Integer
    Dim ThisCol As Integer
    Dim BookmarkName As String

    ThisRow = ActiveCell.Row
    ThisCol = ActiveCell.Column
    BookmarkName = Cells(ThisRow, ThisCol - 1).Value
        'This is looking in the cell to the left for the bookmark name

    If BookmarkName = "" Then
        Exit Sub
    End If

    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & _
        "C:\PathRoot\Folder\filename.html#" & BookmarkName & ", vbNormalFocus"

End Sub

最后，您需要为包含列表的工作表添加 Worksheet_FollowHyperlink 事件：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Run ("GoToBookmark")
End Sub

希望这样可以做到！

Answer

试试这个。每行都需要两列。第一列包含每行书签的名称。第二列包含指向书签本身的超链接。

要为多行插入自引用超链接，请运行如下宏：

Sub AddHyperlinksPointingToOwnCell()

   For i = 1 To 100

   Range("A" & i).Select
   ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
       "Sheet1!A" & i, TextToDisplay:="Click Here!"

   ActiveCell.Offset(1, 0).Select

   Next i

End Sub

现在您需要一个子程序来打开浏览器到正确的位置。编辑此文件以确保文件和浏览器路径正确：

Sub GoToBookmark()

    Dim ThisRow As Integer
    Dim ThisCol As Integer
    Dim BookmarkName As String

    ThisRow = ActiveCell.Row
    ThisCol = ActiveCell.Column
    BookmarkName = Cells(ThisRow, ThisCol - 1).Value
        'This is looking in the cell to the left for the bookmark name

    If BookmarkName = "" Then
        Exit Sub
    End If

    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & _
        "C:\PathRoot\Folder\filename.html#" & BookmarkName & ", vbNormalFocus"

End Sub

最后，您需要为包含列表的工作表添加 Worksheet_FollowHyperlink 事件：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    Run ("GoToBookmark")
End Sub

希望这样可以做到！

Question 2

这是另一个解决方案，如果您不想使用 VBA 编码，您仍然可以使用 Excel 函数“超链接”。以下是分步指南。

在线文件：步骤 1：假设您的文件名是：http://en.wikipedia.org/wiki/Intel_Core
步骤 2：现在在 A1:A4 Core_Duo
Core_Solo
Core_2_Duo
Core_i7 中添加锚点名称
步骤 3：在单元格 B2 中输入以下内容：

=HYPERLINK("http://en.wikipedia.org/wiki/Core_i3#"&A2,"A2")

步骤 4：单击并拖动以应用于其余单元格，
测试有效！！！

Answer

这是另一个解决方案，如果您不想使用 VBA 编码，您仍然可以使用 Excel 函数“超链接”。以下是分步指南。

在线文件：步骤 1：假设您的文件名是：http://en.wikipedia.org/wiki/Intel_Core
步骤 2：现在在 A1:A4 Core_Duo
Core_Solo
Core_2_Duo
Core_i7 中添加锚点名称
步骤 3：在单元格 B2 中输入以下内容：

=HYPERLINK("http://en.wikipedia.org/wiki/Core_i3#"&A2,"A2")

步骤 4：单击并拖动以应用于其余单元格，
测试有效！！！

Question 3

如果我理解你的问题很好，这里有一个解决方法来源=这里解决方法要解决此问题，请使用下列方法之一。方法 1

使用不包含井号的名称重命名该文件，然后编辑或重新创建超链接。

有关如何在 Windows 中重命名文件的详细信息，请参阅 Windows 印刷文档或联机帮助。

要编辑超链接，请按照以下步骤操作：

对于 Office 2003 和更早版本的 Office：右键单击包含问题超链接的单元格。在出现的快捷菜单上，指向“超链接”，然后单击“编辑超链接”。在“键入文件或网页名称”框中，键入要链接到的文件的名称。如果您不知道文件的名称，请单击“文件”并浏览到该文件。单击“确定”。

对于 Office 2007 和 Office 2010 程序：右键单击包含问题超链接的单元格，然后指向“编辑超链接”。在“地址”框中，键入要链接到的文件的名称。如果您不知道文件的名称，请使用“查找范围...”行上的搜索工具来查找该文件。选择该文件，然后单击“确定”。方法 2

使用粘贴为超链接命令：

对于 Office 2003 及更早版本：打开您要链接到的文档（其名称中包含 # 符号）。复制要链接到的单元格。在文档中的“编辑”菜单上，单击“粘贴为超链接”。

对于 Office 2007 和 Office 2010 程序：打开您要链接到的文档。这是名称中包含 # 符号的文档。复制要链接到的单元格。在文档中，单击要显示超链接的单元格。在“开始”选项卡上，单击“剪贴板”组中“粘贴”下方的箭头，然后单击“粘贴为超链接”

如果你使用 VBA 代码，这一行可能会有帮助，我已经测试过了。它在 chrome 和 Firefox 中都可以工作
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= "C:\path\to\your\file.htm", SubAddress:="nameOfYourAnchor", TextToDisplay:= "要显示的文本")

这里是 nameOfYourAnchor没有 #Sym 例如如果你的链接是C:/Users/[User]/Desktop/Intel Core - 维基百科，自由的百科全书.htm#Core_i3您的代码将是（ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= "C:/Users/User/Desktop/Intel Core - Wikipedia, the free encyclopedia.htm", SubAddress:="Core_i3", TextToDisplay:= "要显示的文本"）
希望这能有所帮助。

Answer