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 

Но, как всегда, я рекомендую вам рассмотреть возможность использования С/End With вместо Set.

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