[已解决]把工作表从一个工作簿移到另一个工作簿

2198596388

请高手帮忙，VBA如何把某个工作表从一个工作簿移到另一个工作簿。附件 汇总.zip (46.97 KB, 下载次数: 5)

2016-6-26 11:40 上传

点击文件名下载附件   （效果要求：把 汇总\财务\workbooks("账目.xlsm").sheets("工资")   移到汇总\workbooks("业绩.xlsm")中第1个工作表前面）     先谢了！

最佳答案

月排行榜 / 总排行榜

老司机带带我

2016-6-26 14:05

1. Sub xx()
   
2.     Dim MyPath$, MyFile$
   
3.     MyPath = ThisWorkbook.Path & "\财务\账目.xlsm"
   
4.     Application.DisplayAlerts = False
   
5.     ThisWorkbook.Sheets("工资").Delete
   
6.     With GetObject(MyPath)
   
7.         .Sheets("工资").Copy ThisWorkbook.Sheets(1)
   
8.         .Close False
   
9.     End With
   
10.     Application.DisplayAlerts = True
    
11. End Sub

复制代码

跳转到最佳答案楼层

老司机带带我

1. Sub xx()
   
2.     Dim MyPath$, MyFile$
   
3.     MyPath = ThisWorkbook.Path & "\财务\账目.xlsm"
   
4.     Application.DisplayAlerts = False
   
5.     ThisWorkbook.Sheets("工资").Delete
   
6.     With GetObject(MyPath)
   
7.         .Sheets("工资").Copy ThisWorkbook.Sheets(1)
   
8.         .Close False
   
9.     End With
   
10.     Application.DisplayAlerts = True
    
11. End Sub

复制代码