Excel Vba代码适用于Windows 7但不适用于Windows 10（打开网页和搜索）

Question

我到处寻找答案，但是：

我写了一个vba代码导航到我公司的内部网站点，输入excel表上的值并单击搜索栏。这段代码在任何Windows 7设备上都能正常运行，但随着公司将每个人都迁移到Windows 10，我在运行相同代码时遇到错误。

Sub Macro(p_num)


Dim ie As Object
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "http://example.intranet.aspx"

ie.Visible = True

Retry:

While ie.Busy
DoEvents
Wend

On Error GoTo Retry


'Entering p_num into the input field 
ie.document.All("TextToSerach").Value = p_num

'Click the search button
ie.document.All("ucSearch").Click

当我尝试在搜索框中输入p_num的值时出现此错误：

  

运行时错误'-2147467259（80004005）'：
  对象'IWebBrowser2'的方法'Document'失败。

同样，我只在Windows 10计算机上出现此错误，并且我搜索了高低的答案......我创建此SO帐户以询问此问题。

我真的很感激帮助。