none
엑셀 vba 로 지정한 시간에 매일 매일 자동 저장하기 RRS feed

  • 질문

  • Sub ApplyFormat()
    Dim MyTime
    MyTime = Time
    Dim MyDate
    MyDate = Date
    Dim SaveAsName As String
    Dim MyResult, Var1, Var2
    Var1 = "Time": Var2 = "#1:54:30 PM#"
    If Var1 = Var2 Then
        SaveAsName = "D:\Report\" & Date & " Report.xls"
        SaveAsFile (SaveAsName)
        End If
    End Sub

    엑셀 실행되면

    항시 지금 시간과 비교하여

    정해진 #1:54:30 PM# 시간에

    "D:\Report\" & Date & " Report.xls"
    현재의 날짜로 저장 하라는 문을 만들어 보았습니다.

    컴 파일시 문제는 없으나 시간을 비교 하는 과정이 잘못 된거 같은데

    한번 문을 확인 좀 부탁드립니다.

    2011년 11월 22일 화요일 오전 5:01

모든 응답