VBA和IE浏览器：填写输入框

Question

我不熟悉在VBA和Internet Explorer之间进行交互，但我在网上阅读了很多东西，无法解决代码中的问题。我只想检索网站上的“用户名”框并在其中添加一个值。所以我将所有输入框检索到超文本标记语言元素的集合中，但该集合是空的：

Dim Collect As IHTMLElementCollection

With IE
    .navigate "http:xxxxxxxxxx"
    .Visible = True
End With

Do While IE.Busy
Loop

Set Collect = IE.document.getElementsByTagName("input")
MsgBox Collect.Length
End Sub

这将给出一个带有“0”的消息框。如果我在代码末尾之前切换断点并“观察”变量集合，我可以看到里面有17个项目，其中一个是用户名“输入框”，名称为“tfUserName”。你能帮我吗？

编辑：我发现问题来自以下代码：

    Do While IE.Busy
    Loop

我用这个代替了它：

    Do Until IE.readyState = READYSTATE_COMPLETE
        DoEvents
    Loop

现在一切正常。感谢您的回复。

Answer 1

改为对照null验证集合，以确定它是否包含元素

If Not Collect Is Nothing Then
  For Each htmlElement In Collect
    If Not htmlElement.getAttribute("username") Is Nothing Then
       htmlElement.setAttribute("value", "licou6")
       Exit For
    End If
  Next
End If