Question

vba跨excel实现复制粘贴

在1.xls中的sheet1表中，选择好第1行后，然后新建一个2.xls,将刚才选中的数据粘贴到2.xls中。怎么实现？

Answer 1

VBA充分利用数组，先将A工作表的数据读入数组中，再将数组的值粘贴回B工作表。
具体作法如下示例：
xx = A.Sheets(1).Range("A1:Z100").value '这里加上个.value
A.Sheets(1).Range("A1:Z100")=xx
说明：
xx 中间传递数据的变量。
A 工作表A.XLS对象。可以用set a=workbooks.open("d:\a.xls")等方式获得这个对象
B 工作表B.XLS对象。

Answer 2

以下代码将Sheet1第1行中的数据复制到Sheet2的第1行中。

Sub 跨表复制()
    Sheet1.Range("1:1").Copy Sheet2.[a1]
End Sub

追问

不是在1个excel中的。。。。

Answer 3

Sub ZHANTIE()
Dim WB
Set WB = Workbooks.Add
ThisWorkbook.Sheets(1).Rows(1).Copy WB.Sheets(1).Range("a1")
WB.SaveAs (ThisWorkbook.Path & "\2.xls")
WB.Close False
End Sub
加入你的宏是写在1.xls中sheets(1)工作表