Question

VBA 用IE对象提取网页信息，弹出信息框 ，然后程序就中断了

怎么识别 提示框 并 关闭它 继续向下运行

Answer 1

在提示框之前加这：set ie.document.parentwindow.alert=GetRef("mok")
set ie.document.parentwindow.confirm=GetRef("mok")

function mok()
mok=true
end function

追问

没用

追答

必须在提示框跳出之前 加 ，ie是你创建的ie对象变量（注意改成你自己的变量名），还差了2个：showModalDialog和open

追问

我是在 之前加的

还差了2个：showModalDialog和open

什么意思
放哪里

追答

就是你的代码执行到快要跳出对话框之前加。总共有4个函数可以跳出对话框，所以要屏蔽4个函数：
set ie.document.parentwindow.alert=GetRef("mok")
set ie.document.parentwindow.confirm=GetRef("mok")
set ie.document.parentwindow.showModalDialog=GetRef("mok")
set ie.document.parentwindow.open=GetRef("mok")

追问

追答

sorry,不知道vba中不能用getref（vbs中能用），试试改成
set ie.document.parentwindow.alert=nothing
set ie.document.parentwindow.confirm=nothing
set ie.document.parentwindow.showModalDialog=nothing
set ie.document.parentwindow.open=nothing
或者你代码发我，我尝试用别的方法跳过对话框

追问

　　还是没用，怎么发给你， 有QQ吗，文件一起发你

　　就是 查询企业信息的时候， 如果没这个单位就会弹出消息框， 网页代码如下：

　　alert("该企业信息未找到，请到直属局网站查询该企业信息");

追答

想到一个思路：

Dim objXML,ie
Set objXML = CreateObject("msxml2.xmlhttp")
Set ie = CreateObject("InternetExplorer.Application") '这里用的createobject产生ie对象，好处是不用引用，当然用你的那方法也可以
strUrl="http://jsgsj.gov.cn/baweb/show/sj/business_query.jsp?flag=2&fenceid=1"
With objXML
.Open "POST", strUrl, False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
r=[A65536].end(3).row
r1=[B65536].end(3).row+1
for i=r1 to r
.Send "businessName=" & cells(...) & "&representPeople=" & cells(...) & "&registeredNumber=" & cells(...)  '这里 cells(...)就是对应的企业名称、法定代表人、注册号，这句代码就相当于填写3个参数，然后点击查询
getUrlContent = .responseText '得到点击查询后返回的源代码
if instr(getUrlContent,"该企业信息未找到，请到直属局网站查询该企业信息")=0 then
    ie.Navigate "about:blank"
    ie.document.write getUrlContent  '判断没有alert语句后，用ie打开源代码
    ... '这里就正常用dom对象处理了
end if
End With

大概思路就是这样，可能有些问题，因为没有全部代码。我qq270581704

Answer 2

你是要屏蔽alert弹出框吗？

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As
Variant)

pDisp.Document.parentWindow.execScript "window.alert=null;"

pDisp.Document.parentWindow.execScript "window.confirm=null;"

pDisp.Document.parentWindow.execScript "window.showModalDialog=null;"

pDisp.Document.parentWindow.execScript "window.open=null;"

End Sub

追问

怎么用

追答

拷贝到webbrowser控件就行，你试试。

追问

我没用webbrowser控件

我用的 IE对象

Answer 3

全部代码呢？

追问

这个跟全部代码没关系
这是个独立的问题

就是网页弹出的信息框 ，自动检测， 自动关闭

追答

如果只提供这些信息的话，我只能告诉你用API去获取这个信息框的句柄，然后用API关闭它。

追问

我要会API ，还来这里提问干什么，具体怎么弄， 我是在网上找了半天弄不好才来提问的