在Excel中使用VBA打开超链接(运行时错误9)

Question

我正在尝试使用VBA使用以下代码从我的Excel中打开超链接:

numRow = 1
Do While WorksheetFunction.IsText(Range("E" & numRow))
    ActiveSheet.Range("E" & numRow).Hyperlinks(1).Follow
    numRow = numRow + 1
Loop

但是,我一直Runtime Error 9: Subscript out of range在跟踪超链接的代码中.

我对VBA宏制作非常陌生(因为之前没有做过),所以请帮助我们.(如果有更好的方法从单个列中的每个单元格打开链接,我也很感激了解这一点)

编辑(添加更多信息)

有问题的超链接已使用HYPERLINK工作表功能创建,文本不显示链接URL.工作表数据的示例如下所示:

它看起来像什么

案例 ------ 链接 案例
1 -----
案例摘要案例2 -----案例摘要案例3
-----总结

但是,显示文本"摘要"的单元格包含公式

=HYPERLINK("whateverthebaseurlis/"&[@[Case]]&"/Summary", "Summary")

这是必须遵循的链接.链接有效,可以手动跟踪.但我需要通过宏来做到这一点

谢谢

Answer 1

可能是因为你有一些带有文本但没有链接的单元格而得到错误!

检查链接而不是单元格是否为文本:

numRow = 1
Do While ActiveSheet.Range("E" & numRow).Hyperlinks.Count > 0
    ActiveSheet.Range("E" & numRow).Hyperlinks(1).Follow
    numRow = numRow + 1
Loop