Macro webabfrage
18.12.2017 12:41:54
Sam
Leider bekomme ich eine Fehlermeldung bei der Macro.
Wer kann mir helfen?
Danke.
Gruß
Sam
Sub TEST()
Dim ie As Object
Dim url As String
Dim myPoints As String
url = "http://www.finanzen.net/devisen/euro-yen-kurs"
Set ie = CreateObject("InternetExplorer.Application")
With ie
.Visible = 0
.navigate url
While .Busy Or .readyState 4
DoEvents
Wend
End With
Dim Doc As HTMLDocument
Set Doc = ie.document
myPoints = Trim(Doc.getElementsByName("JPY")(1).Value)
Range("A1").Value = myPoints
End Sub