VBA Excel：在<input />标记中键入值（使用Id属性）

Question

如何使用Id属性在单元格中键入值？

我在网页上有phew标签（参见下面的示例）：

<input id="myId" type="text" value= "2>

我有以下代码来搜索所有代码，当它找到具有特定ID的代码时，我想输入新值。

Set objInputCollection = IE.Document.getElementsByTagName("input")

countInputObjects = 0
Do While countInputObjects < objInputCollection.Length

    Select Case objInputCollection(countInputObjects).ID

        Case "myId"
            ' Set value
            objInputCollection(countInputObjects).Value = Sheets("MySheet").Range("D15").Value

        Case "myID_2"
            ' Set "Range" value
            objInputCollection(countInputObjects).Value = Sheets("MySheet").Range("D10").Value

    End Select

    countInputObjects = countInputObjects + 1

Loop

我的代码无效，不会进入任何＆＃34;案例＆＃34;。