Страницы: 1
RSS
Копирование цены с сайта в ячейку
 
Добрый день,
подскажите пожалуйста как через 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


Изменено: pantel1987 - 10.08.2021 13:55:40
 
pq
Код
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"), но не помогло.
Страницы: 1
Наверх