需要進行澄清以避免VBA中的遞歸

Question

在成功從中檢索數據後關閉應用程序後，它會遞歸打開並且無法關閉它。請澄清爲什麼會發生這種情況。

Sub macro() 
    Dim appIE As Object 
    Dim objElement As Object 
    Dim Y As Long 
    Dim obj As Object 
    Dim r As Long, c As Long, t As Long 
    Dim sathish As String 

    Dim objCollection As Object 
    Dim eRow As Long 

    ' Create InternetExplorer Object 
    Set appIE = CreateObject("InternetExplorer.Application") 

    With appIE 
     appIE.Visible = False 
     appIE.navigate "website" 

     Do While appIE.Busy Or appIE.ReadyState <> 4 
      DoEvents 
     Loop 

     appIE.Visible = True 
     appIE.document.getElementById("Username").Value = "" 
     appIE.document.getElementById("Password").Value = "" 
     appIE.document.getElementById("btnSubmit").Click 

     Number = Range("A1", Range("A1").End(xlDown)).Rows.Count 
     Number = 10 

     For Y = 1 To Number 
      sathish = Cells(Y, 1).Value 
      appIE.document.getElementById("__tab_tabFilter").Click 
      appIE.document.getElementById("filter_ReferenceCode").Value = sathish 
      appIE.document.getElementById("filter_btnSetFilter").Click 
      'Set IE = Nothing 
      Set objCollection = appIE.document.getElementsByTagName("TABLE") 

      For t = 10 To (objCollection.Length - 1) 
       For r = 0 To (objCollection(t).Rows.Length - 1) 
        eRow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 

        For c = 0 To (objCollection(t).Rows(r).Cells.Length - 1) 
         ThisWorkbook.Worksheets(2).Cells(eRow, c + 1) = objCollection(t).Rows(r).Cells(c).innerText 
        Next c 
       Next r 

       If t = objCollection.Length - 1 Then 
        Cells(eRow + 1, 1) = "" 
       End If 
      Next t 
     Next Y 
    End With 
    ' Set IE = Nothing 
End Sub 

Answer 1

我想知道......文檔上的'點擊'可能是在新的瀏覽器窗口/選項卡中打開文檔？