我希望 Excel 电子表格中的一个单元格使用带有片段标识符（即哈希标记，后跟一个标识符，该标识符是锚元素中名称属性的值：'MyDoc .html#MyFragmentIdentifier')。
我尝试过使用“插入超链接”对话框和 HYPERLINK 功能。在这两种情况下，片段标识符都会被忽略； HTML 文档在顶部打开，但不会滚动到指定的标识符。事实上，标识符并没有出现在网络浏览器的地址栏中——只是页面的地址——所以我假设片段标识符一开始就没有传递给浏览器。
我已将默认浏览器设置为 Chrome、IE 和 Firefox，但均无济于事——在所有情况下都是相同的行为。
有没有办法强制 Excel 正确打开浏览器？
【问题讨论】：
看起来当 Excel 创建超链接时会出现包含“#”的超链接的问题，但我能够通过修改 Excel 对象模型中现有的包含哈希标记的超链接来解决这个问题。自动执行此操作，试试这个：
Sub Make_Column_A_into_hyperlinks_hashmarkworkaround()
'Column "A" contains the text of links to some files.
'This subroutine will turn those cells into Excel hyperlinks...
'...and then correct the hyperlinks in case Excel misinterpreted
'a # mark which had originally occurred in the filename.
'Because I'm using selection.End(xlDown).Select to find the complete list,
'this program does not tolerate any blanks in the "A" column list.
'Note that I don't add a hyperlink in Row 1.
Dim A As Object
Dim lngRow As Long
Dim Height As Long
With ActiveSheet
.Cells(1, 1).Select
Selection.End(xlDown).Select
Height = Selection.Row
For lngRow = 2 To Height
.Hyperlinks.Add Anchor:=ActiveSheet.Cells(lngRow, 2), Address:=Chr(34) & ActiveSheet.Cells(lngRow, 1).Value & Chr(34), TextToDisplay:="Open", _
ScreenTip:=Chr(34) & ActiveSheet.Cells(lngRow, 1).Value & Chr(34)
Next
For Each A In ActiveSheet.Hyperlinks
If A.ScreenTip <> "" Then
If InStr(1, A.ScreenTip, "#") <> 0 Then
A.Address = Mid(A.ScreenTip, 2, Len(A.ScreenTip) - 2)
End If
End If
Next
End With
End Sub
【讨论】：
当您通过右键单击创建超链接时，超链接您在Text to display: 中设置“友好名称”，然后在Address: 中将URL 设置为页面。最后，您单击 Bookmark 并让 Insert Hyperlink 向导解析地址并为您提供书签列表。
插入超链接向导无法解析某些页面的书签；特别是动态内容或用户名/密码后面的内容。在这种情况下，可以通过.Hyperlink.Add 方法的Address:=<url> 和.SubAddress:=<page bookmark 参数在VBA 中创建链接。
【讨论】：
name=<bookmark> 是什么？
SubAddress:=... 参数中使用 name 属性，并且 not 包含井号（例如 #）；一个常见的错误。我还发现在单个 HTML 文档中多次使用的名称存在问题。