错误462远程服务器计算机不存在或不可用

Question

我不断收到此错误

我尝试添加等待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

结束子

要在搜索字段中输入A2的值，然后点击提交