如何使用chrome在excel中按顺序打开超链接

Question

我有一个代码可以从 chrome 中的 excel 工作表中打开超链接。它工作得很好，但是我注意到一个奇怪的行为，它不是从上到下打开超链接，而是使用一些标准我不明白它不是随机的，因为在测试时我注意到它总是以相同的顺序打开链接即

超链接 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