8 个解决方案
#1
就是我把一个表做好了,想通过VBA做一个按钮,按钮的功能要求数据录入完成后,点按钮把此表中的数据COPY到另一张指定的EXCEL表中。大家有什么好的方法?
#2
数据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
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
#3
如果要控制具体的数据COPY有什么方法?就是一个页面上可能有的数据是我要的,有的不是我要的,想把要的COPY到另一张表中怎么办?谢谢
#4
比如你想要单元格区域a1:b5的数据,只要把上面代码中
……
Sheets(1).Activate
Cells.Select
Selection.Copy
……
改成如下代码即可实现:
……
Sheets(1).Activate
Range("a1:b5:").select
Selection.Copy
……
……
Sheets(1).Activate
Cells.Select
Selection.Copy
……
改成如下代码即可实现:
……
Sheets(1).Activate
Range("a1:b5:").select
Selection.Copy
……
#5
在本工作薄内怎么控制?谢谢
#6
本工作薄内选择不同的工作表就行了Sheets(1).Activate表的序号根据情况更改就行了
#7
你好,我还想问你一下,如果我想把同一工作薄的A、B、C、。。多张表COPY到D表。但不能把以前COPY的数据覆盖。你上次给你解决方法只能把从一张表中COPY到另一张表,但不能接着住上次覆盖的地方去COPY?有什么好办法不?谢谢
#8
各位高手,想请教一下,如果两个表不在同一路径,即同一个文件夹内是怎么解决?
#1
就是我把一个表做好了,想通过VBA做一个按钮,按钮的功能要求数据录入完成后,点按钮把此表中的数据COPY到另一张指定的EXCEL表中。大家有什么好的方法?
#2
数据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
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
#3
如果要控制具体的数据COPY有什么方法?就是一个页面上可能有的数据是我要的,有的不是我要的,想把要的COPY到另一张表中怎么办?谢谢
#4
比如你想要单元格区域a1:b5的数据,只要把上面代码中
……
Sheets(1).Activate
Cells.Select
Selection.Copy
……
改成如下代码即可实现:
……
Sheets(1).Activate
Range("a1:b5:").select
Selection.Copy
……
……
Sheets(1).Activate
Cells.Select
Selection.Copy
……
改成如下代码即可实现:
……
Sheets(1).Activate
Range("a1:b5:").select
Selection.Copy
……
#5
在本工作薄内怎么控制?谢谢
#6
本工作薄内选择不同的工作表就行了Sheets(1).Activate表的序号根据情况更改就行了
#7
你好,我还想问你一下,如果我想把同一工作薄的A、B、C、。。多张表COPY到D表。但不能把以前COPY的数据覆盖。你上次给你解决方法只能把从一张表中COPY到另一张表,但不能接着住上次覆盖的地方去COPY?有什么好办法不?谢谢
#8
各位高手,想请教一下,如果两个表不在同一路径,即同一个文件夹内是怎么解决?