Visual Basic OpenLinks Excel

Question

使用下面的代码在我的文档的A列中打开一串链接，在打开链接后等待3秒，然后移动到下一个链接，而不是打开一个新窗口或选项卡I希望它只是使用已经打开的窗口。

Sub OpenLinks() 

For Each vCell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row) 
Set oIE = CreateObject("InternetExplorer.Application") 
oIE.Visible = True 
oIE.Navigate (vCell.Value) 
Next vCell 

End Sub 

Answer 1

试试这个：

Sub OpenLinks() 

Set oIE = CreateObject("InternetExplorer.Application") 

For Each vCell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row) 
    oIE.Visible = True 
    oIE.Navigate (vCell.Value) 
    Application.Wait (Now + TimeValue("0:00:3")) 
Next vCell 

End Sub 

但是，一如既往，我建议你考虑使用带/尾随着，而不是设置。

Sub OpenLinks() 

With CreateObject("InternetExplorer.Application") 

For Each vCell In Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row) 
    .Visible = True 
    .Navigate (vCell.Value) 
    Application.Wait (Now + TimeValue("0:00:3")) 
Next vCell 

End With 

End Sub