[已解决]关于vba使用关闭事件的问题,请指教!

haikeyia

我有一个统计表,需要在关闭前将sheet2中的数据导出到新工作表中保存,我这代码用在窗体事件中没有问题,可用在Workbook_BeforeClose(Cancel As Boolean)中,数据无法在新建的表格中粘贴保存,有点不明白了,求指教!
请见附件 tongji2.rar (10.47 KB, 下载次数: 31)

2014-7-5 10:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2014-7-5 11:26

1. Option Explicit
   
2. Private isClose As Boolean
   
3. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
4.     If Not isClose Then
   
5.         isClose = True
   
6.         Sheet2.Copy
   
7.         Application.DisplayAlerts = False
   
8.         ActiveWorkbook.SaveAs filename:="E:\数据统计" & Format(Date, "yyyymmdd")
   
9.         ActiveWindow.Close savechanges:=True
   
10.         Application.DisplayAlerts = True
    
11.         Windows("tongji2.xls").Activate
    
12.         Sheet3.Select
    
13.         MsgBox "ok"
    
14.         ActiveWindow.Close savechanges:=True
    
15.     End If
    
16. End Sub
    

复制代码

刚有错误。

跳转到最佳答案楼层

hwc2ycy

1. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
2.   
   
3.    
   
4.     Sheet2.Select
   
5.     Cells.Select
   
6.     Selection.Copy
   
7.     Workbooks.Add
   
8.     Range("A1").Select
   
9.     ActiveSheet.Paste
   
10.     Application.DisplayAlerts = False
    
11.     Application.EnableEvents = False
    
12.     ActiveWorkbook.SaveAs filename:="E:\数据统计" & Format(Date, "yyyymmdd")
    
13.     ActiveWindow.Close savechange = True
    
14.     Windows("tongji2.xls").Activate
    
15.     Sheet3.Select
    
16.     ActiveWindow.Close savechange = True
    
17. End Sub

复制代码

测了有效呀。

hwc2ycy

这样有个BUG，关闭后再次打开同一个文件，事件已经不起作用了。

haikeyia

我的代码能够生成新的文件,但没有数据,不知哪儿的原因

hwc2ycy

1. Private isClose As Boolean
   
2. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
3.     If Not iclose Then
   
4.         isClose = True
   
5.         Sheet2.Select
   
6.         Cells.Select
   
7.         Selection.Copy
   
8.         Workbooks.Add
   
9.         Range("A1").Select
   
10.         ActiveSheet.Paste
    
11.         Application.DisplayAlerts = False
    
12.         ActiveWorkbook.SaveAs filename:="E:\数据统计" & Format(Date, "yyyymmdd")
    
13.         ActiveWindow.Close savechange = True
    
14.         Application.DisplayAlerts = True
    
15.         Windows("tongji2.xls").Activate
    
16.         Sheet3.Select
    
17.         ActiveWindow.Close savechange = True
    
18.         MsgBox "ok"
    
19.     End If
    
20. End Sub

复制代码

hwc2ycy

1. Option Explicit
   
2. Private isClose As Boolean
   
3. Private Sub Workbook_BeforeClose(Cancel As Boolean)
   
4.     If Not isClose Then
   
5.         isClose = True
   
6.         Sheet2.Copy
   
7.         Application.DisplayAlerts = False
   
8.         ActiveWorkbook.SaveAs filename:="E:\数据统计" & Format(Date, "yyyymmdd")
   
9.         ActiveWindow.Close savechanges:=True
   
10.         Application.DisplayAlerts = True
    
11.         Windows("tongji2.xls").Activate
    
12.         Sheet3.Select
    
13.         MsgBox "ok"
    
14.         ActiveWindow.Close savechanges:=True
    
15.     End If
    
16. End Sub
    

复制代码

刚有错误。

haikeyia

可以实现了,谢谢!