下面的代码在第一次运行时可以正常运行,但在随后的运行中通常会失败。下面注释了它失败的那一行。我认为在SHDocVw.ShellWindows中循环导致了这个问题,我需要在再次运行它之前清理一些东西。要重复此问题,请在IE中打开google,然后运行此过程,重复此步骤。谢谢你的帮助。确切的错误是来自HRESULT的异常: 0x800A01B6。(请注意,这是更复杂代码的简化版本,如果设置了IE_test,我实际上会多次重用它。)
Public IE_test As SHDocVw.InternetExplorer
Sub TestIE()
Dim shellWindows
我试图访问一个需要身份验证的内部网页。一旦用户正确登录,我将在应用程序网页中查找特定的模式,并将IE.visible = False转到。我已经设法使它正常工作,但是如果用户在身份验证完成之前关闭IE窗口,我的宏就会松开控制,永远等待答案。有什么办法可以防止这种情况发生吗?这是我的密码:
Sub myapplication()
Dim IE As New InternetExplorerMedium
Dim elements As MSHTML.IHTMLElementCollection: Dim element As MSHTML.IHTMLElement
Dim
我试图从网站上获取信息,并成功地使用以下代码获得了这些信息:
Dim IE As New InternetExplorer
IE.Visible = False
IE.navigate "https://www.theconstructionindex.co.uk" & Range("URL_code").Value
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE
Dim doc As HTMLDocument
Set doc = IE.document
Dim sDD As Stri
我正在尝试写在VBS中的东西,将循环通过一个8页的PDF文件显示每个一定的时间,然后继续到一个网页。然而,当我试图导航到PDF的另一个页面时,程序并没有这样做,它只是一直停留在第一个打开的PDF页面上。
Dim IE
Dim objShell
Set objShell = CreateObject("WScript.Shell")
Set IE = CreateObject("InternetExplorer.Application")
IE.Visible = True
IE.FullScreen = True
IE.St
我实现了几个依赖于从一些网站下载一些信息的功能。
这类函数的最简单示例是:
Public Function getSomething(webAddress As String)
Dim html As HTMLObjectElement
Set html = getWebContents(webAddress)
Set elems = html.body.getElementsByTagName(tagName)
...
End Function
从网站获取数据的功能为:
Public Function getWebContents(webAddress As
我当前正在使用以下sub在自动操作后关闭IE:
Public Sub CloseIE()
Dim Shell As Object
Dim IE As Object
Set Shell = CreateObject("Shell.Application")
For Each IE In Shell.Windows
If TypeName(IE.Document) = "HTMLDocument" Then
IE.Quit
End If
Next
End Sub
这很
<span style="letter-spacing: 5px;">Red<span style="letter-spacing: 0px;">Blue</span></span>
在IE中看起来像这样:
R
但在其他浏览器中就像这样:
R e d Blue
有没有办法让IE像其他浏览器一样渲染它?
我想在单击“注销”按钮时关闭Internet explorer的当前选项卡。这是要在我的web应用程序中实现的新功能。我的应用程序只支持Internet Explorer。注销按钮所在的页面是window.close()的多个页面的组合不起作用。
我在vbscript中使用了以下代码来关闭Internet Explorer浏览器的当前窗口:
if(window.opener = Empty) then
dim x
x = "<%=Request.Browser.MajorVersion%>"
if(x="6") th