some kind of document complete 2

[alreadyinuse3000]

hi there,

a couple weeks ago i postet a question about loading IE-Content into Excel.

My problem is now, that it doesnt load the content into the dashboard since the browser is not fully loaded. (failure 8010040)

When googeling for help I always found a codeline called DocumentComplete which is unfortunately for Delphi.

My question: Is there something for VBA as well?
(Do: Loop Until IEApp.busy = False doesnt work for ExecWB)

Sub scanner()

myUrl = "

http://dict.leo.org/frde"

Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Navigate myUrl
Do: Loop Until IEApp.busy = False
Do: Loop Until IEApp.busy = False
IEApp.Visible = True

IEApp.Document.All.Search.Value = "je"

SendKeys "{TAB} + {Enter} + {Enter}", True

' Do: Loop Until IEApp.busy = False

IEApp.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT

ActiveSheet.PasteSpecial

End Sub




Many thanks
AIU

 

[CautionMP]

alreadyinuse3000,

[tt]While objIE.Busy: Wend
While objIE.Document.ReadyState <> "complete": Wend[/tt]

Hope this helps,
CMP

[small]For the best results do what I'm thinking, not what I'm saying.[/small]
(GMT-07:00) Mountain Time (US & Canada)

 

[PHV]

What about this ?
Do: Loop Until IEApp.ReadyState = 4

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[alreadyinuse3000]

Thank you both for your help.

I tried both "waiting-statements" (as well as my old one) but vba still gives me the error.(failure 8010040)

Even activating the HTML Object library didnt work?

Sub scanner()

myUrl = "[URL unfurl="true"]http://dict.leo.org/frde"[/URL]
Set IEApp = CreateObject("InternetExplorer.Application")
IEApp.Navigate myUrl
Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.Busy = False
IEApp.Visible = True

IEApp.Document.All.Search.Value = "je"

SendKeys "{TAB} + {Enter} + {Enter}", True

Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.ReadyState = 4
While IEApp.Busy: Wend
While IEApp.Document.ReadyState <> "complete": Wend

IEApp.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT

Do: Loop Until IEApp.Busy = False
Do: Loop Until IEApp.ReadyState = 4
While IEApp.Busy: Wend
While IEApp.Document.ReadyState <> "complete": Wend

ActiveSheet.PasteSpecial

End Sub