请高人帮忙：vba 与网页confirm消息框的交互如何自动回车点确定按钮

koshihki

遇到同样的问题……请高手帮帮忙……
我不是要导出数据，是要关闭网页，但是一出现提示程序就挂起
没办法往下执行了

鱼求雨

我想如果您用webbrower控件的话,这个控件有个弹出新窗口的事件,或许可以帮助您.

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Cancel =true    '这样就不弹出窗口啦
End Sub

[ 本帖最后由 鱼求雨 于 2009-11-28 13:06 编辑 ]

byl2005

如果没有用WEBBROWSER而是直接操作的话呢?

hemd

模拟键盘方式嘛
Option Explicit
'模拟键盘函数
Private Declare Sub keybd_event Lib "user32" _
                         (ByVal bVk As Byte, ByVal Scan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
                        
'根据指定的映射类型，执行不同的扫描码和字符转换，0—— wCode是个虚拟键码。函数返回相应的扫描码
Private Declare Function MapVirtualKey Lib "user32" _
                         Alias "MapVirtualKeyA" _
                         (ByVal wCode As Long, _
                         ByVal wMapType As Long) _
                         As Long
Private Const VK_CONTROL = &H11
Private Const KEYEVENTF_KEYUP = &H2
Private Const VK_RETURN = &HD


keybd_event VK_RETURN, MapVirtualKey(VK_RETURN, 0), 0, 0    模拟键盘回车

itmhs

{:soso_e101:}