Tag: 内部网

VBA脚本在Intranet上失败

我目前正在使用Office 2010，Visual Basic for Applications 7和Internet Explorer 9。 目前我遇到的问题是，使用IE对象似乎在我们的内部网上失败，我想知道是否有这个修复。 function代码： Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://www.google.com" WaitUntilReady IE 'Application.Wait (Now + TimeValue("00:00:10")) 'IE.Visible = True MsgBox (IE.Document.body.innerHTML) 破码： Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://intranet/" WaitUntilReady IE 'Application.Wait (Now + TimeValue("00:00:10")) 'IE.Visible = True MsgBox (IE.Document.body.innerHTML) function代码完全是它应该的。 创build一个IE对象，该对象不会在屏幕上显示，并返回带有google.com的HTML代码内容的消息框 […]