Набор текста в текстовом поле в интернет-проводник в VBA

Question

Это HTML код в текстовое поле:

<td> 
    <input type="text" 
     name="maskString1" 
     size="32" 
     style="text-transform: uppercase" 
     onkeyup="determineType(this, document.accForm.searchType1)" 
     onblur= "mask('masksearchString1','searchString1','1', document.accLookForm.searchType1)" 
     onfocus="unmask('maskString1','searchString1',document.accForm.searchType1,'1')" 
    > 

Я автоматизирован его в VBA Код:

ie.Document.All("masksearchString1").Value = "0000000044455458" 

Но проблема заключается в текстовое поле является каскадным текстовым полем. После ввода значения в текстовое поле соответствующим образом изменяется значение следующей комбинации.

Но при запуске этого кода значение вставляется в текстовое поле, но значение combobox не изменяется.

Есть ли способ поместить курсор в текстовое поле, а затем вставить значение, чтобы каскадная функциональность работала?

Answer 1

Try 'Focus()' или 'FireEvent()' методы. Короткий пример здесь. НТН

' Add refernces to 
' - Microsoft Internet Controls 
' - Microsoft HTML Object Library 

Option Explicit 

Private Const URL As String = "C:/Temp/page1.html" 

Sub test() 
    Dim internet_browser As InternetExplorer 
    Dim html_document As HTMLDocument 

    Set internet_browser = New InternetExplorer 

    With internet_browser 
     .Visible = True 
     .navigate URL 

     Do While .Busy And Not .readyState = READYSTATE_COMPLETE 
      DoEvents 
     Loop 

     Set html_document = .document 

     Dim x As HTMLInputElement 
     Set x = html_document.all("maskString1222") 
     If Not x Is Nothing Then 
      ' x.Focus ... gets focus 
      x.Value = "0000000044455458" 
      x.FireEvent "onkeyup" ' ... or fire some other event by its name 
     End If 

Quit: 
     .Quit 
    End With 

    Set html_document = Nothing 
    Set internet_browser = Nothing 
End Sub