自动化IE-VBA问题，无法为HTML中的对象分配值

Question

我正在构建一个代码，以将VBA中的例程自动化到我的Intranet服务器中的IE。 当我尝试为HTML中的对象分配值时，vba返回错误，并且我不知道该怎么做。

我的Intranet服务器的HTML代码行。

仅当我手动输入一个值时，选项“值”才会出现：

INPUT onkeypress=soNumero() class=WidthFull maxLength=9 value=20000 name=numseqrs

当我打开空白html时，此选项不会出现。.

INPUT onkeypress=soNumero() class=WidthFull maxLength=9 name=numseqrs

我的子例程：（这将使用任何打开的IE窗口和控件）

Sub test()

Dim Shell_Application As Object
Dim Open_Window As Object
Dim IE As Object
Dim ca As Integer
Dim ele As Object



Set Shell_Application = CreateObject("Shell.Application")

For Each Open_Window In Shell_Application.Windows
If TypeName(Open_Window.document) = "HTMLDocument" Then

Set IE = Open_Window
Exit For
End If
Next

If IE Is Nothing Then
    MsgBox "não achei"
    Else
    MsgBox "achei"

IE.document.getElementsbyClassName("numseqrs").value = "12345"

Set IE = Nothing
Set Shell_Application = Nothing


End Sub

当我尝试为"numseqrs"分配一个值（12345）时，vba返回错误对象不支持此属性或方法（错误438）。