После нажатия кнопки «ContentPlaceHolder2_btnSearch» элемент «cbSite_I» возвращается к пустому значению.Я хочу, чтобы элемент "cbSite_I" имел значение "Cát Lái" после нажатия элемента "ContentPlaceHolder2_btnSearch".Пожалуйста, помогите мне соответственно.Благодарю.
Sub Web()
Dim IE As New SHDocVw.InternetExplorer
On Error GoTo Errorcatch
Application.ScreenUpdating = False
IE.Visible = True
IE.Navigate "https://eport.saigonnewport.com.vn/Pages/Common/Containers_new"
Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy
DoEvents
Loop
'Application.Wait Now + TimeSerial(0, 0, 5)
IE.document.forms("form2").elements("cbSite_I").Value = "Cát Lái"
IE.document.forms("form2").elements("txtItemNo_I").Value = "MSKU1183832"
IE.document.forms("form2").elements("ContentPlaceHolder2_btnSearch").Click
Do While IE.ReadyState <> READYSTATE_COMPLETE Or IE.Busy
DoEvents
Loop
'Application.Wait Now + TimeSerial(0, 0, 5)
Range("A2").Value = IE.document.getElementById("grdContainer_DXDataRow0").Children(17).textContent
Set IE = Refresh
Set IE = Nothing
IE.Quit
Exit Sub
Errorcatch:
MsgBox Err.Description
Set IE = Nothing
IE.Quit
End Sub