按键精灵的问题,为什么以1-10为图文件名,找到图后,把文件名送入剪贴板,然后到excel粘贴 10
按键精灵的问题,为什么以1-10为图文件名,找到图后,把文件名送入剪贴板,然后到excel粘贴按键精灵的问题,为什么以1-10为图文件名,找到图后,把文件名送入剪贴板,然...
按键精灵的问题,为什么以1-10为图文件名,找到图后,把文件名送入剪贴板,然后到excel粘贴按键精灵的问题,为什么以1-10为图文件名,找到图后,把文件名送入剪贴板,然后到excel粘贴,(希望为数值粘贴),时灵时不灵,加有i=CStr(i)或i=CInt(i)等也没有用,是因为找不到图的原因吗
(如果用办公插件,能做到在excel某列一直往下粘贴吗?我现在方法笨笨的)
DO
Do
For i = 1 To 10
FindPic 650,300,720,330,"Attachment:\"&i&".bmp",0.9,intX,intY
Delay 300
If intX > 0 And intY > 0 Then
Delay 300
MoveTo intX,intY
Delay 300
call Plugin.Sys.SetCLB(i)
Delay 300
Exit Do
End If
Delay 300
Next
Loop
MoveTo 470, 749//EXCEL页面
Delay 200
LeftClick 1
Delay 200
MoveTo 210, 210//EXCEL页面CX单元格
Delay 200
LeftClick 1
Delay 200
Call Lib.键盘.键盘组合键("Ctrl+V",0)
Delay 200
LeftClick 1
Delay 200
Keypress "Enter", 1
Delay 500
LOOP 展开
(如果用办公插件,能做到在excel某列一直往下粘贴吗?我现在方法笨笨的)
DO
Do
For i = 1 To 10
FindPic 650,300,720,330,"Attachment:\"&i&".bmp",0.9,intX,intY
Delay 300
If intX > 0 And intY > 0 Then
Delay 300
MoveTo intX,intY
Delay 300
call Plugin.Sys.SetCLB(i)
Delay 300
Exit Do
End If
Delay 300
Next
Loop
MoveTo 470, 749//EXCEL页面
Delay 200
LeftClick 1
Delay 200
MoveTo 210, 210//EXCEL页面CX单元格
Delay 200
LeftClick 1
Delay 200
Call Lib.键盘.键盘组合键("Ctrl+V",0)
Delay 200
LeftClick 1
Delay 200
Keypress "Enter", 1
Delay 500
LOOP 展开
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询