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中的安全設置。 默認情況下，它們設置為中高，因此我將它們更改為中，代碼運行正常。