VBA 코드: TXT 파일로 메모와 셀 내용 내보내기

 

 

1. VBA 코드 작성

1. 엑셀에서 Alt + F11을 눌러 VBA 편집기를 엽니다.
2. 상단 메뉴에서 삽입 > 모듈을 선택하여 새 모듈을 추가합니다.
3. 아래 코드를 복사하여 붙여넣습니다.

Sub ExportCommentsWithTitleToTxt()
    Dim ws As Worksheet
    Dim cell As Range
    Dim filePath As String
    Dim fileNumber As Integer

    ' TXT 파일 저장 경로 설정
    filePath = Application.DefaultFilePath & "\CommentsWithTitles.txt"
    fileNumber = FreeFile
    
    ' TXT 파일 열기
    Open filePath For Output As fileNumber
    
    ' 모든 워크시트 탐색
    For Each ws In ThisWorkbook.Worksheets
        For Each cell In ws.UsedRange
            If Not cell.Comment Is Nothing Then
                ' 셀의 제목(값) 출력
                Print #fileNumber, "Title: " & cell.Value
                
                ' 메모 내용 출력
                Print #fileNumber, "Comment: " & Replace(cell.Comment.Text, Chr(10), " ")
                
                ' 한 칸 띄우기
                Print #fileNumber, ""
            End If
        Next cell
    Next ws
    
    ' 파일 닫기
    Close fileNumber
    
    ' 완료 메시지
    MsgBox "메모와 제목이 TXT 파일로 저장되었습니다: " & filePath
End Sub

---

2. 코드 실행 방법

1. Alt + F8을 눌러 매크로 실행 창을 엽니다.
2. ExportCommentsWithTitleToTxt를 선택한 후 실행을 클릭합니다.
3. 결과물이 CommentsWithTitles.txt 파일로 저장됩니다.

---

코드 설명

1. 파일 경로 설정: 기본 경로는 엑셀의 기본 파일 경로입니다. 원하는 경로로 수정할 수 있습니다.
2. 제목 출력:
   • Title: 뒤에 셀의 값(cell.Value)을 출력합니다.
3. 메모 출력:
   • Comment: 뒤에 메모 내용을 출력합니다.
   • 메모의 줄 바꿈 문자(Chr(10))를 공백으로 대체하여 가독성을 높였습니다.
4. 한 칸 띄우기:
   • Print #fileNumber, ""를 추가하여 각 항목 사이에 빈 줄을 삽입했습니다.

---

출력 예시 (TXT 파일)

CommentsWithTitles.txt

Title: Product Name
Comment: This is the main product

Title: 12345
Comment: Stock count for the product

Title: Test Value
Comment: Needs review

---

활용 팁

• 파일 경로 수정: 원하는 경로로 filePath 값을 변경하면 다른 위치에 저장할 수 있습니다.
• 특정 워크시트만 내보내기: 특정 워크시트에서만 실행하고 싶다면 For Each ws In ThisWorkbook.Worksheets 대신 Set ws = ThisWorkbook.Sheets("Sheet1")처럼 지정하세요.
• 빈 값 처리: 셀 값이 비어 있는 경우 "No Title"과 같은 기본 값을 출력하도록 추가 조건을 넣을 수 있습니다.

---

결론

이 VBA 코드를 활용하면 엑셀의 메모와 내용을 텍스트 파일로 출력하고, 제목과 메모를 구조적으로 정리할 수 있습니다. 데이터 관리와 보고서 작성에 유용하니 업무 자동화를 위해 사용해 보세요!