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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-7-11 01:26 | 只看該作者

本帖最後由 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