写个按键精灵 读取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

Answer 2

bvnvb