按键精灵循环读取表格下一行内容并复制到网页

先把第一行第一列读取到另一界面粘贴,然后读取一行二列到另一界面粘贴,然后再调到下一列单元格重复操作,求源码。在线等。。。

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
温馨提示:答案为网友推荐,仅供参考
相似回答