如何填写网页上的文本字段？

Question

我需要填写公司内部网站SharePoint上的文本字段。但是，当我启动代码时，在填充我的值之前，下一个错误引发：

  

运行时错误：自动化错误，接口未知

请帮助

Sub Authority()

Dim ie As Object

Set ie = CreateObject("InternetExplorer.Application")
ie.Visible = True

ie.navigate "OurInternalSite"

ie.document.getelementbyid("TextField5").Value = "My text"

End Sub

按钮代码

<input data-is-interactable="true" id="ComboBox29-input" class="ms-ComboBox-Input css-93" type="text" aria-expanded="false" aria-autocomplete="inline" role="combobox" spellcheck="false" autocapitalize="off" autocomplete="off" data-lpignore="true" value="">

Answer 1

您没有等待页面加载，这很可能导致此错误

ie.navigate "site"
While ie.Busy Or ie.ReadyState<>4:DoEvents:Wend

input的ID也是

ComboBox29-input