IE自动化VBA，使用sendkey立即发送密钥时的延迟
IE自动化VBA，使用sendkey立即发送密钥时的延迟
提问于 2012-11-01 16:56:34
我已经写了一个代码，无论何时网页导航和粘贴到Word文档使用VBA的屏幕截图，我成功地做到了，但我得到了上次的屏幕截图，而不是现在的一个。
例如，每当我按printscreen时，它就会粘贴上次拍摄的屏幕快照，而不是当前的屏幕快照。我试着做延迟，并将参数设为true，false，都不起作用。
这是我在Class1模块中尝试过的：
Option Explicit
Dim WithEvents ie As InternetExplorer
Dim wordapp As Object
Dim wrdDoc As Object
Dim t As Date
Sub Example()
Set wordapp = CreateObject("word.Application")
wordapp.Visible = True
Set wrdDoc = wordapp.Documents.Add
Set ie = New InternetExplorer
ie.navigate "http://www.csee.wvu.edu/~riggs/html/select_example.html"
Do Until ie.readyState = READYSTATE_COMPLETE: DoEvents: Loop
test
End Sub
Private Function href_onclick() As Boolean
Application.SendKeys "{44}"
wordapp.Selection.Paste
End Function在模块中
Sub initialise()
Set ev = New Class1
ev.Example
End Sub回答 2
Stack Overflow用户
回答已采纳
发布于 2012-11-10 14:09:02
经过一番挣扎后，我想出了这个解决方案，我只是让粘贴选项等待3秒，直到图片加载到剪贴板中...：)带有true选项的sendkey根本不起作用。
Stack Overflow用户
发布于 2012-11-01 17:03:33
试用Application.SendKeys "{44}"，为True
第二个参数告诉代码的执行等待操作完成
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/13181877
复制
相似问题
如何从SVN存储库中删除文件/文件夹并添加到忽略列表
从git存储库中删除忽略的文件
如何从git存储库中删除*所有*文件和目录？
如何从git库中删除被忽略的文件
从git中删除和忽略文件，但不要删除所有文件
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
