Выгрузка данных из браузера в excel?

Question

[Dimich58]

Мне необходимо выгрузить данные из браузера, которые меняются каждые 5-10 секунд в таблицу эксель.
Проблема заключается в том, что при создание в эксель веб-запроса, ИЭ не видит данный сайт, т.к. на странице сайта много вкладок с множеством таблиц под именем одной адресной строки.

Answer 1

[Константин Цветков]

Выделить таблицу в браузере и через буфер обмена скопировать в Excel.

Comments

[Пычев Анатолий]

Или писать на VBA парсер, который через определенные промежутки будет выгружать данные.
Но если промежутки маленькие, то работать с таким excel будет сложно, будет постоянное подвисание в момент выполнения запроса.

[Dimich58]

Начал парсировать, но не получается. Просмотрел видеоинструкции.
Ошибка в том, что при загрузке исходного кода, загружается только главная страница, а вкладок нет, из-за того что адресная строка сайта одна и та же, независимо от того какую открываю вкладку.

[Константин Цветков]

Dimich58, Посмотрите с помощью "Инструмента разработчика" откуда берутся нужные вам данные.

[Dimich58]

Константин Цветков, в инструменте разработчика, я нашел откуда берутся данные, но при парсинге их нет...
Загружаю целую страницу в парсинг, а нужные теги не могу найти.

[Dimich58]

Пычев Анатолий, как загрузить нужные теги, если парсер их не видит, но в инструменте разработчика они есть?

[Пычев Анатолий]

Скорее всего они подгружаются по ajax
Имитируйте ajax запрос из vba

[Dimich58]

Пычев Анатолий, а поподробнее можно?

[Пычев Анатолий]

Не знаю насколько Вы знакомы с VBA.
Через VBA Вы можете обращаться к любому веб-ресурсу как браузер, и инструментов для этого много.
Я использую для этого MSXML2.ServerXMLHTTP. Информации о нем в интернете достаточно

Пример

' Вставьте код в пустой модуль новой книги и запустите на выполнение
' Результат отобразится в первой колонке активного листа.
Public Sub Send()
   Dim oXMLHTTP As Object
   Dim vItem, v As Variant
   Dim psUrl As String
   Dim psParams As String

   psUrl = "http://samples.openweathermap.org/data/2.5/weather"
   psParams = "q=London,uk&appid=b6907d289e10d714a6e88b30761fae22"

   Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP")

   With oXMLHTTP

   
   Select Case 1
      Case 1 'Method Get
         If Len(psParams) > 0 Then psParams = "?" & psParams
         .Open "GET", psUrl & psParams, False
         psParams = ""
      Case 2 'Method Post
         .Open "POST", psUrl, False
   End Select

      'On Error Resume Next
      .Send psParams
      
      ActiveSheet.Range("A1") = .Status
      ActiveSheet.Range("A2") = .getAllResponseHeaders
      ActiveSheet.Range("A3") = .ResponseText

   End With
   
   Set oXMLHTTP = Nothing

End Sub