Класс не поддерживает ошибку автоматизации в состоянии готовности при просмотре веб-страниц

Question

Ниже код заполняет данные на веб-странице, нажимает кнопку и в конце сохраняет код веб-страницы в локальный файл. К сожалению, это работает только на моей машине. В других случаях он отображает ошибку ниже 1-го Do Until ie.ReadyState = 4. Использование Office 365 ProPlus на обеих машинах. Пожалуйста, помогите мне в этом.

Sub SaveHTml()
    Dim str, URL As String
    Dim ie, frm As Object
    Dim i As Long
    Dim FileName As String
    Dim FF As Integer
    Dim wb As WebBrowser
    Dim objElement As Object
    Dim objCollection As Object

str = Sheets("Main_Page").Range("L1").Value
URL = "https://tiweb.industrysoftware.automation.siemens.com/prdata/cgi-bin/n_prdata_index.cgi" 'for TEST
FileName = "C:\Users\" & Environ("UserName") & "\Desktop\Test.htm"

Set ie = CreateObject("Internetexplorer.Application")
ie.Visible = False
ie.Navigate URL

Do Until ie.ReadyState = 4
    DoEvents
Loop

ie.Document.getelementsbyname("pr_numbers")(0).Value = 564684
' Application.SendKeys ("{NUMLOCK}~")
' Application.SendKeys "{NUMLOCK}"

Call ie.Document.getElementsByTagName("button").Item(1).Click

''Call IE.Document.parentWindow.execScript("return check_mvsub(this)", "JavaScript")
Do
Loop While ie.Busy

CreateObject("Scripting.FileSystemObject").CreateTextFile FileName

Do Until ie.ReadyState = 4
    DoEvents
Loop
FF = FreeFile
Open FileName For Output As #FF

With ie.Document.body
    Print #FF, .outerHTML & .innerHTML
End With

Close #FF

ie.Quit
Set ie = Nothing
End Sub