Windows 10 IE无法使用旧的VBA代码

Question

几年前，我在VBA中编写了代码，以在IE中打开一个网站，并用Excel文件中的数据填充文本框。 不幸的是，我现在正在使用Windows 10，并且该程序无法正常工作。 它可以毫无问题地打开网站，但是不能将数据转置到文本框中。 它只是打开网站并停滞（没有输入数据）。

该程序仍然可以在Windows 7的IE中正常运行。 我在Windows 10上尝试了多台笔记本电脑，问题再次出现。

我尝试在最后将代码从IE.Document.All("Response_123").Value更改为IE.Document.getElementById("Response_123")以查看是否会将我的Excel值复制到文本框中，但仍为空白。

Sub test()
Dim IE As Object

WebAddress = "https://CONFIDENTIAL_URL.com/"


    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

  Set IE = CreateObject("InternetExplorer.Application")

  IE.Visible = True
  IE.Navigate WebAddress

  While IE.busy
    DoEvents  'wait until IE is done loading page.
  Wend

  Application.wait (Now + TimeSerial(0, 0, 4))

  IE.Document.getElementById("Response_123").Value = ThisWorkbook.Sheets("Sheet1").Range("B5")
End Sub

我希望将Excel工作表中B5处的值复制到ID为“ Response_123”的文本框中（通过右键单击文本框> inspect获得），但是它不会复制任何内容并且保持空白。 同样，让我的代码在Windows 7中正常工作也没有问题。

Answer 1

我想出了解决方案。 上面的代码没什么错，只是IE中的安全设置。 默认情况下，它们设置为中高，因此我将它们更改为中，代码运行正常。