Excel VBA填充Web窗体给出错误

Question

我有以下代码来填充网络表单

Sub FillInternetForm()
Dim IE As Object

  With CreateObject("Shell.Application").Windows

    If .Count > 0 Then
      ' Get IE
      Set IE = .Item(0) ' or .Item(.Count - 1)
    Else
      ' Create IE
      Set IE = CreateObject("InternetExplorer.Application")
      IE.Visible = True
    End If
  End With
While IE.busy
DoEvents
Wend
IE.Document.All("startPeriod").Value = "calendar"
IE.Document.All("startPeriod").FireEvent ("onchange")
IE.Document.All("startPeriodDate").Value = "2016-01-01"

End Sub

在这种情况下，在网页上，startPeriodDate字段将被隐藏，并在选择startPeriod时出现。当我运行上面的代码时，startPeriodDate字段确实可见，但出现以下错误＆＃34;对象不支持此属性或方法。请注意，此字段是只读的，并从javascript日历中获取值。但我在页面上有其他类似的字段，他们工作正常。

你能建议吗？

REGD 的Shahriar