Visual Basic OpenLinks Excel

Question

次のコードを使用して、リンクを開いた後3秒待ってから新しいウィンドウまたはタブを開くのではなく、次のコードを使用してリンク先のA列にリンクを開きますすでに開いているウィンドウを使いたいと思っています。

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

このお試しください：いつものように私はあなたの代わりにセットのでは/ ENDで使用することを検討してお勧めします、

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