• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.2.9
软件大小:62.5M
更新时间:12-07

按键精灵iOS版
立即下载

软件版本:1.3.1
软件大小:29.2M
更新时间:09-29

按键精灵Mac版
立即下载

软件版本:1.1.0
软件大小:12.3M
更新时间:12-29

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

读取EXCEL单元格的内容并进行粘贴操作的脚本 [复制链接]

1#

//选定并打开指定的EXCLE文件
MessageBox "请通过附件画图等软件确定各输入点点击点的坐标,使用TAB键进行下一条记录"
path=Plugin.File.SelectFile()
Delay 500
Call Plugin.lxj_Office.lxj_ExcelOpen(path,1)

//输入单元格所在的列
lie1 = clng(InputBox("第一输入单元格所在的列", "单元格所在的列", "2"))
lie2 = clng(InputBox("第二输入单元格所在的列", "单元格所在的列"))
i = clng(InputBox("开始的行", "从哪一行开始", "2"))
text = Plugin.lxj_Office.lxj_ExcelRead(1, i, lie1)
text1 = Plugin.lxj_Office.lxj_ExcelRead(1, i, lie2)

UserVar zuobiao1="0,0" "第一输入点"
UserVar zuobiao2="0,0" "第一点击点"
UserVar zuobiao3="0,0" "第二点击点"
UserVar zuobiao4= "0,0" "第二输入点"

zb1Array = Split(zuobiao1, ",")
zb2Array = Split(zuobiao2, ",")
zb3Array = Split(zuobiao3, ",")
zb4Array = Split(zuobiao4, ",")

t = 0
Delay 300


Rem ganghuo
//读取指定单元格的内容
If len(text) = 0 Then
t = t + 1
If t = 2 Then
Call Plugin.lxj_Office.lxj_ExcelSave()
Delay 1000
Call Plugin.lxj_Office.lxj_ExcelClose()
Delay 500
ExitScript
Else
MessageBox "已经读取到最后一条记录啦!"
End If
End If
Call Plugin.Sys.SetCLB(text)

//等待进行粘贴
If key = 27 Then
Key=99
text = Plugin.lxj_Office.lxj_ExcelRead(1, i, lie1)
text1 = Plugin.lxj_Office.lxj_ExcelRead(1, i, lie2)
Call Plugin.Sys.SetCLB(text)
Call Plugin.Msg.Tips("正在处理第" & i & "行")
Else
Delay 1000
Goto checkkey
End If





//第一输入点
MoveTo zb1Array(0), zb1Array(1)
LeftClick 3
delay 300
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1
i = i + 1
Delay 1000
GetColor=GetPixelColor(zb2Array(0), zb2Array(1))
If len(text1) <> 0 Then
Goto csf
Else
Goto cdf
End If


Rem cdf
//点击第一点击点
MoveTo zb2Array(0), zb2Array(1)
Delay 500
LeftClick 1
Delay 500


Rem dengdeng
Delay 500
GetColor1=GetPixelColor(zb2Array(0), zb2Array(1))
If GetColor1<>GetColor Then
Goto dengdeng
End If

//点击第二点击点
MoveTo zb3Array(0), zb3Array(1)
Delay 100
LeftClick 1
//进行一条读取
Goto checkkey

Rem csf
//第二输入点
Call Plugin.Sys.SetCLB("")
Call Plugin.Sys.SetCLB(text1)
MoveTo zb4Array(0), zb4Array(1)
LeftClick 3
delay 300
KeyDown 17, 1
KeyPress 86, 1
KeyUp 17, 1


//点击第一点击点
MoveTo zb2Array(0), zb2Array(1)
Delay 500
LeftClick 1
Delay 500
Rem dengdeng1
Delay 500
GetColor1=GetPixelColor(zb2Array(0), zb2Array(1))
If GetColor1<> GetColor Then
Goto dengdeng1
End If

//点击第二点击点
MoveTo zb3Array(0), zb3Array(1)
Delay 100
LeftClick 1
Call Plugin.Sys.SetCLB("")

//按键判断
Rem checkkey
key = GetLastKey
Goto ganghuo


Sub OnScriptExit()
Call Plugin.lxj_Office.lxj_ExcelSave()
Delay 1000
Call Plugin.lxj_Office.lxj_ExcelClose()
Delay 500
pName = "excel.exe"
VBSBegin
strComputer = "."
pName = "Select * from Win32_Process Where Name = '"&pName&"'"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" &strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery (pName)
For Each objProcess in colProcessList
objProcess.Terminate()
Next
VBSEnd
End Sub

2#

楼主还是在吗?

战狼3已开始筹备,冷锋从非洲回到国内被战狼召回!得知龙小云被反政府雇佣军抓获后并没有死去,而是被坦桑尼亚的一家红十字会救了伤口愈合后的龙小云出现失忆症,只记得她经常喊出的一组奇怪的字g6s50u57kx什么惊天秘密呢,让我们一起复制本消息,打开支付宝,探索龙小云的内心世界!
3#

貌似很牛的样子

发新话题 回复该主题