vba跨excel实现复制粘贴
发布网友
发布时间：2022-04-24 03:38
共3个回答
热心网友
时间：2023-10-25 10:42
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对象。
热心网友
时间：2023-10-25 10:43
以下代码将Sheet1第1行中的数据复制到Sheet2的第1行中。
Sub 跨表复制()Sheet1.Range("1:1").Copy Sheet2.[a1]
End Sub
追问不是在1个excel中的。。。。
热心网友
时间：2023-10-25 10:43
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)工作表
热心网友
时间：2023-10-25 10:42
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对象。
热心网友
时间：2023-10-25 10:43
以下代码将Sheet1第1行中的数据复制到Sheet2的第1行中。
Sub 跨表复制()Sheet1.Range("1:1").Copy Sheet2.[a1]
End Sub
追问不是在1个excel中的。。。。
热心网友
时间：2023-10-25 10:43
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)工作表
