Добрый день, подскажите пожалуйста как через vba настроить копирование цены из сайта в ячейку А1 листа эксель, к примеру с сайта https://ru.investing.com/currencies/eur-usd нужна только цена по евродоллару, показал во вложенном файле. В дальнейшем, при запуске макроса, цена должна обновляться.
Возможно надо будет поковыряться в настройках безопасности Internet Explorer
Код
Sub Kurs()
Dim IE As Object
Dim html As Object
Dim t As String
Dim holdings As Variant
Set IE = CreateObject("internetexplorer.application")
IE.Visible = 0
IE.Navigate2 "https://ru.investing.com/currencies/eur-usd"
Do While IE.Busy
Application.Wait DateAdd("s", 1, Now)
Loop
Set html = IE.document
Set holdings = html.getElementByID("last_last")
t = holdings.textContent
Range("A1").Value = CDec(t)
Range("A1").NumberFormat = "General"
IE.Quit
Set IE = Nothing
End Sub
let
a = Table.SelectRows(Table.FromColumns({Lines.FromBinary(Web.Contents("https://ru.investing.com/currencies/eur-usd"))}), each Text.Contains([Column1], "<span class=""arial_26 inlineblock pid-1-last"" id=""last_last"" dir=""ltr"">")),
b = Table.SplitColumn(a, "Column1", Splitter.SplitTextByAnyDelimiter({"ltr"">", "</span>"}, QuoteStyle.None), {"q1", "q"}),
c = Table.TransformColumnTypes(b,{"q", type number})[q]{0}
in
c
Добрый день, макрос перестал работать т.к. поменяли код на сайте. Что можно подправить в макросе? попытался исправить Set holdings = html.getElementByID("instrument-price-last"), но не помогло.