我们如何使用VBA Excel Web Scraping在网页上输入日期（日期选择器）

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