Question

我要解决的一个问题。我有一个网页，其中包含3个表，可通过单击按钮（ajax响应）来加载。用户正在选择日期范围，然后单击按钮后，数据将填充到表中。我想要做的是使用VBA将这些表放入excel，因此一键单击即可将这些表从页面复制到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

有人知道如何从excel Visual Basic中调用Ajax函数（具有在页面中选择的时间参数）吗？

使用VBA将数据从Ajax加载表中抓取到excel

0 个答案: