vba 로 log 파일을 남기고 싶은데 정상적으로 동작했던 시간 이력을 알고 싶어요

VBA
작성자
밍장군
작성일
2020-10-29 09:47
조회
3557

안녕하세요 간만에 질문 이렇게 하나 남겨 보네요

요지는 이렇습니다

Sub works_To_Do()
'---------------------------------------------------------------
Realtime_chart_work '실시간 차트 함수 호출
'---------------------------------------------------------------
Application.OnTime Now + TimeValue("00:00:" & Sec & ""), "works_To_Do"
ActiveWorkbook.Save
LogFileSave
End Sub

sub LogFileSave

debug.print now '--------------- Sec 단위별로 Debug.print 가 디버깅 창에 출력됨

End Sub

위 코드에서 debug.print now

에 뿌려진 "직접실행" 창 내용을 Txt 파일로 저장하는 방법이 있을 거 같은데

그게 아니면

Sub LogFileSave()
Dim s As String
Dim n As Integer

n = FreeFile()
Open "D:\Test\log\log.txt" For Output As #n

s = Now
Debug.Print s ' write to immediate
Print #n, s ' write to file

Close #n
End Sub

이렇게 하면서 저장할때 기존 내용 이후 엔터치고 현 저장 시간을 계속 입력하는 방법 (현재 해당파일은 연속으로 실행시켜도 계속 기존내용 덮어 쓰네요)

 

두가지 방법 다 가르쳐주시면 금상첨화

감사합니다

신고
스크랩
공유
회원등급 : 9레벨
포인트 : 669 EP
총질문 : 36 개 (마감율 : 28%)
채택답변 : 0 개
전체 3

  • 2020-10-29 16:21
    채택된 답변

    @밍장군 님 안녕하세요.

    LogFileSave 명령문을 아래와 같이 변경해보세요.

    Sub LogFileSave()
    Dim s As String
    Dim n As Integer
    
    n = FreeFile()
    Open "D:\Test\log\log.txt" For Output As #n
    
    s = Now
    Debug.Print s ' write to immediate
    'Print #n, s ' write to file
    Write #n, s
    
    Close #n
    End Sub

    • 2020-11-05 13:33

      @오빠두엑셀 님 해당 내용 실행하니까 의도한대로

      debug.print "내용문구"

      이런 데이터가 제일 위에 한줄만 남고 그담에는 안만들어 집니다

      해당 함수는 ontime 을 써서 5초 단위로 생성을 하니까

      매 5초 간격으로

      debug.print "내용문구"

      문구가 만들어 지는데 여기선 안되네요


      • 2020-11-05 19:03

        @밍장군 님 죄송합니다. 명령문을 잘못 적어드렸네요.

        아래 수정된 명령문을 적절히 실무에 적용해서 사용해보시면 될 듯 합니다.

        Sub LogFileSave()
        Dim s As String
        Dim n As Integer
        Dim a As String: Dim b As String
        
        n = FreeFile()
        Open "경로\log.txt" For Input As #n
        
        While EOF(n) = False
        Line Input #n, a
        b = b + a & vbCrLf
        Wend
        
        Close #n
        
        Open "경로\log.txt" For Output As #n
        s = Now
        Print #n, b & s
        Close #n
        
        End Sub

        답변이 도움이 되셨길 바랍니다.^^ 감사합니다.


