- 帖子
- 172
- 主題
- 39
- 精華
- 20
- 積分
- 177
- 點名
- 0
- 作業系統
- Microsoft Windows XP
- 軟體版本
- Microsoft Office 2003
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2010-5-1
- 最後登錄
- 2023-3-19
 
|
用DoEvents... oobird版主已經更您講了...
只是您的程式Run一次要點時間 所以按下"A"要再等一下~
Sub 模擬按鍵()
Dim X As Integer
Dim Y As Integer
X = 90
Y = 350
Call SetCursorPos(X, Y)
mouse_event 2, 0, 0, 0, 0
mouse_event 4, 0, 0, 0, 0
keybd_event 17, MapVirtualKey(17, 0), 0, 0
keybd_event 67, MapVirtualKey(67, 0), 0, 0
keybd_event 67, MapVirtualKey(67, 0), 2, 0
keybd_event 17, MapVirtualKey(17, 0), 2, 0
X = 90
Y = 490
Call SetCursorPos(X, Y)
mouse_event 2, 0, 0, 0, 0
mouse_event 4, 0, 0, 0, 0
Sheets("sheet1").Cells(3, 3).Select
ActiveSheet.Paste
Sleep 3000
DoEvents
Application.OnKey "A", "停止"
模擬按鍵
End Sub |
|
發表於 2010-11-9 20:29
| 