[已解决][求助] 怎样把当前工作薄的某个sheet拷贝到另外一个工作薄？

ampa

而且在当前工作博保留副本，我试了写了两行代码 却不能运行。。。

Sub test()

Set wk = GetObject("E:\工作簿2.xlsx")
ThisWorkbook.Sheets("data").Copy Before:=wk.Sheets("sheet2")
End Sub


把当前工作薄里面Sheets("data")拷贝至"E:\工作簿2.xlsx"，并且在Sheets("data")保留源文件。。。。。。
E:\工作簿2.xlsx可为打开的文件 也可为没打开的文件........
望各位老师指点 谢谢

最佳答案

月排行榜 / 总排行榜

zjcat35

2012-6-21 00:32

1. 
   
2. Sub test()
   
3. Application.ScreenUpdating = False
   
4. Dim wk As Workbook
   
5. Set wk = Workbooks.Open("E:\工作簿2.xlsx")
   
6. ThisWorkbook.Sheets("data").Copy Before:=wk.Sheets("sheet2")
   
7. Application.DisplayAlerts = False
   
8.     wk.Close True
   
9.     Application.DisplayAlerts = True
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码

跳转到最佳答案楼层

zjcat35

1. 
   
2. Sub test()
   
3. Application.ScreenUpdating = False
   
4. Dim wk As Workbook
   
5. Set wk = Workbooks.Open("E:\工作簿2.xlsx")
   
6. ThisWorkbook.Sheets("data").Copy Before:=wk.Sheets("sheet2")
   
7. Application.DisplayAlerts = False
   
8.     wk.Close True
   
9.     Application.DisplayAlerts = True
   
10.     Application.ScreenUpdating = True
    
11. End Sub

复制代码