전체 18,470
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[📚진짜쓰는 실무엑셀] IT/오피스 '1위' 베스트셀러! 엑셀 공부, 이 교재로 마스터하세요! (313)
오빠두엑셀 | 2022.02.03 | 추천 572 | 조회 600113
오빠두엑셀 2022.02.03 572 600113
공지사항 문서서식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197)
오빠두엑셀 | 2021.10.28 | 추천 310 | 조회 34929
오빠두엑셀 2021.10.28 310 34929
78418 함수/공식
New [퀴즈] 텍스트 압축/변형하기 엑셀파일첨부파일
마법의손 | 14:20 | 추천 0 | 조회 3
마법의손 14:20 - 3
78416 VBA
New 시트보호된 상태에서 매크로 작동시 Range 클래스 중 Insert 메서드에 오류가 있습니다. 첨부파일 (1)
jihye**** | 13:42 | 추천 0 | 조회 17
jihye**** 13:42 - 17
78414 파워쿼리/피벗
New 다른 엑셀 파일에서 필요한 값만 불러오는 방법 첨부파일
망그러진나나 | 13:34 | 추천 0 | 조회 16
망그러진나나 13:34 - 16
78413 함수/공식
New 경과주 구하는 수식 문의
엑셀렙업용 | 13:19 | 추천 0 | 조회 14
엑셀렙업용 13:19 - 14
78411 문서서식
New 숫자 문자인식 숫자변환하는 법 엑셀파일 (4)
패션피플 | 10:37 | 추천 0 | 조회 40
패션피플 10:37 - 40
78410 VBA
New [매크로관련] 특정셀 자동증가하며, 연속출력할수 있을까요? 엑셀파일 (4)
박병호 | 10:34 | 추천 0 | 조회 42
박병호 10:34 - 42
78408 문서서식
New 숫자 서식 변경하기 첨부파일 (3)
에그셀 | 09:59 | 추천 0 | 조회 22
에그셀 09:59 - 22
78407 기능/도구
New 원드라이브 MICROSOFT 365 사용중 공동작업시 필터 첨부파일 (1)
록키발보아 | 00:31 | 추천 0 | 조회 41
록키발보아 00:31 - 41
78402 함수/공식
New 괄호안의 시간:분 데이터를 분으로 합산하는 방법 질문드립니다. 엑셀파일첨부파일 (1) 답변완료
nams | 2025.04.28 | 추천 0 | 조회 58
nams 2025.04.28 - 58
78400 함수/공식
New 2차배열에서 countif 첨부파일 (8)
라면이가좋아 | 2025.04.28 | 추천 0 | 조회 72
라면이가좋아 2025.04.28 - 72
78399 함수/공식
New 한달의 마지막주 스케쥴 작성시 전주까지의 휴무 누적 합계 구하는 방법이 궁금합니다. 엑셀파일첨부파일 (3)
쭈누 바라기 | 2025.04.28 | 추천 0 | 조회 44
쭈누 바라기 2025.04.28 - 44
78398 VBA
New VBA 매크로 여러 엑셀 파일에서 사용 (1)
shhhha | 2025.04.28 | 추천 0 | 조회 69
shhhha 2025.04.28 - 69
78396 함수/공식
New 직원별로 근태 합계를 확인하고 싶어요 엑셀파일 (12) 답변완료
배진희 | 2025.04.28 | 추천 0 | 조회 94
배진희 2025.04.28 - 94
78395 함수/공식
New 특정 단어를 포함한 행 골라내는 방법에 대해 문의드립니다. (3) 답변완료
mmm1010 | 2025.04.28 | 추천 0 | 조회 59
mmm1010 2025.04.28 - 59
78392 함수/공식
New 도와주세요... ( 특정값에 해당하는 반 번호 찾아 목록만들기) 엑셀파일첨부파일 (6)
김동생 | 2025.04.28 | 추천 0 | 조회 66
김동생 2025.04.28 - 66
78389 기능/도구
New 오빠두LIVE 196회 - 엑셀 프로젝트 관리 _ 일,주 바꾸는법 엑셀파일 (1)
일류 | 2025.04.28 | 추천 0 | 조회 58
일류 2025.04.28 - 58
78387 함수/공식
New 엑셀 관련 질문입니다. SUM과 IFERROR 입니다 ㅠ (6)
| 2025.04.27 | 추천 0 | 조회 107
2025.04.27 - 107
78382
New Excel 추세선 이상 엑셀파일 (2)
eagle | 2025.04.27 | 추천 0 | 조회 79
eagle 2025.04.27 - 79
78381 함수/공식
New 같은 이름 N 번째 데이터 엑셀파일첨부파일 (14) 답변완료
박정호 | 2025.04.27 | 추천 1 | 조회 115
박정호 2025.04.27 1 115
78380 함수/공식
New On Error Resume Next 문구를 삽입하는 위치는? (2) 답변완료
GEEM | 2025.04.27 | 추천 0 | 조회 85
GEEM 2025.04.27 - 85
78376 함수/공식
New 지역별 증감금액 확인 엑셀파일 (3) 답변완료
충무공 | 2025.04.26 | 추천 0 | 조회 76
충무공 2025.04.26 - 76
78374 함수/공식
New index를 활용한 조건에 맞는 금액을 찾는 방법 엑셀파일첨부파일 (4)
뚜둥뚜둥 | 2025.04.26 | 추천 0 | 조회 93
뚜둥뚜둥 2025.04.26 - 93
78372 기능/도구
New 표서식 차이 문의 첨부파일 (2) 답변완료
hossang**** | 2025.04.25 | 추천 0 | 조회 65
hossang**** 2025.04.25 - 65
78370 피벗테이블
New (피벗테이블) 2024년 2025년 판매 TOP10 비교데이터 첨부파일 (13)
패션피플 | 2025.04.25 | 추천 0 | 조회 89
패션피플 2025.04.25 - 89
78369 구글시트
New 엑셀을 구글 시트와 연동하는 법 (1)
물만둡 | 2025.04.25 | 추천 0 | 조회 71
물만둡 2025.04.25 - 71
78368 함수/공식
New 곱하기 계산시 0일때도 계산하고 싶습니다 엑셀파일 (2)
또야 | 2025.04.25 | 추천 0 | 조회 89
또야 2025.04.25 - 89
78366
New 엑셀 일정 범위 내 최대값 가져오기 함수식 문의 (조건 있음) 엑셀파일 (3)
peac**** | 2025.04.25 | 추천 0 | 조회 64
peac**** 2025.04.25 - 64
78358
New 파워포인트 글씨 굵게 (1)
쫄면김밥 | 2025.04.24 | 추천 0 | 조회 46
쫄면김밥 2025.04.24 - 46
78354 문서서식
New 구글스프레드시트 숨기기 질문이에요! 첨부파일 (1)
Aberdeen | 2025.04.24 | 추천 0 | 조회 63
Aberdeen 2025.04.24 - 63
78352 피벗테이블
New 여러 피벗테이블 하나의 슬라이서로 동작과 테이블간 관계 만들기 문의 엑셀파일첨부파일 (3) 답변완료
이미자 | 2025.04.24 | 추천 0 | 조회 87
이미자 2025.04.24 - 87