VBA - получи правильный обменный курс из интернета

Question

Для моей таблицы расчетов Excel мне нужен фактический обменный курс.Найти и скопировать курс обмена из интернета не проблема.Моя проблема в том, что значение, которое я копирую из Internet Explorer, не будет отображаться как правильный числовой формат.

Например: Я хочу обменный курс аргентинского песо (1 евро = 49 9341 ARS).Я копирую значение из интернет-проводника и хочу вставить его в свой лист, к сожалению, числовой формат значения будет показан как € 1 = ARS 499,341

Вот мой код:

'Create Internet Object
Set IE = CreateObject("InternetExplorer.Application")

'IE.Visible = True
IE.Navigate "https://www.finanzen.net/waehrungsrechner/euro_" & currency_value

Do
    DoEvents
Loop Until IE.readystate = 4

value_to_copy = IE.Document.GetElementByID("currency-second-input").Value
currency_value = Split(value_to_copy, " ")

Range("L12").Value = "Price in " & currency_value(0)
Range("K8").Value = currency_value(1)  'This value will shown as 499.341

Вот HTML-часть, где я копирую курс сайта:

<input value="USD 1,1189" id="currency-second-input" onclick="this.select();" onkeyup="calculateCalculator(true, 'currency-second-input', false)" style="width: 50%; float: left; height: 51px; padding: 10px; font-size: 20px; color: #0066cc; font-weight: bold;" type="text">

В моих тестовых прогонах эта проблема не всегда возникает.Если мне понадобится обменный курс колумбийского песо (1 евро = 3,623,5878 кун), он превысит правильное значение.

Буду признателен, если кто-нибудь сможет помочь мне с этой проблемой.

Answer 1

Если вы не возражаете против того, чтобы быть строкой, вы можете вставить «» »впереди. Вы можете использовать более быстрый xhr вместо открытия браузера.

Option Explicit
'VBE > Tools > References: Microsoft HTML Object Library
Public Sub ExchangeRate()
    Dim html As Object
    Set html = New HTMLDocument
    With CreateObject("MSXML2.XMLHTTP")
        .Open "GET", "https://www.finanzen.net/waehrungsrechner/euro_argentinischer-peso", False
        .send
        html.body.innerHTML = .responseText
    End With
    ActiveSheet.Cells(1, 1) = "'" & html.getElementById("currencyExchangeRate").Value
End Sub