//===================请自行修改参数===========
//请注意:此程序必须在带有微软office套件的电脑上次才能正常运行。
//点击程序的第一个坐标位置
x = 400
y = 400
//点击程序的第二个坐标位置
xx = 700
yy = 700
//延时600秒
times = "600"
//b表格,gx列,gy行,
b = 1
gx = 1
gy = 2
//cishu为向下读取次数
cishu = 5
//要读取的xls文件的路径
path = "C:\测试.xls"
//打开软件,获取软件句柄。这里以Windows的自带的记事本为例!
RunApp "notepad"
Delay 200
Hwnd = Plugin.Window.Find(0, "无标题 - 记事本")
//===========循环向下读取表格内容===========
Call 循环向下读取
//==================子程序=================
Sub 循环向下读取
While gy < cishu
Call Plugin.Office.OpenXls(path)
Text = Plugin.Office.ReadXls(b, gx, gy)
Call Plugin.Window.Active(Hwnd)
SayString Text
Delay times
MoveTo x, y
LeftClick 1
Delay times
MoveTo xx, yy
LeftClick 1
Delay times
gy = gy + 1
Wend
Call Plugin.Office.CloseXls()
End Sub
给分吧,有问题私信我!