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