VBA 코드 - 4 번째 루프에서 멈춤

Question

웹 사이트를 열고 위치를 선택하고 HTML 표를 Excel 시트로 복사 한 다음 다른 위치에서 반복해야하는 코드가 있습니다. 그러나 'For'루프를 실행하면 4 번째 반복에서 오류가 발생합니다. 메시지에 "개체 변수 또는 With 블록 변수가 설정되지 않았습니다." 디버그 도구가 44 번째 줄을 가리키고 있습니다.

Sub ParseTable() 
    Dim IE As InternetExplorer 
    Dim htmldoc As MSHTML.HTMLDocument 'Document object 
    Dim eleColtr As MSHTML.IHTMLElementCollection 'Element collection for tr tags 
    Dim eleColtd As MSHTML.IHTMLElementCollection 'Element collection for td tags 
    Dim eleRow As MSHTML.IHTMLElement 'Row elements 
    Dim eleCol As MSHTML.IHTMLElement 'Column elements 
    Dim ieURL As String 'URL 
    Dim x As Integer 
    Dim y As String 

y = "A1" 

For x = 1 To 4 
    If x <> 2 Then 'Skip iteration 2 
     Set IE = New InternetExplorer 
     IE.Visible = True 
     Application.ScreenUpdating = False 

     ieURL = "***" 
     IE.navigate ieURL 
'Wait 
     Do While IE.Busy Or IE.readyState <> 4 
      DoEvents 
     Loop 

     Set htmldoc = IE.document 'Document webpage 

     Do While IE.Busy Or IE.readyState <> 4 
      DoEvents 
     Loop 

    IE.document.getElementById("ddlLevel1").selectedIndex = x 
    IE.document.getElementById("ddlLevel1").FireEvent ("onchange") 
    Do While IE.Busy Or IE.readyState <> 4 
     DoEvents 
    Loop 
    Set eleColtr = IE.document.getElementsByTagName("tr") 'Find all tr tags 

    'This section populates Excel 
      i = 0 'start with first value in tr collection 
      For Each eleRow In eleColtr 'for each element in the tr collection 
       Set eleColtd = IE.document.getElementsByTagName("tr")(i).getElementsByTagName("td") 'get all the td elements in that specific tr 
       j = 0 'start with the first value in the td collection 
       For Each eleCol In eleColtd 'for each element in the td collection 
        Sheets("Sheet1").Range(y).Offset(i, j).Value = eleCol.innerText 'paste the inner text of the td element, and offset at the same time 
        j = j + 1 'move to next element in td collection 
       Next eleCol 'rinse and repeat 
       i = i + 1 'move to next element in td collection 
      Next eleRow 'rinse and repeat 
      Sheets("Sheet1").Range(y).Offset(i, 0).Select 
      y = "A" & ActiveCell.Row 
      IE.Quit 
     End If 
Next x 
Application.ScreenUpdating = True 
End Sub 

가능한 원인을 파악하지 못했습니다. 나는 Excel 시트의 처음 4 개 위치 (위치 2 제외)에서 테이블을 가져 왔습니다. 내 길고 비효율적 인 코드를 용서해주십시오 (저는 프로그래머가 아닙니다). 내가 사용하는 웹 페이지에는 로그인이 필요하고 기밀 데이터가 있지만 가능한 한 많은 정보를 제공하려고 노력할 것입니다. 어떤 도움을 주셔서 미리 감사드립니다!

Answer 1

이 문제는 처리하기 전에 IE.Busy을 기다리는 많은 예제에서 발생합니다. 문제는 문서 모델이 아직 형성되지 않았기 때문에 개체 모델의 요소에 액세스하려고하면 오류가 발생한다는 것입니다.

가장 안전한 방법은 객체가 존재할 때까지 실제로 루프하는 것입니다. 당신이 사실을 알고 있다면 그것이 각 문서에 나타날 것입니다. 안전을 원할 경우 오류 메시지로 중지하기 전에 수행하는 검사 수에 제한을 추가 할 수 있습니다.

은 (는 문제 라인 인 경우)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 

다음이 약간 지연 및 DoEvents으로

Set eleColtr = IE.document.getElementsByTagName("tr") 

을이 라인을 대체 모듈의 상단이 추가 - 다음 루프를 확인하기 위해 tr 요소

DoEvents 
Sleep 1000 ' delay once second 
Do 
    DoEvents 
    Sleep 500 ' delay half a second 
Loop Until not IsNull(IE.document.getElementsByTagName("tr")) 

무한 루프가 발생하여 tr 요소를 찾지 못하면 cou 시도

의 수에 nter는 또한 '0 = Sleep 500