Sub autoRun()
'If Sheets(1).Cells(1, 1) = "xxx" Then Exit Sub
Application.ScreenUpdating = False
nowName = Application.ActiveWorkbook.Name
'判斷目前是否開啟
On Error Resume Next
Windows("莊敬店開發.業績.出勤一覽表.xlsm").Activate
If Err.Number = 9 Then GoTo F1
AA = 1
GoTo f2
F1: Workbooks.Open (Mid(ThisWorkbook.Path, 1, 31) & "2-會計\莊敬店開發.業績.出勤一覽表.xlsm")
AA = 2
f2: Windows(nowName).Activate
For i = 1 To Month(Date)
Sheets(i).Activate
Call 積分
Windows(nowName).Activate
Sheets(i).Activate
Call 成交
Next i
'判斷是否需要關閉檔案
'Call autoLock
f3: If AA = 1 Then
Windows(nowName).Activate
ElseIf AA = 2 Then
Windows("莊敬店開發.業績.出勤一覽表.xlsm").Close saveChanges:=False
End If
Sheets(Month(Date)).Activate
Application.ScreenUpdating = True
End Sub作者: GBKEE 時間: 2014-8-12 08:41