一个文件名：“订单”，
另一个文件名：“报告”。
现在需要在“订单”的“D2010”这个页面上添加一个命令按钮“执行”，按“执行”后，将“D2010”的$C:$G列的数据复制到“报告”的“B2010”页面的$A:$E列上去。
1.在sheet1中先写好筛选条件，点开文件复制的目标excel（本文是sheet2），最上面工具栏中点“数据”，找到筛选旁边的“高级”选项，跳出“高级筛选”框
2.选中“将筛选结果复制到其他位置”，然后“列表区域”选中sheet1中的原始数据，“条件区域”选中sheet1中我们提前写好的条件，“复制到”选中sheet2中任意一个单元格（如果有要求是哪个单元格，直接点击对应单元格），“确定”
3.结果就出来了。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2014-03-12
这样就行了,在"订单"的D2010面页上画一个文本框,输入"执行".然后在当前工作表内录制一个"执行"宏,如下:
Sub 执行()
Workbooks.Open Filename:="X:\\报告.xls"
Windows("D2010").Activate
Columns("C:G").Select
Application.CutCopyMode = False
Selection.Copy
Windows("报告.xls").Activate
Sheets("D2010").Select
Columns("A:E").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
End Sub
选中画好的文本框,右键,指定宏,选刚录好的上面那个"执行"宏,这样就完全实现你的要求.
说明:宏内第一行的的"X:\\报告.xls"请把它改为你的报告.XLS文件实际路径即可.
建议:能够用宏来做的,不需要用VB按钮.如果一定要用,把宏内的代码复制到按钮代码内,稍作修改即行.本回答被网友采纳
Sub 执行()
Workbooks.Open Filename:="X:\\报告.xls"
Windows("D2010").Activate
Columns("C:G").Select
Application.CutCopyMode = False
Selection.Copy
Windows("报告.xls").Activate
Sheets("D2010").Select
Columns("A:E").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
End Sub
选中画好的文本框,右键,指定宏,选刚录好的上面那个"执行"宏,这样就完全实现你的要求.
说明:宏内第一行的的"X:\\报告.xls"请把它改为你的报告.XLS文件实际路径即可.
建议:能够用宏来做的,不需要用VB按钮.如果一定要用,把宏内的代码复制到按钮代码内,稍作修改即行.本回答被网友采纳
