So öffnen Sie Hyperlinks in Excel in der Reihenfolge mit Chrom

Question

Ich habe einen Code zum Öffnen von Hyperlinks von einem Excel-Blatt in Chrom. Es funktioniert gut, aber ich habe ein seltsames Verhalten bemerkt, es öffnet die Hyperlinks nicht von oben nach unten, aber mit einigen Kriterien verstehe ich nicht, es ist nicht zufällig, weil beim Testen bemerkte ich, dass es immer die Links in der gleichen Reihenfolge geöffnet dh

Hyperlink 1 Hyperlink 2 Hyperlink 3 Hyperlink 4 Hyperlink 5

Es würde immer offen

Hyperlink 2 Hyperlink 1 Hyperlink Hyperlink 3 4 5 Hyperlink

Jedes Mal, wenn ich den Code ausführte, öffnete er sie in dieser Reihenfolge. Ich brauche sie, um die Hyperlinks von oben nach unten zu öffnen. Hier ist der Code

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, da es Probleme verursachen kann.

Funktioniert das für Sie?

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