Navigate2 Debugging

Question

Я пытаюсь создать макрос через VBA, чтобы открыть указанный набор ссылок в нескольких вкладках в IE. В настоящее время я использую код ниже, и он работает большую часть времени, если я пытаюсь открыть 3 или менее вкладки. Что-то большее, чем 3, код выходит из строя в разделе «Навигация». После некоторых исследований я не могу найти общую проблему или решение для этого. Код выглядит так, как показано ниже (ссылки были удалены по понятным причинам).

Любая помощь была бы принята с благодарностью.

Sub USD_ILB() 
    Dim strURL As String 
    Dim file_date As String 
    Dim objIE As Object 
    Dim arrSites(4) 

    file_date = Format(Cells(1, 2), "dd.mm.yyyy") 

    arrSites(0) = "URL1" 
    arrSites(1) = "URL2" 
    arrSites(2) = "URL3" 
    arrSites(3) = "URL4" 
    arrSites(4) = "URL5" 
    Set objIE = CreateObject("InternetExplorer.Application") 
    For i = 0 To 4 Step 1 
    strURL = arrSites(i) 
    If i = 0 Then 
     objIE.Navigate strURL 
    Else 
     objIE.Navigate2 strURL, 2048 
    End If 
    Next i 
    objIE.Visible = True 
    Set objIE = Nothing 

End Sub 

Answer 1

Вы можете попробовать добавить проверку, занят ли IE.

For i = 0 To 4 Step 1 
    Do While objIE.Busy 
     DoEvents 
    Loop 
    strURL = arrSites(i) 
    If i = 0 Then 
     objIE.Navigate strURL 
    Else 
     objIE.Navigate2 strURL, 2048 
    End If 
Next i 

Answer 2

Что касается 2048 в objIE.Navigate2 strURL, 2048

Выдержки из Microsoft Developer Network, MSHTML Reference, IWebBrowser2

object.Navigate2(URL, Flags, TargetFrameName, PostData, Headers) 

Flags [in, optional] 
.. a combination of the values defined by the BrowserNavConstants enumeration 

Enum BrowserNavConstants: ... navOpenInNewTab = 2048 ...