Я создаю код для автоматизации подпрограммы в VBA для IE на моем сервере внутренней сети.
Когда я пытаюсь присвоить значение объекту в HTML, vba возвращает ошибку, и я не знаю, что мне нужно делать.
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) .