VBA - Klicken auf die Schaltfläche auf der Website und Herunterladen der Datendatei in Excel

Question

Ich versuche, Daten von einer Website herunterladen und in meine Excel-Datei einfügen.

Hier sind die Schritte zu dem, was ich versuche zu tun:

1) Zur Internetseite gehen: http://www.housepriceindex.ca/default.aspx

2) Klicken Sie auf "Download Historische Daten (.xls)" (Ich bin fest hier)

3) Eingang E-Mail-Adresse unten (abc@abc.com)

4) klicken

5) überträgt die Daten aus der gerade heruntergeladen .xls-Datei akzeptieren zu meiner Akte.

Hier ist der Code so weit:

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 

Jede Hilfe ist willkommen!

Answer 1

So ist es das, was ich tun würde:

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 

Jetzt offensichtlich, dass lässt Sie immer noch mit dem Thema der CSV- Erfassung habe ich versucht, eine Reihe von verschiedenen Möglichkeiten, ohne eine Arbeitsmappe Variable in die CSV einzustellen Glück ... das Problem ist, dass die Schaltfläche, auf die Sie klicken, die URL für die CSV, die Sie herunterladen, nicht enthält, so dass jemand anders weiß, wie eine Datei erfasst wird, die aufgefordert wird, zu öffnen oder zu speichern, ist dies so weit wie ich Sie können ..

Grüße helfen, TheSilkRoad