Добрый день! В файле-примере выводится 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
|