我们如何使用 VBA Excel 网页抓取在网页上输入日期(日期选择器)

Question

当我使用以下代码输入日期时，我收到显示类型不匹配的错误

Dim HTMLInp As MSHTML.IHTMLElement
Set HTMLInp = HTMLDoc.getElementsById("startDate")
HTMLInp.Value = Worksheets("Menu").Range("a3")

Answer 1

它是

HTMLDoc.getElementById("startDate")

检索方法是返回一个没有s的元素。

Answer 2

您是否尝试过设置值

HTMLDoc.getElementsByClassName("dropdown-menu").value = "YourDesiredValue"

或所选索引

HTMLDoc.getElementsByClassName("dropdown-menu").selectedIndex = 1

还可以尝试以下一些：

With .FindElementByCss("[data-test='date-picker-full-range']")
.ScrollIntoView
.Click
End With
With .FindElementByCss("[name=startDate]")
.Clear
.SendKeys "05/10/2017"
End With
With .FindElementByCss("[name=endDate]")
.Clear
.SendKeys "05/10/2017"
End With

另一个信息来源：https://web.archive.org/web/20170802065959/www.vb-tips.com/MSHTML.aspx