String 변수에 기존 내용 + 엔터 후 신규내용 추가하는 방법 있나요

VBA
작성자
밍장군
작성일
2020-11-16 09:33
조회
31
안녕하세요

메인 질문은 이렇습니다

현재 Log 파일을 역기서 가르쳐 주신대로 만들려고 하는데

해당 로그파일을

Sub LogFileSave()

Dim n As Integer
Dim d As String
n = FreeFile()
Dim a As String: Dim b As String

d = ThisWorkbook.path
Open d & "\log\log.txt" For Output As #n

While EOF(n) = False
Line Input #n, a
b = b + a & vbCrLf
Wend

Close #n

Open d & "\log\log.txt" For Output As #n

Print #n, b & msg
Close #n

End Sub

이렇게 하고 msg 변수를 전역변수로 써서 각 함수(총 10개함수 정도)에서

Event 메세지를 입력해서 최종단에 로그파일에 msg 를 입력해서

어느타이밍에서 오류가 발생 했는지 알고 싶습니다

방법이 있겠죠?

예를 들어 변수를 두개 써서 내용을 넣는방법 정도 생각해볼 수 있겠는데

변수 치환은 하겠는데 변수에 변수 내용을 계속 더해서 넣을 수 있나요? 엔터넣고???

가르쳐주시면 감사하겠습니다

그리고 로그 파일로 텍스트파일에 저장 후 다시 해당 함수를 사용할 경우 기존 내용이 남겨진 체로 재 저장이 필요합니다

