Daten aus Web holen
08.03.2016 14:40:21
Rolf
das folgende Programm öffnet die Internetseite von Consors und dann die Börsenseite von "Kontron".
Ist es möglich, den hier angegebenen aktuellen Kurs auf ein Excelblatt zu bekommen?
Besten Dank!
Rolf
Sub Request_CortalConsors2()
Dim i As Long, objForm As Object, j As Long
Dim appIE As Object, varHTML As Variant
Set appIE = CreateObject("InternetExplorer.application")
Do While appIE.Busy
Loop
appIE.navigate "http://www.cortalconsors.de"
appIE.Visible = True
While Not appIE.ReadyState = 4
Wend
With appIE.Document.forms(1)
.elements("pattern").Value = 605395 'Beispiel:Kontron
.submit
End With
Do: Loop Until appIE.Busy = False
Do: Loop Until appIE.ReadyState = 4
End Sub