Страницы: 1
RSS
Импорт html кода в excel
 
Добрый день, подскажите пожалуйста, как в excel с помощью макроса импортировать html код сайта?
Структура полученных данных не важна. Спасибо
 
Код
    On Error Resume Next

    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", sURL, False
        .send
        sHTMLBody = .responsetext
    End With
    Set oXMLHTTP = Nothing

sURL - адрес сайта
Изменено: Ivan.kh - 10.07.2019 14:16:12
 
Ivan.kh, Спасибо, что то у меня выдает ошибку
Без кавычек не работает
Код
Sub 10()
'

  On Error Resume Next
    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    With oXMLHTTP
        .Open "GET", "https://google.ru", False
        .send
        sHTMLBody = .responsetext
    End With
    Set oXMLHTTP = Nothing

'
End Sub
Изменено: vilambo - 10.07.2019 17:23:17
 
html сохраняете в файл (например, 1.html)
потом открываете файл через workbooks.open (Excel умеет открывать HTML файлы)

итого, 2 строки кода
 
Цитата
vilambo написал: Структура полученных данных не важна.
.Open "GET", " https://google.ru ", False
Одной строкой:
Код
Sub Test()
  Workbooks.Open "https://google.ru"
End Sub
Изменено: ZVI - 11.07.2019 02:55:04
Страницы: 1
Читают тему
Наверх