（求助）选择复制一工作簿部分表至新工作簿问题

sdwffw

Book3.rar (1.75 KB, 下载次数: 35)

2012-8-1 08:14 上传

点击文件名下载附件
问题见附件sheet1表，谢谢老师指教。

ws278106483

Sub fz()

Dim arr
Dim mbook As Workbook
  Set mbook = Workbooks.Add
  mbook.SaveAs "C:\Documents and Settings\Administrator\桌面\book4.xls"
  mbook.Sheets(1).Name = "新工作表"
Workbooks("book3").Sheets("sheet2").Range("A1").Copy Destination:=Workbooks("book4").Sheets("新工作表").Range("A1")
Workbooks("book3").Sheets("sheet4").Range("A1").Copy Destination:=Workbooks("book4").Sheets("新工作表").Range("B1")
mbook.Sheets("sheet2").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
mbook.Sheets("sheet3").Select
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End Sub

sdwffw

老师，我是想通过thsiworkbook中Private Sub Workbook_Open()事件实现，

Private Sub Workbook_Open()
sheet2.copy
Sheet4.Copy
ActiveWorkbook.Close savechanges:=True, Filename:=ThisWorkbook.Path & "\" & Year(Date) - 1 & "book4.xls"

End Sub

sdwffw

如何修改
sheet2.copy
Sheet4.Copy
ActiveWorkbook.Close savechanges:=True, Filename:=ThisWorkbook.Path & "\" & Year(Date) - 1 & "book4.xls"
语句，使这两个表都拷贝到以上年度+book4名称命名的工作簿中

sdwffw

请老师帮助改改代码，谢谢

sdwffw

很长时间无老师解答了，请老师帮忙看看。