如何用按键精灵逐条复制粘贴内容 5
想从一个excel里复制出一些内容,粘贴在另一个软件里,然后再回来用复制下一个内容,再回去粘贴,逐条的,这个怎们做脚本啊...
想从一个excel里复制出一些内容,粘贴在另一个软件里,然后再回来用复制下一个内容,再回去粘贴,逐条的,这个怎们做脚本啊
展开
2个回答
展开全部
//下面这句是打开Excel文档工作表
Call Plugin.Office.OpenXls("C:\测试.xls")//具体Excel文件路径自行修改
For i = 1 To 10//复制10次,需要多少次请自行修改
//下面这句是向Excel文档工作表(1)单元格(1, i)读出内容存入(内容)变量
内容 = Plugin.Office.ReadXls(1, 1, i)
MoveTo x, y///x,y是需要黏贴的坐标点
Delay 100
LeftClick 1
Delay 300
SayString 内容///输出内容
Delay 300
Next
//下面这句是关闭Excel文档工作表,脚本运行结束后必须关闭,不然下次可能无法正常打开
Call Plugin.Office.CloseXls()
引用btood的回答:
//下面这句是打开Excel文档工作表Call Plugin.Office.OpenXls("C:\测试.xls")//具体Excel文件路径自行修改For i = 1 To 10//复制10次,需要多少次请自行修改 //下面这句是向Excel文档工作表(1)单元格(1, i)读出内容存入(内容)变量 内容 = Plugin.Office.ReadXls(1, 1, i) MoveTo x, y///x,y是需要黏贴的坐标点 Delay 100 LeftClick 1 Delay 300 SayString 内容///输出内容 Delay 300Next//下面这句是关闭Excel文档工作表,脚本运行结束后必须关闭,不然下次可能无法正常打开Call Plugin.Office.CloseXls()
//下面这句是打开Excel文档工作表Call Plugin.Office.OpenXls("C:\测试.xls")//具体Excel文件路径自行修改For i = 1 To 10//复制10次,需要多少次请自行修改 //下面这句是向Excel文档工作表(1)单元格(1, i)读出内容存入(内容)变量 内容 = Plugin.Office.ReadXls(1, 1, i) MoveTo x, y///x,y是需要黏贴的坐标点 Delay 100 LeftClick 1 Delay 300 SayString 内容///输出内容 Delay 300Next//下面这句是关闭Excel文档工作表,脚本运行结束后必须关闭,不然下次可能无法正常打开Call Plugin.Office.CloseXls()
展开全部
您真的是软件专家。我有点事问您。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询