【发布时间】:2018-10-15 19:05:59
【问题描述】:
当我使用以下代码输入日期时出现类型不匹配的错误
Dim HTMLInp As MSHTML.IHTMLElement
Set HTMLInp = HTMLDoc.getElementsById("startDate")
HTMLInp.Value = Worksheets("Menu").Range("a3")
【问题讨论】:
标签: excel vba web-scraping
当我使用以下代码输入日期时出现类型不匹配的错误
Dim HTMLInp As MSHTML.IHTMLElement
Set HTMLInp = HTMLDoc.getElementsById("startDate")
HTMLInp.Value = Worksheets("Menu").Range("a3")
【问题讨论】:
标签: excel vba web-scraping
是
HTMLDoc.getElementById("startDate")
检索方法是返回没有s的单个元素。
【讨论】:
你试过设置值吗
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
【讨论】: