VBA将Hyperlink打开成一个新的浏览器实例

Question

我在excel中创建一个列表从A2到A22， 在这个范围的每个单元格中，我有一个超链接，我需要循环所有单元格并打开她的链接。 简单？！？！？或多或少，对我来说，轻松编写代码比这个步骤：

Sub PlayAllVideo()
For Each cl In Range("A2:A22")
    cl.Select
    Selection.Hyperlinks(1).Follow NewWindow:=True, AddHistory:=True
Next cl
End Sub

但我的代码工作错误，因为播放所有记录我需要一个浏览器实例，而不是同一实例中的所有选项卡。 参数NewWindow添加一个标签，如果我想打开一个新的浏览器实例我该怎么做？

Answer 1

要绕过重复使用标签或创建新标签的浏览器，只需每次都创建自己的IE实例：

conda

Answer 2

问题可能出在浏览器端。我尝试使用Firefox和Internet Explorer，更改浏览器设置后问题得以解决。但是，解决方案并不完美，因为它始终打开新窗口，无论VBA中的NewWindow设置如何。

假设您正在使用Firefox，我遇到了相同的行为，直到我关闭了“在新选项卡中打开新窗口”选项。之后，每个超链接都在一个单独的窗口中打开。

对于Internet Explorer，在“Internet选项”下>标签设置＆gt;从其他程序打开链接已更改为新窗口而不是新选项卡。