Public Runwhen
Public Sub Auto_Open() ' 문서가 열리면 자동으로 실행되는 프로시저
Call Run
End Sub
Public Sub Run() ' 저장기능 실행 프로시저
Runwhen = Now + TimeValue("00:01:00") ' 10분 간격
On Error Resume Next
Application.OnTime Runwhen, "Run"
DoEvents
ActiveWorkbook.SaveAs Filename:="Stock" & Format(Date, "yyyymmdd") & Format(Time, "hhmm") & ".xlsm"
' On Error GoTo 0
End Sub
Public Sub Auto_Close() ' 문서를 닫으면 저장기능을 해제하는 프로시저
On Error Resume Next
Application.OnTime Runwhen, "Run", schedule:=False
On Error GoTo 0
End Sub
1분마다 문서를 날짜이름으로 저장하는 매크론데요. 처음 파일이 test.xlsm으로 저장하고 실행하면 실행됩니다. 그래서 파일이름이 201302061030.xlsm으로 바뀌거든요. 근데 1분 기다리면 매크로를 실행할 수 없습니다. 에러가 납니다. 보안설정은 해놨구요. 확장자도 xlsm으로 저장되었구요. 뭐가 문제인지 모르겠네요...
첫댓글 안녕하세요? 특별한 이상은 없는듯 합니다. 제컴에서 해보니 잘 실행이 되는듯 합니다.
엑셀2007 이신가요? 제컴이나 형님컴에서는 안되던데요...왜일까요??