Hallo Zusammen,
vielleicht habt ihr eine Idee
ich nutze ein VBA Macro um einen einzigen Wechselkurs von https://www.bakai.kg/en/ zu bekommen, und zwar "EUR" Tabelle "non-cash", Spalte "sale" es hat auch alles wunderbar geklappt, bis ich gemerkt habe, dass der Wechselkurs immer gleich bleibt. Ich habe dann festgestellt, dass der Wechselkurs auf der website sich ständig ändert. Ich habe dann versucht die komplette website in excel einzuspeisen - gleiches Ergebnis - den Wert, welchen ich brauche, gab es da nicht. Im Quellcode von der website sehe ich aber beide Werte, also meinen 94,5 und den richtigen auch
Habt Ihr eine Idee, wie ich an den richtigen Wechselkurs komme?
Sub getRates7()
Dim request As Object
Dim response As String
Dim html As New HTMLDocument
Dim website As String
Dim price As Variant
'Website to go to
website = "https://www.bakai.kg/en/"
'Create the object that will make the webpage request
Set request = CreateObject("MSXML2.XMLHTTP")
'Where to go an how to go there
request.Open "GET", website, False
'Get fresh data
request.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
'Send the request for the webpage
request.send
'get the webpage response data to a variable
response = StrConv(request.responseBody, vbUnicode)
'Put the webpage into an html object to make data references easier
html.body.innerHTML = response
'Get the price from the specified element on the page
Dim i As Integer
For i = 0 To 100
On Error Resume Next
price = html.getElementsByTagName("td")(i).innerText
'MsgBox "i" & i & " " & price
Worksheets("tabelle1").Range("A" & i).Value = price
Next i
On Error GoTo 0
End Sub
Windows 10, Excel 2019
|