按键精灵怎么将excel表的一列单元格内容放入剪贴板然后粘贴到指定excel位置呢

Question

我想将excel表1的第一列内容单元格逐个复制到表2里面,不想用用ALT+TAB，我想用数组存放单元格内容，然后输出数组元素到另一表的单元格里
Dim a(20) //我定义一个数组 For i = 1 T

Di
Dim a(20) //我定义一个数组
For i = 1 To 20
Call Plugin.Office.OpenXls("C:\Users\Administrator\Desktop\1.xls")
a(i) = Plugin.Office.ReadXls(1, i, 2) //把指定的excel的每个单元格放入数组元素中
Delay 500
Hwnd = Plugin.Window.Search("Microsoft Excel - 2.xls") //获取要粘贴的那个excel表句柄
Delay 500
Call Plugin.Window.Max(Hwnd)
Delay 500
KeyPress "BackSpace", 1 //进入输入状态
Delay 500
SayString a(i) //输入数组元素
Delay 500
KeyPress "Enter", 1
Next
但是实际是没有任何内容,只有进行复制换行复制换行，求高手告诉我哪里有错，是不是类型没有转换

Answer 1

调试有报错么?我的不是完整版,要报错用不了.

按照办公插件的用法,应该是打开读取文件,读取数据保存到数组,然后关闭该文件.再打开另一个表格,把数据输入.然后关闭.

Answer 2

按键有EXCEL插件...为什么不用?

Answer 3

为甚要写出这么复杂的语句，你要复制一整列还是怎么回事，我帮你做