getElementById-远程服务器计算机不存在或不可用

Question

我正试图使用以下代码在在线服务器上导航，但由于某种原因，我收到了服务器不存在或不可用的错误。页面打开了，所以我想它可以访问，但无法导航？关于它为什么失败以及如何修复，有什么建议吗？我在一个正常的网站上测试了代码，它在这种情况下有效。

Sub URL_Nav()
'Dim obJIE As Object
Set obJIE = CreateObject("InternetExplorer.Application")
obJIE.Visible = True

obJIE.Navigate2 ("http://...")
Application.Wait (Now + TimeValue("0:00:05"))
obJIE.document.getElementById("docTypeForm:documentTypesTbl:137:n").Click
End Sub

Answer 1

好的，我终于找到了解决方案：(

Set obJIE = GetObject("new:{D5E8041D-920F-45e9-B8FB-B1DEB82C6E5E}")

在这里你可以找到解释，它将使用InternetExplorerMedium通过课堂：使用Excel VBA 控制Internet Explorer本地intranet