Excel гиперссылка на html с идентификатором фрагмента не работает

Question

Я хочу, чтобы ячейка в электронной таблице Excel связывалась с HTML-документом, используя URL-адрес с идентификатором фрагмента (т. Е. Hash-mark, за которым следует идентификатор, который является значением атрибут name в элементе привязки: «MyDoc.html # MyFragmentIdentifier»).

Я пробовал использовать диалог Insert Hyperlink и функцию HYPERLINK. В обоих случаях идентификатор фрагмента игнорируется; документ HTML открывается вверху, но не прокручивается до именованного идентификатора. Фактически, идентификатор не отображается в адресной строке веб-браузера - просто адрес страницы - поэтому я предполагаю, что идентификатор фрагмента никогда не передается в браузер в первую очередь.

Я установил свой браузер по умолчанию для Chrome, IE и Firefox, но все это не так - то же самое поведение во всех случаях.

Есть ли способ заставить Excel правильно открыть браузер?

Answer 1

Когда вы создаете гиперссылку с помощью щелчка правой кнопкой мыши, Hyperlink вы устанавливаете «дружественное имя» в Text to display:, а затем URL-адрес вниз на страницу в Address:. Наконец, вы нажимаете Закладка и дайте Вставить гиперссылку мастер разрешит адрес и предоставит вам список закладок.

Мастер Вставки Гиперссылки имеет проблемы с разрешением закладок с некоторых страниц; в частности динамический контент или контент за именем пользователя/паролем. В этом случае связь может быть создана в VBA через параметры .Hyperlink.AddAddress:=<url> и .SubAddress:=<page bookmark.

Answer 2

Похоже, что проблема с гиперссылками, содержащими «#», возникает, когда 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