請問各位先進我的程式有錯嗎?為何會一直出現錯誤

dafa

1. Private Sub Workbook_AfterSave(ByVal Success As Boolean)
   
2. Application.DisplayAlerts = False
   
3. If 工作表1.[a2] = 1 Then
   
4. 工作表1.[a2] = 2
   
5. ChDir "\\dumpling\supplychain$\01_Logistics\01_Shop Floor\第三類一般類(保存期二年)"
   
6.          ActiveWorkbook.SaveAs Filename:="\\dumpling\supplychain$\01_Logistics\01_Shop Floor\第三類一般類(保存期二年)\堆高機交接表.xls", _
   
7.          FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
   
8.         ReadOnlyRecommended:=False, CreateBackup:=True
   
9. 
   
10. End If
    
11. Application.DisplayAlerts = True
    
12. 工作表1.[a2] = ""
    
13. End
    
14. End Sub
    
15. 
    
16. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    
17. Application.DisplayAlerts = False
    
18. ChDir "\\csgh212rg07\新增資料夾"
    
19. 
    
20. un = Application.UserName
    
21. sfn = Year(Date) & Month(Date) & Day(Date) & un & Hour(Now) & Minute(Now) & Second(Now)
    
22. If 工作表1.[a2] = "" Then
    
23. 工作表1.[a2] = 1
    
24.     ActiveWorkbook.SaveAs Filename:="\\csgh212rg07\新增資料夾\" & sfn & ".xls", _
    
25.         FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
    
26.         ReadOnlyRecommended:=False, CreateBackup:=True
    
27. 
    
28. End If
    
29. End Sub

複製代碼

下載 (25.26 KB)

2013-7-11 01:23

為什麼每次執行都會出現下面的錯誤(但還是有存檔)

dafa

感謝C大的回覆
您真是一語驚醒夢中人阿~

c_c_lai

回復 1# dafa
你為何不用
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    ....
End Sub
來處理 Excel 的關閉前的一切作業？