VBA中将一个工作簿中的内容复制到另一个工作簿中的代码怎么写?
比如从sheet1 中A1到R64的内容复制到sheet2中的同样位置中去,代码怎么写?
第1个回答 2012-12-19
Sub test()
Dim mybook1 As Workbook
Dim mybook2 As Workbook
Set mybook1 = Application.Workbooks("book1.xls")
Set mybook2 = Application.Workbooks("book2.xls")
mybook1.Sheets(1).Range("A1:A5").Copy mybook2.Sheets(1).Range("b1:b5")
End Sub
Dim mybook1 As Workbook
Dim mybook2 As Workbook
Set mybook1 = Application.Workbooks("book1.xls")
Set mybook2 = Application.Workbooks("book2.xls")
mybook1.Sheets(1).Range("A1:A5").Copy mybook2.Sheets(1).Range("b1:b5")
End Sub
第2个回答 2010-06-15
Sub FZ()
Windows("Book1").Activate
Sheets("Sheet1").Range("A1:R64").Select
Selection.Copy
Windows("Book2").Activate
Sheets("Sheet1").Range("A1:R64").Select
Selection.Paste
End Sub
Windows("Book1").Activate
Sheets("Sheet1").Range("A1:R64").Select
Selection.Copy
Windows("Book2").Activate
Sheets("Sheet1").Range("A1:R64").Select
Selection.Paste
End Sub
第3个回答 2010-06-14
Sub copydyg()
Windows("Book1").Activate
Sheets("Sheet1").Select
ActiveCell.Offset(-63, -17).Range("A1:R64").Select
Selection.Copy
Windows("Book2").Activate
Sheets("Sheet2").Select
ActiveCell.Range("A1:R64").Select
ActiveSheet.Paste
End Sub本回答被网友采纳
Windows("Book1").Activate
Sheets("Sheet1").Select
ActiveCell.Offset(-63, -17).Range("A1:R64").Select
Selection.Copy
Windows("Book2").Activate
Sheets("Sheet2").Select
ActiveCell.Range("A1:R64").Select
ActiveSheet.Paste
End Sub本回答被网友采纳
第4个回答 2010-06-14
你可以自己录一下,再看它生成的代码就可以了