Имеется сайт с поверками средств измерений (например счетчики воды)
Хотел вытащить данные в виде текст с этой страничке
Но при просмотре кода страницы не увидел данных, отображаемых на веб странице. Но при просмотре кода они там есть.
Помогите вытащить HTML текст в VBA
Хотел вытащить данные в виде текст с этой страничке
Но при просмотре кода страницы не увидел данных, отображаемых на веб странице. Но при просмотре кода они там есть.
Помогите вытащить HTML текст в VBA
| Код |
|---|
Sub Аршин()
Dim XMLHTTP As Object
Dim URL$, Txt$
URL = "https://fgis.gost.ru/fundmetrology/cm/results/1-34756749"
Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
XMLHTTP.Open "GET", URL, False
XMLHTTP.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/88.0.4324.182 Safari/537.36"
XMLHTTP.SEND
If XMLHTTP.Status = 200 Then
Txt = XMLHTTP.responseText
MsgBox Txt
Else
MsgBox "Отсутствует соединение..."
End If
Set XMLHTTP = Nothing
End Sub
|
