VBAによるデータのスクラップ

Question

私は、クリックするとダウンロードを開始するウェブサイトからデータをダウンロードしようとしています。 しかし、このコードは動作していません、誰も助けることができます。

Dim ie As InternetExplorer 
Dim htmldoc As MSHTML.IHTMLDocument 
Dim HTMLInput As MSHTML.IHTMLElementCollection 
Dim HTMLAs As MSHTML.IHTMLElementCollection 
Dim HTMLA As MSHTML.IHTMLElement 

Set ie = CreateObject("InternetExplorer.Application") 
ie.Visible = True  

'Navigate to webpage 
Dim ieURL As String: ieURL = "http://erldc.org/final-schedule.aspx" 
ie.navigate ieURL   
Do While ie.readyState <> READYSTATE_COMPLETE 

Loop 

Set htmldoc = ie.document 
Set HTMLInput = htmldoc.getElementsByTagName("a") 

For Each HTMLA In HTMLAs 

ます。Debug.Print HTMLA.getAttribute（ "クラス名"）、HTMLA.getAttribute（ "HREF"）、HTMLA.getAttribute（ "相対"）

If HTMLA.getAttribute("href") = "javascript:__doPostBack('ctl00$ContentPlaceHolder1$Calendar1','6420')" Then 

HTMLA.Click 

Exit For 
End If 

Next HTMLA 

End Subの

Answer 1

てみてください... ReadyStateをチェックDo While/Loopした後、数秒、多分5秒間マクロを一時停止

Dim sngFinish As Single 
Dim intPauseTime As Integer 

intPauseTime = 5 'in seconds 
sngFinish = timer + intPauseTime 
Do While timer < sngFinish 
    DoEvents 
Loop 

また、私はあなたがReadyStateに加えて、インターネットエクスプローラのBusy状態を確認し、DoEventsを追加することを示唆している...

Do While ie.Busy Or ie.readyState <> READYSTATE_COMPLETE 
    DoEvents 
Loop 

・ホープ、このことができます！