vba - веб-парсинг: запросы к поисковой системе хранят результаты в таблице - PullRequest
Новая
       151

vba - веб-парсинг: запросы к поисковой системе хранят результаты в таблице

1 голос
/ 14 июля 2020

Добрый день

Всем привет! Я использую MSAccess2010 (не мой выбор :()) для очистки веб-страниц на странице Google.

Мой сценарий

  • Таблица1 со столбцом A с некоторыми словами для поиска и столбцом B чтобы сохранить количество результатов, C день, когда я сделал запрос, и D время.
  • Выполнить макрос поиска
  • Столбец A можно изменить, поэтому мне нужно выполнить только поиск когда я нажимаю кнопку проверки

Мои сомнения:

  1. Я читал о XMLHttpRequest, но, наконец, я не понимаю, если для "малого" поиска лучше использовать метод «GET» или «POST»
  2. Я могу изменить домашнюю страницу Google, но не могу изменить поисковый запрос и сделать запрос, нажав кнопку. Я получаю только как responseText исходный текст HTML из базы URL (www.google.com)

Код, который у меня есть на данный момент: 

  Option Compare Database
  Sub test()

  Dim XMLPage As New MSXML2.XMLHTTP60
  Dim rs As DAO.Recordset
  Dim search As Object

  ' Create the recordset with all the values we have at Column A At Table1
  Set rs = CurrentDb.OpenRecordset("SELECT * From Table1")

  'Establish the URL from I want to scrap 
    myUrl = "www.google.es"

  Do Until rs.EOF
    XMLPage.Open "GET", myUrl, False
    XMLPage.setRequestHeader "Content-Type", "application/x-222-form-urlencoded"
    ' With XMLPage
     Set search = rs("WordSearch")
     XMLPage.Document.getElementsByClassName("iblpc") = rs!WordSearch
   'End With
    request.send
 HTMLDoc = XMLPage.responseText
   Debug.Print HTMLDoc
  Loop
Set XMLPage = Nothing
End Sub

Мне не удается поместить слова, которые у меня есть, в столбец Wordsearch, нажать кнопку поиска и сохранить значения, указанные в других столбцах. Любая помощь будет очень полезной

...