【VBA研究】方法quit作用于IWebBrowser2失败怎么办

最新推荐文章于 2022-09-06 08:49:21 发布
最新推荐文章于 2022-09-06 08:49:21 发布
阅读量4.5k 收藏 2
点赞数
分类专栏： VBA_Excel
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/iamlaosong/article/details/44773883
版权
作者在使用VBA自动化读取网页数据时遇到一个问题，即调用IWebBrowser2对象的quit方法关闭IE浏览器时失败。尽管对象的其他属性仍可正常访问，但quit方法无法执行。最终找到的解决方案是通过调用特定方法来成功关闭IE浏览器。此问题可能不适用于其他类型的浏览器，需要进一步测试确认。
摘要由CSDN通过智能技术生成

作者：iamlaosong

用VBA编程实现自动读取网页数据，在读取过程中关闭网页时遇到这样一个错误：“ 方法quit作用IWebBrowser2失败”，无法执行quit方法，但其它属性没有问题，百思未得其解，其源代码如下：

Sub login3()
    Dim ie1 As Object

    lineno = [A65536].End(xlUp).Row      '行数
    For row1 = 2 To lineno
        ems_id = Trim(Cells(row1, 1))
        Set ie1 = CreateObject("InternetExplorer.Application")
        ie1.Visible = True
        ie1.navigate "http://10.3.10.83/ems/newsystem/thesecond/ttq/ttqMailquery.jsp"
        Do Until ie1.Readystate = 4
        DoEvents
        Loop
        ie1.document.Forms(0).All("mailNum").Value = ems_id
        ie1.document.Forms(0).submit
        If MsgBox("第" & row1 - 1 & "个邮件查询完毕，继续...", vbOKCancel, "ＡＨ&#x
最低0.47元/天 解锁文章
宋哥
关注
  • 0
    点赞
  • 踩
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
专栏目录
Excel VBA循环访问SQL Server的错误80004005
PolyUp的专栏
09-25 4125
用Excel的ADO来访问SQL Server 2000，程序在本地的时候，没有任何问题。但是在一个局域网内，做如下的Insert循环的时候，在n=66时客户端始终出现下面问题，而且修改原是需要插入的数据，总是在n=66时出现。While (Sheets(1).Cells(n, 1).Value2 "")            strSQL = "insert into h_khdj (
vba oracle 连接 3706,【VBA研究】方法quit作用于IWebBrowser2失败怎么办
weixin_42488050的博客
04-10 471
作者：iamlaosong用VBA编程实现自动读取网页数据，在读取过程中关闭网页时遇到这样一个错误：“ 方法quit作用IWebBrowser2失败”，无法执行quit方法，但其它属性没有问题，百思未得其解，其源代码如下：Sub login3()Dim ie1 As Objectlineno = [A65536].End(xlUp).Row '行数For row1 = 2 To line...
vba操作ie关闭窗口
qq_24499417的博客
07-19 4537
现在我们一般的默认浏览器都不是IE,所以一般在vba操作IE使用microsoft Internet controls里面的IE.quit没什么用。下面使用js关闭IE,我试了下，可行的。顺便做下记录。。 Sub x() Dim ie As Object Set ie = CreateObject("internetexplorer.application") With ie .navigat...
vb/vba引用excel无法退出excel进程的解决方法
08-27
### vb/vba引用excel无法退出excel进程的解决方法 在使用VB/VBA编程语言操作Excel时，经常会遇到一个令人头疼的问题：尽管已经执行了`xlapp.Quit` 和 `Set xlapp = Nothing`来关闭Excel应用并释放相关资源，但Excel...
使用IWebBrowser2创建简单浏览器
c++基础
04-26 7301
使用ie内核的浏览器怎么搞 IWebBrowser2 ie内核的浏览器控件 CAxWindow 容器 CreateWindow 创建windows窗口
lanmp启动mysql失败，提示:The server quit without updating PID file（...）
爱上卿的博客
12-04 2069
lanmp安装时mysql启动失败，提示The server quit without updating PID file(…) 网上通用教程如下： 1.可能是/home/data/mysql 文件夹没有写的权限 解决方法 ：给予权限，执行 “chown -R mysql:mysql /home/data/mysql” “chmod -R 755 /home/data/mysql” 然后重新启动m...
Vba菜鸟教程
热门推荐
WY_记录
05-02 3万+
文章目录Vba菜鸟教程编辑器宏vba基本语法运算符变量语句简写语句sub语句调用语句退出语句分支语句循环语句判断语句公式与函数在单元格输入公式利用单元格公式返回值调用工作表函数利用vba函数自定义函数操作对象操作工作簿操作工作表操作单元格事件工作簿事件工作表事件控件按钮弹窗输入框附表对齐方式字体格式填充 Vba菜鸟教程 官方文档：https://docs.microsoft.com/zh-cn/o...
WebBrowser问题总结
huanglei0809的专栏
06-22 3744
WebBrowser窗口自动滚动： this.webBrowser.Document.Window.ScrollTo(0, webBrowser1.Document.Body.ScrollRectangle.Height);   WebBrowser的脚本出错信息： 当页面上的脚本出错时，一般情况下会弹出脚本出错提示，如果在用WB写爬虫一类的时候，这类提示可能会导致系统不能工作，解决的发是
【Selenium & Other】使用quit()无法关闭窗口 & 一键杀死进程
苟日新，日日新，又日新!!!
09-06 5078
解决selenium的quit()方法无法关闭窗口问题， 顺便解决了一键关闭指定程序、一键关闭N个或关闭所有程序的相关介绍~✨✨
webbrower.Navigate()加载失败的一种情况
l09120204的博客
09-23 1007
我们扒网站登录的时候，经常利用Webbrower加载其网站的Js，以获取非明文的密码的加密方法。通常这个webbrower不需要显示在界面上。 在Xe7环境下（delphi7自行测试），若把webbrower放在容器控件中，如TPane,TGroupbox ，将容器控件的visible设置为False， webbrower.Navigate()将不会生效，但不会报错。 此后再调用js加密
EXCEL VBA【图解】解决Win10系统下Office2016默认WebBrowser控件被禁用问题
神创的博客
04-06 6660
第一步：打开注册表window+R 快捷键打开 运行------------------------------------------------------第二步：定位到HKEY_LOCAL_MACHINE\SOFTWARE\WOW6432Node\Microsoft\Internet Explorer\ActiveX Compatibility\{8856F961-340A-11D0-A96...
小笔记-简单但够用系列_PPT内嵌html格式动态图表运行时错误
迷途小羔羊--NYTWTYN的博客
03-25 1308
这两天在玩数据分析，在用 Python pyecharts 生成了可交互的动态图表后，就想着怎么将这个图表给拉到PPT 里头去，毕竟一般的工作汇报什么的，都是用PPT做演示，不会说在汇报时候再打开运行程序生成图表。以下就是一段略微辛酸的历程介绍。
iwebbrowser2 c 读取返回html,IWebBrowser2的方法
最新发布
05-25
IWebBrowser2 是一个 COM 接口，可以通过它来访问和控制 Internet Explorer (IE) 浏览器。下面是读取返回 HTML 的示例代码： ```c #include <windows.h> #include <exdisp.h> #include <mshtml.h> // 定义 IWebBrowser2 接口指针 IWebBrowser2 *pWebBrowser = NULL; // 定义事件 ID 和事件处理函数 const DISPID DOWNLOAD_COMPLETE = 104; void STDMETHODCALLTYPE OnDownloadComplete(IDispatch *pDisp, VARIANT *pvararg, unsigned int cvararg, unsigned int *rgdispid) { // 获取文档接口指针 IDispatch *pHtmlDoc = NULL; pWebBrowser->get_Document(&pHtmlDoc); // 将文档接口指针转换为 HTML 文档接口指针 IHTMLDocument2 *pHtmlDoc2 = NULL; HRESULT hr = pHtmlDoc->QueryInterface(IID_IHTMLDocument2, (void**)&pHtmlDoc2); if (SUCCEEDED(hr)) { // 获取 HTML 源码 BSTR bstrHtml; pHtmlDoc2->get_body()->get_outerHTML(&bstrHtml); // 输出 HTML 源码 wprintf(L"%s\n", bstrHtml); // 释放字符串内存 SysFreeString(bstrHtml); // 释放 HTML 文档接口指针 pHtmlDoc2->Release(); } // 释放文档接口指针 pHtmlDoc->Release(); } // 主函数 int main() { // 初始化 COM CoInitialize(NULL); // 创建 IE 实例 CoCreateInstance(CLSID_InternetExplorer, NULL, CLSCTX_LOCAL_SERVER, IID_IWebBrowser2, (void**)&pWebBrowser); // 显示 IE 窗口 pWebBrowser->put_Visible(VARIANT_TRUE); // 注册下载完成事件 IConnectionPointContainer *pCPC = NULL; pWebBrowser->QueryInterface(IID_IConnectionPointContainer, (void**)&pCPC); if (pCPC) { IConnectionPoint *pCP = NULL; pCPC->FindConnectionPoint(DIID_DWebBrowserEvents2, &pCP); if (pCP) { DWORD dwCookie = 0; pCP->Advise((IDispatch*)pWebBrowser, &dwCookie); pCP->Release(); } pCPC->Release(); } // 载入 URL VARIANT vEmpty; VariantInit(&vEmpty); pWebBrowser->Navigate(L"https://www.baidu.com/", &vEmpty, &vEmpty, &vEmpty, &vEmpty); // 等待下载完成事件 MSG msg; while (GetMessage(&msg, NULL, 0, 0)) { TranslateMessage(&msg); DispatchMessage(&msg); } // 取消注册下载完成事件 pCPC = NULL; pWebBrowser->QueryInterface(IID_IConnectionPointContainer, (void**)&pCPC); if (pCPC) { IConnectionPoint *pCP = NULL; pCPC->FindConnectionPoint(DIID_DWebBrowserEvents2, &pCP); if (pCP) { DWORD dwCookie = 0; pCP->Unadvise(dwCookie); pCP->Release(); } pCPC->Release(); } // 释放 IE 实例 pWebBrowser->Quit(); pWebBrowser->Release(); // 反初始化 COM CoUninitialize(); return 0; } ``` 这段代码会打开一个 IE 窗口，访问百度首页，并在下载完成后输出 HTML 源码。其中，OnDownloadComplete() 函数是下载完成事件处理函数，用于获取文档接口指针并输出 HTML 源码。主函数中使用 Navigate() 方法载入 URL，然后等待下载完成事件，最后使用 Quit() 方法退出 IE。
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值