写个按键精灵 读取excel数据的代码

Question

打开表格 定义变量abcdefgh八个变量 然后读取表格里第一行 A列到h列的数据 让变量a等于A1单元格数据 变量b等于B1单元格数据 依次类推 然后 moveto x,y SayString a moveto x1,y1 SayString b 前台后台都行 最好是后台

Answer 1

刚那个问题也是你提的吧
我回答了
Call
Plugin.Office.OpenXls("d:\1.xls")
dim
a,b,c,d,e,f,g,h
a
=
Plugin.Office.ReadXls(1,
7,
1)
b
=
Plugin.Office.ReadXls(1,
7,
2)
c
=
Plugin.Office.ReadXls(1,
7,
3)
d
=
Plugin.Office.ReadXls(1,
7,
4)
e
=
Plugin.Office.ReadXls(1,
7,
5)
f
=
Plugin.Office.ReadXls(1,
7,
6)
g
=
Plugin.Office.ReadXls(1,
7,
7)
h
=
Plugin.Office.ReadXls(1,
7,
8)
//下面这句是关闭Excel文档工作表
Call
Plugin.Office.CloseXls()
MoveTo
448,
331
LeftClick
1
Delay
100
Call
Plugin.Sys.SetCLB(a)
KeyDown
"Ctrl",
1
Delay
50
KeyDown
"V",
1
Delay
50
KeyUp
"Ctrl",
1
KeyUp
"V",
1