標題: 請問各位先進我的程式有錯嗎?為何會一直出現錯誤 [打印本頁]

---

作者: dafa    時間: 2013-7-11 01:26     標題: 請問各位先進我的程式有錯嗎?為何會一直出現錯誤

本帖最後由 dafa 於 2013-7-11 01:31 編輯

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

複製代碼

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

---

作者: c_c_lai    時間: 2013-7-11 07:32

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

---

作者: dafa    時間: 2013-7-15 13:11

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)