Question

按键精灵EXCEL读取循环问题

读取EXCEL表1里A1和B1到另一个软件分别对应的两点处
一只读取下去A2 B2 A3 B3 A4 B4..........................
我应该怎么加循环
Hwnd = Plugin.Window.Find(0, "1.xlsx - EXCEL")
dim a,b,
Call Plugin.Office.OpenXls("E:\按键精灵2014\1.xlsx")
a = Plugin.Office.ReadXls(1,1,1)
b = Plugin.Office.ReadXls(1,1,2)
Call Plugin.Office.CloseXls()
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Bkgnd.LeftClick(Hwnd, 569, 151)
Call Plugin.Window.SendString(Hwnd, a)
Call Plugin.Bkgnd.LeftClick(Hwnd, 640, 152)
Call Plugin.Window.SendString(Hwnd, b)
两点处的坐标不变

Answer 1

Hwnd = Plugin.Window.Find(0, "1.xlsx - EXCEL")
dim a,b
Call Plugin.Office.OpenXls("E:\按键精灵2014\1.xlsx")
For i = 1 To 100
a = Plugin.Office.ReadXls(1,i,1)
b = Plugin.Office.ReadXls(1,i,2)
Hwnd = Plugin.Window.MousePoint()
Call Plugin.Bkgnd.LeftClick(Hwnd, 569, 151)
Call Plugin.Window.SendString(Hwnd, a)
Call Plugin.Bkgnd.LeftClick(Hwnd, 640, 152)
Call Plugin.Window.SendString(Hwnd, b)
Next
Call Plugin.Office.CloseXls()

Answer 2

定义一个变量，每次读完让变量+1
把这个变量作为参数中的行号放到函数当中。举个我写的简单的例子
call
plugin.office.writexls(1,row,2,
guid)
我把我的内容写入到row行2列的单元格
完了之后改变行号
row=row+1