利用excel的VBA，将一个已知workbook的内容复制到另一个workbook中，程序如何写？

Question

比如，workbook1的sheet1中有很多数据，我现在还有一个workbook2，我想把workbook1的sheet1的数据完全复制到workbook2的sheet1中，请各位大侠帮忙

Answer 1

方法1：
选workbook1的sheet1 Ctrl+A Ctrl+C 然后选workbook2。 sheet1 Ctrl+V 我试过CP 38万条数据 也用不了多久。
方法2：
右键点原数据的sheet表，选“移动或复制工作表”，在工作薄中选择目标文件名，选中“建立副本”。
方法3：
如果是多文件。多sheet表。在被写入的文件中写入VBA
Public filepath As String
Public excelapp As New Excel.Application

dim x,y,n,m as long
filepath="你要读取的原数据文件路径+文件名+文件后缀" '可设为字符变量
Set Workbook = excelapp.Workbooks.Open(Filename:=filepath)
with excelapp.application
n=excelapp.sheets("原数据表名称").usedrange.rows.count
m=excelapp.sheets("原数据表名称").usedrange.columns.count
sheets("被写入数据吧表名称").cells(1,1).resize(n,m).value=excelapp.sheets("原数据表名称").cells(1,1).resize(n,m).value
end with

excelapp.application.quit

Answer 2

注意修改工作簿名称和表名称
Workbooks("BOOK2").Worksheets("SHEET1").UsedRange.Copy Workbooks("BOOK3").Worksheets("SHEET1").[A1]

Answer 3

Sheets("Sheet1").Select
Sheets("Sheet1").Copy After:=Workbooks("Book2").Sheets(1)
注意修改工作簿名称和表名称