Office 2016 VBA 无法打开 Internet Explorer shell 窗口，但在 Office 2013 中工作

问：

我从我的前任那里继承了这个 VBA 脚本。它在 Excel 2013 中对我来说效果很好，直到最近我被告知我可能需要在家工作。快来了解一下，我新访问的 VPN 桌面的 Office 2016 环境不喜欢这个脚本。当它到达时，我不断收到“远程服务器计算机未知或不可用”。.ReadyState <> READYSTATE_COMPLETE

导航没有失败，因为我可以看到它成功导航到 URL 的窗口，并且我可以正确地与它交互。奇怪的是，如果我将 URL 更改为“www.google.com”，我会得到一个有效的就绪状态结果。

我还需要弄清楚如何后期绑定 Shell Windows，以便它同时与 v15 和 v16 库一起使用。

此脚本的目的是自动执行
1.通过 Web 界面
2 打开内部数据库。操作并运行位于网页
3 上的 java 脚本。关闭浏览器窗口而不关闭任何其他浏览器窗口

这可以通过查找页面元素（例如页面上的搜索框或特定按钮）并与之交互来修改以供其他人使用。

编辑：
其他测试显示，暂停和跳过循环并恢复会导致此脚本在 Office 2016 中工作。因此，唯一的问题是没有循环，当脚本尝试运行交互时，页面尚未准备好进行下一步。等待 5 秒钟代替循环创可贴的这个问题。找出无法读取的原因将解决此问题。DBurlDo WhileIETab1 = SWs.Count.ReadyState

Declare PtrSafe Function apiShowWindow Lib "user32" Alias "ShowWindow" _
            (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Sub OpenWebDB()

Dim ieApp As Object
Dim SWs As ShellWindows
Dim IETab1 As Integer
Dim JScript As String
Dim CurrentWindow As Object
Dim DBurl As String
Dim tNow As Date, tOut As Date

DBurl = "My.Database.url"

Set SWs = New ShellWindows
tNow = Now
tOut = tNow + TimeValue("00:00:15")

If ieApp Is Nothing Then
    Set ieApp = CreateObject("InternetExplorer.Application")
    With ieApp
        .Navigate DBurl
        Do While tNow < tOut And .ReadyState <> READYSTATE_COMPLETE
            DoEvents
            tNow = Now
        Loop
        IETab1 = SWs.Count
    End With
End If

If Not tNow < tOut Then GoTo DBFail

On Error GoTo DBFail
Set CurrentWindow = SWs.Item(IETab1 - 1).Document.parentWindow
JScript = "javascript: DoSomething"
Call CurrentWindow.execScript(JScript)

On Error GoTo 0
SWs.Item(IETab1 - 1).Quit

Set ieApp = Nothing
Set SWs = Nothing

Exit Sub

DBFail:
MsgBox (DBurl & vbCrLf & "took too long to connect or failed to load correctly." & vbCrLf & _
    "Please notify the Database manager if this issue continues."), vbCritical, "DB Error"
SWs.Item(IETab1 - 1).Quit

Set ieApp = Nothing
Set SWs = Nothing

End Sub