Я получаю эту ошибку
Я пытался добавить ожидание в течение 15 секунд
Sub Test1()
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "http://spv-msccm-rs02/Reports/report/Custom/Application/ADDREMOVE"
IE.Visible = True
While IE.Busy
DoEvents
Wend
Application.wait Now + TimeValue("00:00:15")
myVar = IE.Document.title
IE.Document.all("ReportViewerControl_ctl04_ctl03_txtValue") = ThisWorkbook.Sheets("sheet1").Range("a2")
Application.wait Now + TimeValue("00:00:15")
IE.Document.all("ReportViewerControl_ctl04_ctl00").Click
End Sub
Для ввода значения А2 в поле поиска и нажмите «Отправить»