काम नहीं कर रहा ie.busy अच्छी तरह से [VBA]

Question

मैं उपयोग कर रहा हूँ:

While ie.busy 
DoEvents 
Wend 

' Some Code 

मेरी कोड में एक ठहराव को जोड़ने के लिए है, जबकि इंटरनेट एक्सप्लोरर के रिफ्रेश। लेकिन ऐसा लगता है कि यह अच्छी तरह से काम नहीं कर रहा है। 'कुछ कोड भाग पूर्व-परिपक्व रूप से निष्पादित हो रहा है और एक त्रुटि फेंक रहा है।

मैंने अन्य विधियों का भी उपयोग करने का प्रयास किया है। उदाहरण के लिए

Errorhandler: 

While ie.busy 
DoEvents 
Wend 

On Error Goto Errorhandler 
'Some Code 

लेकिन यह भी काम नहीं कर रहा है और कभी-कभी कोड को परिपक्व रूप से पूर्ववत किया जाता है।

कृपया एक अचूक विकल्प

Answer 1

ie.busy के लिए हमारी कोड में सुझाव देते हैं, ie.Busy (InternetExplorer.Application वस्तु) बहुत विश्वसनीय नहीं है। यहां हम उपयोग करते हैं और काम करते हैं:

Enum READYSTATE 
    READYSTATE_UNINITIALIZED = 0 
    READYSTATE_LOADING = 1 
    READYSTATE_LOADED = 2 
    READYSTATE_INTERACTIVE = 3 
    READYSTATE_COMPLETE = 4 
End Enum 

Dim strUrl 
Dim ie As Object 

Set ie = CreateObject("InternetExplorer.Application") 
'.... 
' do navigation... 
' 
strUrl = "http://www.example.com/" 
ie.Navigate strUrl 

' 
' waiting for the ie complete loading: 
' 
Do While (ie.Busy Or ie.READYSTATE <> READYSTATE.READYSTATE_COMPLETE) 
    DoEvents 
Loop 

' 
' here below you do stuffs on the new loaded URL: 
' 

आप कोशिश कर सकते हैं।