Страницы: 1
RSS
Получить html код элемента
 
Добрый день! В файле-примере выводится html код страницы сайта. Помогите сделать макрос чтобы выводился не html код страницы, а html код конкретного элемента (блока, контейнера) "head", как на скринах. Спасибо!
Скрытый текст


Код
Function GetHTTPResponse(ByVal sURL As String) As String
 Dim oXMLHTTP As Object
    On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", sURL, False
        .send
        GetHTTPResponse = .responseText
    End With
    Set oXMLHTTP = Nothing
End Function

Sub HTML_Text()
Dim Text$
    Text = GetHTTPResponse("https://www.binance.com/en/trade/BTC_USDT?layout=basic")
    ThisWorkbook.Sheets(1).Range("A5") = Text
End Sub
Изменено: OSA913 - 17.10.2021 13:06:53
 
что-то с картинками, посмотрите приложенную картинку
 
https://prntscr.com/1whbqif
https://prntscr.com/1whbuvf
 
здесь есть функция для извлечения тегов из HTML:
https://excelvba.ru/code/html
 
Функция отлично работает, но там слишком много кода. т.к. он универсален. Чтобы вычленить от туда именно ту часть кода, которая нужна только для моего вопроса, мне потребуется много времени. Подскажите пожалуйста каким методом можно реализовать мою задачу, для общего понимания. Спасибо!
Изменено: vikttur - 17.10.2021 20:21:30
 
Не той ссылкой пользуетесь.
У них есть публичное апи
Это Вам надо? https://www.binance.com/api/v3/trades?symbol=BTCUSDT&limit=1
 
Да, это помогло хотя и не совсем по теме), спасибо. В процессе поиска натыкался на getElementsByTagName метод, но приделать его к своему коду не получилось. Вопрос пока открыт.
Страницы: 1
Читают тему (гостей: 1)
Наверх