我加载了一个互联网页面，并使用VBA以myusername和mypassword登录。
我想使用VBA在网页的输入字段中写入一个搜索项。
因为在输入字段中没有姓名和ID，我没有成功。
下面是我的代码：

Sub MyLogin()

Dim IE As InternetExplorer
Set IE = CreateObject("InternetExplorer.Application")
With IE
    .Visible = True
    .navigate "https://www.example.com"

    Do Until .readyState = 4
        DoEvents
    Loop

    .document.all.Item("username").Value = "myusername"
    .document.all.Item("password").Value = "mypassword"
    .document.forms(0).submit

End With

Do Until IE.readyState = 4
    DoEvents
Loop

Dim inputfield As HTMLInputElement
For Each inputfield In IE.document.getElementsByTagName("input")
    If inputfield.Type = "text" Then inputfield.Value = "mysearch"
Next

Do Until IE.readyState = 4
    DoEvents
Loop

End Sub

我要填入的HTML字段：
输入类=“输入框搜索表单控件”类型=“文本”值="”占位符=“名称，电子邮件”最大长度=“71”
如何设置输入字段的值？