- 帖子
- 151
- 主題
- 1
- 精華
- 0
- 積分
- 197
- 點名
- 14
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2024-4-18
|
本帖最後由 quickfixer 於 2021-11-3 17:00 編輯
回復 3# zz0660
這裡抄來的,原文網址
你run看看,像這樣嗎?秒數自己調整
Sub Copy()
Dim file_name As String
Range("A2:A32").Copy
ActiveWindow.WindowState = xlMinimized
Delay (1) '等1秒
file_name = "C:\Windows\system32\notepad.exe" '記事本開新文件
Shell file_name, vbNormalFocus
AppActivate "未命名 - 記事本" '記事本視窗的標題
Delay (3) '等3秒
SendKeys "{ENTER}", True 'ctrl+v之前要先隨便輸入個東西
SendKeys "{BACKSPACE}", True
Delay (0.3) '等0.3秒
SendKeys "^V", True
End Sub
Sub Delay(setdelay As Single)
Dim StartTime As Double, NowTime As Double
StartTime = Timer * 100
setdelay = setdelay * 100
Do
NowTime = Timer * 100
DoEvents
Loop Until NowTime - StartTime > setdelay
End Sub |
|
發表於 2021-11-3 16:55
| 