怎么把一张EXCEL中的表的数据COPY到另一张数据表中？

[lijun2000]

怎么把一张EXCEL中的表的数据COPY到另一张数据表中？

[lijun2000]

就是我把一个表做好了，想通过VBA做一个按钮，按钮的功能要求数据录入完成后，点按钮把此表中的数据COPY到另一张指定的EXCEL表中。大家有什么好的方法？

[jacktown]

数据copy到本工作薄内的另一个表中：
Sub copy_sheet()
Cells.Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
End Sub

数据copy到其他工作薄的表中：
Sub copy_sheet()
wb1 = ActiveWorkbook.Name
Application.FileDialog(msoFileDialogFilePicker).Filters.Add "Excel(*.xls)", "*.xls", 1
temp = Application.FileDialog(msoFileDialogFilePicker).Show
If temp <> 0 Then
Application.Workbooks.Open (Application.FileDialog(msoFileDialogFilePicker).SelectedItems(1))
End If
wb2 = ActiveWorkbook.Name
Workbooks(wb1).Activate
Sheets(1).Activate
Cells.Select
Selection.Copy
Workbooks(wb2).Activate
Sheets("Sheet2").Activate
Range("a1").Select
ActiveSheet.Paste
Range("a1").Select
Workbooks(wb2).Save
Workbooks(wb2).Close
End Sub

[lijun2000]

如果要控制具体的数据COPY有什么方法？就是一个页面上可能有的数据是我要的，有的不是我要的，想把要的COPY到另一张表中怎么办？谢谢

[jacktown]

比如你想要单元格区域a1:b5的数据，只要把上面代码中
……
Sheets(1).Activate
Cells.Select
Selection.Copy
……
改成如下代码即可实现：

……
Sheets(1).Activate
Range("a1:b5:").select
Selection.Copy
……

[lijun2000]

在本工作薄内怎么控制？谢谢

[jacktown]

本工作薄内选择不同的工作表就行了Sheets(1).Activate表的序号根据情况更改就行了

[lijun2000]

你好，我还想问你一下，如果我想把同一工作薄的A、B、C、。。多张表COPY到D表。但不能把以前COPY的数据覆盖。你上次给你解决方法只能把从一张表中COPY到另一张表，但不能接着住上次覆盖的地方去COPY？有什么好办法不？谢谢

[hai167]

各位高手,想请教一下,如果两个表不在同一路径,即同一个文件夹内是怎么解决?