按键精灵循环读取表格下一行内容并复制到网页
先把第一行第一列读取到另一界面粘贴,然后读取一行二列到另一界面粘贴,然后再调到下一列单元格重复操作,求源码。在线等。。。...
先把第一行第一列读取到另一界面粘贴,然后读取一行二列到另一界面粘贴,然后再调到下一列单元格重复操作,求源码。在线等。。。
展开
1个回答
推荐于2016-10-22
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询