按键精灵 读取excel表格内容 并粘贴

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

h列的身份证号码中批量提取出出生年月的公式是=mid(h1,7,4)&"年"

留qq

你联系，方法好多，教你。HI 我