Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Sub 更新2()
wz="http://j.cailizhong.com/hbk3.shtml"
ShellExecute 0&, vbNullString, wz, vbNullString, vbNullString, vbNormalFocus'打开网页
a = Timer'记录延迟起点时间
While Timer < a + 3 '等待3秒钟
DoEvents '转让控制权
Wend '完毕退出循环
Application.SendKeys "^A"'发送按键全选
Application.SendKeys "^C"'发送按键复制
Application.SendKeys "^{F4}" '发送按键关闭当前浏览器标签
End Sub
上面代码，网页是打开了，Ctrl+A的动作没有看到，Ctrl+F4的动作有（窗口可以关闭）
你想做什么？提取网页中的数据吗？这样的提取结果是不是你更想要的？
是啊，先谢了！
追答是还不选我^_^，我做的可是可以自动提取生成上面报表的程序哦！有需要私密我！
追问希望能够提供代码
追答如附件
sleep 10
Application.SendKeys "^C"'发送按键复制
sleep 10
Application.SendKeys "^{F4}" '发送按键关闭当前浏览器标签
sleep 100追问
肯定不是家暂停或延迟的问题，而是
Application.SendKeys "^A"'发送按键全选
这一句不是没有反应，而是做得别的动作而不是全选。加了延迟运行也不行。
Application.SendKeys "^a"
