vba - 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