按键精灵读取并粘贴excel表格内容（同列逐行复制粘贴）-按键精灵读取office粘贴,按键精灵自动粘贴

//以下是抄例子袭百
Call Plugin.Office.OpenXls("C:\测试度.xls")
T= Plugin.Office.ReadXls(1, 1, 1)
Call Plugin.Sys.SetCLB(T)//这句可知以不用道
Call Plugin.Office.CloseXls()
SayString t

我理解是你想做个软件自动注册某个有用的东西，并且是以编号的形式使用，你想把这个编号让软件复制，粘贴到EXCEL表里，如果是这样的话,属于编程了，excel里的大侠不一定能解决，

其实这用按键精灵也很容易知实现啊，也不用录制，但你要把数据复制到哪个位置，这个你得找到坐标(用按键抓抓看一下道就知道了)

'假设你要复制的内容在c盘根目专录下"数据.xlsx"文档第一页第一行的1-10列单元格里,(弄简单点，整个前台操作的属例子吧)

Call Plugin.Office.OpenXls("C:\数据.xlsx")
For i = 1 To 10
    Text = Plugin.Office.ReadXls(1, 1, i)
MoveTo X坐标,Y坐标 //这里的 X坐标,Y坐标 就根据你自己的实际位置去修改吧
LeftClick 1
SayString Text
Delay 200
Next
Call Plugin.Office.CloseXls()

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