按键精灵读取excel内容

我在excel第一列每一行放了一个内容,想把第一行的内容复制到桌面上另外一个程序的编辑框,然后点击一下程序的某位置,然后延迟个30秒,再点击程序的另一个位置。这算一次运行完成。然后再去读第二行的数据,依次循环。麻烦会的给帮下忙,因为是新手,挨着往下读数据对本人太难。

第1个回答  2013-10-10

这个可以加我试试。不过能不能成功还要看你另一个程序能不能操作了。

987122817

第2个回答  2013-10-10
//===================请自行修改参数===========
//请注意:此程序必须在带有微软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

给分吧,有问题私信我!

相似回答