У меня проблема с одним делом, которое я хочу решить.
У меня есть веб-страница с 3 таблицами, которые загружаются нажатием кнопки (ответ ajax). Пользователь выбирает диапазоны дат, и после нажатия кнопки данные заносятся в таблицы.
Что я хочу сделать, так это перенести эти таблицы в Excel с помощью VBA, поэтому в один клик я могу скопировать эти таблицы со страницы в Excel.
Я искал в интернете, но не нашел ничего похожего на проблему.
В настоящее время у меня есть макрос для загрузки этих таблиц, но по умолчанию они пусты, поэтому код загружает только заголовки.
Option Explicit
Sub GetData()
Dim H As Object, B$, D As Object, C As Object
Set C = CreateObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
Set D = CreateObject("HTMLFile")
Set H = CreateObject("WinHTTP.WinHTTPRequest.5.1")
H.SetAutoLogonPolicy 0
H.Open "GET", "https://mywebpage.com"
H.Send
D.body.innerHTML = H.ResponseText
C.SetText D.getElementById("table").outerHTML
C.PutInClipboard
Worksheets("sheet1").[A1].PasteSpecial
Worksheets("sheet1").Cells.Hyperlinks.Delete
End Sub
Кто-нибудь знает, как вызвать функцию ajax (с параметрами времени, выбранными на странице) из Excel Visual Basic?