- 帖子
- 49
- 主題
- 6
- 精華
- 0
- 積分
- 97
- 點名
- 0
- 作業系統
- xp
- 軟體版本
- Office2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2011-8-24
- 最後登錄
- 2023-12-24
|
請問各位先進我的程式有錯嗎?為何會一直出現錯誤
本帖最後由 dafa 於 2013-7-11 01:31 編輯
- Private Sub Workbook_AfterSave(ByVal Success As Boolean)
- Application.DisplayAlerts = False
- If 工作表1.[a2] = 1 Then
- 工作表1.[a2] = 2
- ChDir "\\dumpling\supplychain$\01_Logistics\01_Shop Floor\第三類一般類(保存期二年)"
- ActiveWorkbook.SaveAs Filename:="\\dumpling\supplychain$\01_Logistics\01_Shop Floor\第三類一般類(保存期二年)\堆高機交接表.xls", _
- FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
- ReadOnlyRecommended:=False, CreateBackup:=True
- End If
- Application.DisplayAlerts = True
- 工作表1.[a2] = ""
- End
- End Sub
- Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
- Application.DisplayAlerts = False
- ChDir "\\csgh212rg07\新增資料夾"
- un = Application.UserName
- sfn = Year(Date) & Month(Date) & Day(Date) & un & Hour(Now) & Minute(Now) & Second(Now)
- If 工作表1.[a2] = "" Then
- 工作表1.[a2] = 1
- ActiveWorkbook.SaveAs Filename:="\\csgh212rg07\新增資料夾\" & sfn & ".xls", _
- FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
- ReadOnlyRecommended:=False, CreateBackup:=True
- End If
- End Sub
為什麼每次執行都會出現下面的錯誤(但還是有存檔)
|
|
發表於 2013-7-11 01:26
| 
