Navigate2调试

Question

我正在尝试通过VBA创建一个宏，以便在IE的多个选项卡中打开一组指定的链接。目前我正在使用下面的代码，如果我试图打开3个或更少的标签，它在大多数情况下都是有效的。任何大于3的值，代码都会在"Navigate2“部分崩溃。经过一些研究，我似乎找不到一个共同的问题或解决方案。代码如下所示(由于显而易见的原因，链接已被删除)。

任何帮助都将不胜感激。

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

关于objIE.Navigate2 strURL, 2048中的2048

摘自Microsoft Developer Network、MSHTML参考、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 ...