IE自動化VBA，延遲使用sendkeys即時發送密鑰

我已經寫了一個代碼，以便在網頁導航並使用VBA將其粘貼到word文檔時拍攝屏幕截圖，我成功地做到了這一點，但我得到的最後一個屏幕截圖時間，而不是現在的一個，例如，每當我按下printscreen它粘貼屏幕截圖拿上一次而不是現在的一個請幫助我如何做到這一點，我需要部署這個工具緊急請幫助我，我試着做延遲，使爭論真實，虛假無效。這是我在Class 1模塊IE自動化VBA，延遲使用sendkeys即時發送密鑰

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

來源

2012-11-01 nothingisimpossible

Sendkeys是不可靠的。看到這個鏈接。這就是你想要的。 http://stackoverflow.com/questions/10759580/vba-webbrowser-capture-full-screen/10760645#10760645我粘貼在MSPaint中。您可以將其粘貼到單詞中 –

您不需要該部分。這是粘貼在PaintBrush中。該圖像已經在剪貼板中。你可以使用'Selection.Paste'來粘貼它。 –

@SiddharthRout它does not工作，它粘貼舊的一個，甚至使用keybd_event後，可以運行我的代碼，並給出一個解決方案嗎？請輸入 – nothingisimpossible

畢竟掙扎我想出了這個解決方案，我j ust使粘貼選項等待3秒，直到圖片被加載到剪貼板.... :)帶真正選項的sendkeys根本不起作用。

來源

2012-11-10 14:09:02 nothingisimpossible

嘗試 Application.SendKeys 「{44}」，真

第二個參數告訴執行的代碼等待行動完成

來源

2012-11-01 17:03:33 CSharpie

我甚至嘗試了Appliication.SendKeys「{44}」，即使它的工作方式是相同的，請執行我給出的代碼，並幫助我獲得解決方案。 – nothingisimpossible

IE自動化VBA，延遲使用sendkeys即時發送密鑰

回答

相關問題