Do Until InStr(.document.body.innerhtml, "pnlResult") > 0
DoEvents
Loop
Set A = .document.getelementbyid("pnlResult")
Do Until InStr(result, "Remarks:") > 0
DoEvents
result = A.innerhtml
Loop
Debug.Print Cells(i, 1)
Next i
End With
End Sub
複製代碼
最初運行是沒有問題,但當我的LOOPING行了十多次後,我就會遇到ERROR,說我「沒有使用權限」,然後程式便在「Set A = .document.getelementbyid("pnlResult")」停止。如果我在此時按F8,程式是可以繼續運行。
於是我在想是不是因為我的上一句:「.document.getelementbyid("btnSearch").Click」,網頁redirect到結果網頁,需要時間產生html code,導致我行 set A那一句時,網頁還沒有pnlResult的item。於是我便加上了:
Do Until InStr(.document.body.innerhtml, "pnlResult") > 0