실제 로그파일을 만들 고 싶습니다 (일정 시간 별 계속 매크로 돌려서)
밍장군
회원등급 : 가지2단계
포인트 : 535 EP
총질문 : 28 개 (마감율 : 25%)
채택답변 : 0 개
전체 3

  • 2020-11-18 01:29

    위 코드 중에서

    If i = 3 Then '3번열 개방전압
    chart_name = "chart3"
    AtTime = Now
    msg = "차트3번작성 " & AtTime & "" & vbCrLf --> msg = msg & "차트3번작성 " & AtTime & "" & vbCrLf

    이런식으로 기존 msg 내용이 앞단에 추가되어야 할듯합니다.


    • 2020-11-16 16:17

      변수명을 cTemp 라고 하면,
      cTemp = cTemp & "추가" & vbcrlf

       

      vbcrlf  는 예약어로
      (= Carriage Return and Line Feed)
      한줄뛰우고 제일 첫번째 위치로 이동하라는 예약어 입니다.
      간단히 말하면, 한줄 띄우라는 것 입니다.

       


      • 2020-11-17 12:31

        일단 답변 감사합니다

        작성 해보았는데 제대로 동작하지 않는 것 같습니다

        기존 내용 에 추가해서 내용을 넣어야 하는데

        예를 들어

        If i = 2 Then '2번열 접촉저항
        AtTime = Now
        msg = "차트2번작성 " & AtTime & "" & vbCrLf

        chart_name = "chart2"
        Chart_range_offset chart_name, Data_Qty_Backup, end_row, i
        End If

        If i = 3 Then '3번열 개방전압
        chart_name = "chart3"
        AtTime = Now
        msg = "차트3번작성 " & AtTime & "" & vbCrLf

        이렇게 하면 log 파일에

         

        차트2번작성

        차트3번작성

         

        이렇게 남길 원하는데 안되네요


      전체 1,544
      번호 카테고리제목작성자작성일추천조회
      1539 대시보드
      New 대시보드 관련 질문사항입니다.
      H.B | 12:27 | 추천 0 | 조회 2
      H.B12:2702
      1538 함수/공식
      New INDIRECT함수 관련
      finebyme | 11:05 | 추천 0 | 조회 7
      finebyme11:0507
      1537 VBA
      New VBA 오픈 API 도와주세요 ㅜ
      에너지뿜 | 10:21 | 추천 0 | 조회 12
      에너지뿜10:21012
      1536 문서서식
      New ~여러개 시트 하나로 연결 하는 문제 (1)
      생활지원센터 | 2020.11.23 | 추천 0 | 조회 31
      생활지원센터2020.11.23031
      1535 함수/공식
      New 정확하게 나올 수 없는건가요? 첨부파일 (2)
      공월 | 2020.11.23 | 추천 0 | 조회 21
      공월2020.11.23021
      1534 피벗테이블
      New 피벗테이블 비율 구했는데.. 값이 맞지가 않아요..ㅠㅠ 첨부파일 (1)
      Lucy Kim | 2020.11.23 | 추천 0 | 조회 13
      Lucy Kim2020.11.23013
      1533 함수/공식
      New 날짜세는 엑셀 함수 첨부파일 (1)
      엑셀초보!!!!! | 2020.11.23 | 추천 0 | 조회 24
      엑셀초보!!!!!2020.11.23024
      1532 함수/공식
      New 전체 범위에서 여러 열에 입력되어 있는 특정값 추출하기.. 첨부파일 (1)
      현동전문가 | 2020.11.22 | 추천 0 | 조회 36
      현동전문가2020.11.22036
      1531 함수/공식
      New 원하는 정보 추출 엑셀 함수 (2)
      Jenny | 2020.11.22 | 추천 0 | 조회 38
      Jenny2020.11.22038
      1530 기능/도구
      New 행 일괄 추가(?) 문의드립니다. (1)
      웁웁 | 2020.11.22 | 추천 0 | 조회 34
      웁웁2020.11.22034
      1529 함수/공식
      New 도데체 어떻게 하는 좀 알려수세요 부탁드립니다 첨부파일 (2)
      acedo**** | 2020.11.21 | 추천 0 | 조회 55
      acedo****2020.11.21055
      1528 함수/공식
      New 엑셀 함수에 여러 범위 문자열 입력하여 계산하는 방법이 안풀립니다. 첨부파일 (3)
      회색자유 | 2020.11.21 | 추천 0 | 조회 26
      회색자유2020.11.21026
      1527 차트/그래프
      꺽은선형 그래프의 축 변경 첨부파일 (1)
      치즈쿠키 | 2020.11.21 | 추천 0 | 조회 31
      치즈쿠키2020.11.21031
      1526 함수/공식
      중복 값 데이터 찾기 문의 첨부파일 (1)
      혀니양님 | 2020.11.21 | 추천 0 | 조회 35
      혀니양님2020.11.21035
      1525 VBA
      다시 한번 더 질문드립니다. 피벗테이블의 값이 변화할 때마다 차트 데이터 범위를 메크로를 사용해서 자동으로 넣고싶습니다. 첨부파일 (3)
      iviolin**** | 2020.11.20 | 추천 0 | 조회 29
      iviolin****2020.11.20029
      1524 문서서식
      연결된 그림에서 선이 두꺼워지는 현상 (2) 답변완료
      퉁퉁이 | 2020.11.20 | 추천 0 | 조회 23
      퉁퉁이2020.11.20023
      1523 문서서식
      엑셀 x 워드 메일머지 사용법 관련 질문이 있습니다. 첨부파일 (5) 답변완료
      niceyoon58 | 2020.11.20 | 추천 0 | 조회 19
      niceyoon582020.11.20019
      1522 피벗테이블
      피벗테이블 작성 시 텍스트 출력 및 항목중 가장 높은 순위(rank) 구현 가능 할까요? 첨부파일 (3)
      국화쌍피앵두대왕 | 2020.11.20 | 추천 0 | 조회 31
      국화쌍피앵두대왕2020.11.20031
      1521 차트/그래프
      차트에 가중평균 선 추가 문제 첨부파일 (2)
      돌채 | 2020.11.20 | 추천 0 | 조회 23
      돌채2020.11.20023
      1520 VBA
      엑셀 배경제거 영역설정 첨부파일 (2)
      ezdaily | 2020.11.20 | 추천 0 | 조회 16
      ezdaily2020.11.20016
      1519 VBA
      초기화함수 관련 질문 첨부파일 (1)
      달타냥 | 2020.11.20 | 추천 0 | 조회 25
      달타냥2020.11.20025
      1518 문서서식
      조건부서식 이용한 셀색상과 서식 변경 첨부파일 (2)
      사천사야 | 2020.11.20 | 추천 0 | 조회 26
      사천사야2020.11.20026
      1517 함수/공식
      도와주세요 셀값에서 특정 문자값 추출(정확한 일치값) (4) 답변완료
      코딱 | 2020.11.20 | 추천 0 | 조회 26
      코딱2020.11.20026
      1516 함수/공식
      도와주세요!! 이중 유효성 검사 문제입니다. 첨부파일 (1)
      naver_5fae3491efc83 | 2020.11.20 | 추천 0 | 조회 23
      naver_5fae3491efc832020.11.20023
      1515 기능/도구
      서식 질문.. (3)
      4Block | 2020.11.19 | 추천 1 | 조회 39
      4Block2020.11.19139
      1514 함수/공식
      가장 유사한 값을 구하는 방법을 알고 싶습니다. 첨부파일 (1)
      won**** | 2020.11.19 | 추천 0 | 조회 20
      won****2020.11.19020
      1513 함수/공식
      index, match 함수 값이 없을때 #n/a 없에는방법 첨부파일 (2) 답변완료
      4Block | 2020.11.19 | 추천 0 | 조회 29
      4Block2020.11.19029
      1512 VBA
      매크로 + 엑셀 하이퍼링크 첨부파일 (1)
      엑셀초보!!!!! | 2020.11.19 | 추천 1 | 조회 23
      엑셀초보!!!!!2020.11.19123
      1511 함수/공식
      시트 간 중복된 값 찾기 OR 다른 값 찾기 첨부파일 (4)
      Yooon | 2020.11.19 | 추천 0 | 조회 35
      Yooon2020.11.19035
      1510 함수/공식
      vlookup 여러개의 결과값을 하나의 셀로 표시할수 있나요? (2)
      이동헌 | 2020.11.19 | 추천 0 | 조회 40
      이동헌2020.11.19040