excel - 批量打开超链接每个链接打开两次

Question

当我在选定的超链接列上运行此宏时，会为每个链接打开两个选项卡。

Sub BatchOpenHyperLinks_SelectedRanges()
    Dim objSelectedRange As Excel.Range
    Dim objHyperlink As Excel.Hyperlink

    'Get selected ranges
    Set objSelectedRange = Excel.Application.Selection
    For Each objHyperlink In objSelectedRange.Hyperlinks
        objHyperlink.Follow
    Next
End Sub

标签： excelvba

Answer 1

检查您的选择。我对此进行了测试，只打开了一个标签：

Sub BatchOpenHyperLinks_SelectedRanges()
    Dim thisHyperlink As Hyperlink
    For Each thisHyperlink In Selection.Hyperlinks
        thisHyperlink.Follow
    Next
End Sub