VBA - ウェブサイトのボタンをクリックしてデータファイルをExcelにダウンロードする

Question

私はウェブサイトからデータをダウンロードし、それを私のExcelファイルに入れようとしています。ここで

は、私が何をしようとしているの手順は次のとおりです。

1）Webサイトを参照してください。http://www.housepriceindex.ca/default.aspx

2）（私はこだわっている「履歴データ（.XLS）をダウンロード」をクリックしてくださいここでは）

3下部）の入力のメールアドレス（abc@abc.com）

4）

5を受け入れるクリック）だけでダウンロードした.xlsファイルからデータを転送します私のファイルに。ここで

は、これまでコードです：

Sub GetData() 


Dim i As Long 
Dim IE As Object 
Dim objElement As Object 
Dim objCollection As Object 

Set IE = CreateObject("InternetExplorer.Application") 

IE.Visible = True 
IE.Navigate "http://www.housepriceindex.ca/default.aspx" 

Do While IE.Busy: DoEvents: Loop 
Do Until IE.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop 

IE.Document.GetElementByID(lnkTelecharger2).Click 


End Sub 

すべてのヘルプは歓迎です！

Answer 1

だから、これは私がどうなるのかです：

Sub GetData() 
Dim IE As InternetExplorer 
Dim HTMLDoc As HTMLDocument 
Dim objElement As HTMLObjectElement 

Set IE = New InternetExplorer 
With IE 
    .Visible = True 
    .Navigate "http://www.housepriceindex.ca/default.aspx" 
    While .Busy Or .ReadyState <> READYSTATE_COMPLETE: Wend 
    .Document.getElementById("lnkTelecharger2").Click 
    While .Busy Or .ReadyState <> READYSTATE_COMPLETE: Wend 
    Set HTMLDoc = .Document 
    Set objElement = HTMLDoc.getElementById("txtEmailDisclaimerEN") 
    objElement.Value = "Email Address" 
    Set objElement = HTMLDoc.getElementById("lnkAcceptDisclaimerEN")   
    objElement.Click 

    ' ... Get CSV somehow ... 

    .Quit 
End With 

Set IE = Nothing 
End Sub 

は今、明らかにそれはまだ私が何をCSVにワークブックの変数を設定していないために、いくつかの異なる方法を試してみましたCSV-をキャプチャする問題が残ります運がいいです...あなたがクリックしたボタンには、ダウンロードしようとしているCSVのURLが含まれていないので、他の誰かがこれを開いたり保存するように促されているファイルをキャプチャする方法を知らない限り私はあなたを助けることができるように..

よろしく、 TheSilkRoad