Как открыть гиперссылки в excel в порядке с использованием хрома

Question

У меня есть код для открытия гиперссылок с листа excel в chrome. он работает очень хорошо, однако я заметил странное поведение, он открывает гиперссылки не из-за сверху вниз, но используя некоторые критерии, я не понимаю, что это не случайно, потому что при тестировании я заметил, что он всегда открывал ссылки в том же порядке т.е.

гиперссылка 1 гиперссылка 2 гиперссылка 3 гиперссылка 4 гиперссылка 5

Это будет всегда открыты

гиперссылка 2 гиперссылка 1 гиперссылка 3 гиперссылка 4 гиперссылка 5

Каждый раз, когда я запускал код, который он открывал в этом порядке, мне нужно его, чтобы открыть гиперссылки в порядке сверху вниз. Вот код

Sub Open_HyperLinks() 
    Dim chromePath As String, hl As Hyperlink 

    chromePath = Environ("PROGRAMFILES(X86)") & "\Google\Chrome\Application\chrome.exe" 
If Selection.Count > 1 Then 
    Selection.SpecialCells(xlCellTypeVisible).Select 
End If 
    'On Error Resume Next 
    For Each hl In Selection.Hyperlinks 
     Shell chromePath & " -url " & hl.Address 
     Next hl 
End Sub 

Answer 1

Don't use .Select, так как это может вызвать проблемы.

Это работает для вас?

Sub Open_HyperLinks() 
Dim chromePath As String, hl As Hyperlink 
Dim rng As Range, visRng As Range 

chromePath = Environ("PROGRAMFILES(X86)") & "\Google\Chrome\Application\chrome.exe" 

Set rng = Selection 

If rng.Count > 1 Then 
    Set visRng = rng.SpecialCells(xlCellTypeVisible) 
End If 
'On Error Resume Next 
For Each hl In visRng.Hyperlinks 

    Shell chromePath & " -url " & hl.Address 
Next hl 
End Sub