지연 Excel 저장 기능

Question

처음에 저장해야하고 5 분마다 자동으로 저장해야하는 통합 문서가 있지만 통합 문서가 열리면 30 초 기다린 다음 저장을 수행하도록 초기 저장을 지연해야합니다.

이

내가 가지고있는 코드이지만, 그것은 자동으로 실행 :

Private Sub Workbook_Open() 
Time = Now() + TimeValue("00:00:30") 
Application.OnTime Time, "WaitUntilReady" 

---

Public Sub WaitUntilReady() 

savefolder = "C:\Users\" & Environ$("Username") & "\Desktop\" 

mypath = savefolder & Format(Date, "dd-mmm-yy") 

If Len(Dir(mypath, vbDirectory)) = 0 Then MkDir mypath 

On Error Resume Next 

ThisWorkbook.SaveAs mypath & "\" & "Practice Monitoring Template" & " - " & Format(Time, "hh.nn") & ".xlsm" 

Application.EnableEvents = True 
End Sub 

Answer 1

Time이 (가 현재 시간을 반환),이 일을 대신 사용 Excel에서 단어를 예약되어 있습니다 :

Private Sub Workbook_Open() 
    Application.OnTime Now() + TimeValue("00:00:30"), "WaitUntilReady" 
End Sub 

Answer 2

Time은 삽입 함수이다. 변수로 선언하지 않으면 Time = ... 줄에 오류가 발생합니다. 당신이 그것을 선언했다면, 그것은 실제로 잘 돌아갑니다 (즉각적이지는 않습니다). 그것은 제 테스트에서 그렇습니다. (물론 변수 이름을 변경해야합니다).