<em>Excel</em> 复制数据到另一个<em>Workbook</em

运行之后，选择zd那个“文件2”，点确定，就把“文件内2”里"sheet3"的A1：L1000复制到运行文档“sheet1”的B2：M1001了~
附件文档的模块1里，按alt+f11打开编辑器容

Sub a()
Dim a
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.InitialFileName = ThisWorkbook.Path
If .Show = -1 Then
Set a = Workbooks.Open(.SelectedItems(1))
a.Sheets("sheet3").AutoFilterMode = False
a.Sheets("sheet3").Range("A1:L1000").Copy ThisWorkbook.Sheets("sheet1").Range("B2")
a.Close False
End If
End With
End Sub

方法1：
选workbook1的sheet1 Ctrl+A Ctrl+C 然后选workbook2。 sheet1 Ctrl+V 我试过CP 38万条数据 也用不了多久。
方法2：
右键点原数据的sheet表，选“e68a847a686964616f331移动或复制工作表”，在工作薄中选择目标文件名，选中“建立副本”。
方法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
在Book1.xls中写如下百代码：度Sub Test()Dim i As IntegerWorkbooks.Open "D:\book2.xls", False, TrueFor i = 1 To Range("A65000").End(xlUp).RowIf Cells(i, 1) = ThisWorkbook.Sheets(1).Range("A1") ThenThisWorkbook.Sheets(1).Range("B1") = Cells(i, 2)ThisWorkbook.Sheets(1).Range("C1") = Cells(i, 3)End IfNext iWorkbooks("Book2.xls").Close 0End Sub运行它就内可以了。容

方法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="你要读取的原数据文件路e799bee5baa6e78988e69d83366径+文件名+文件后缀" '可设为字符变量
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