[Excel] 엑셀에서 시트명만 txt 파일로 추출하기 :: VBA 사용

문제상황

현재 엑셀 파일이 여러 개의 시트로 구성되어 있는데, 시트가 너무 많아서 시트명을 파악하기 어렵다.

그래서 시트명만 따로 txt 파일로 내보내기 한 후 확인하고 싶다.

해결방법

엑셀 파일의 모든 시트 이름을 txt 파일로 내보내기 위한 VBA 코드를 작성해드리겠습니다. 이 코드는 엑셀 워크북의 각 시트 이름을 텍스트 파일에 기록합니다.

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

Sub ExportSheetNamesToTxt()
    Dim ws As Worksheet
    Dim FilePath As String
    Dim FileNum As Integer

    ' 텍스트 파일을 저장할 경로 설정
    FilePath = Application.DefaultFilePath & "\SheetNames.txt"

    ' 새로운 텍스트 파일 열기 (또는 기존 파일 덮어쓰기)
    FileNum = FreeFile
    Open FilePath For Output As FileNum

    ' 모든 시트 이름을 파일에 기록
    For Each ws In ThisWorkbook.Worksheets
        Print #FileNum, ws.Name
    Next ws

    ' 파일 닫기
    Close FileNum

    MsgBox "Sheet names have been exported to " & FilePath, vbInformation
End Sub

4. 코드를 붙여넣은 후, VBA 편집기에서 F5를 눌러 매크로를 실행하거나, 엑셀에서 개발 도구 탭의 매크로 버튼을 클릭하여 ExportSheetNamesToTxt 매크로를 선택하여 실행합니다.

이 코드는 현재 엑셀 파일이 있는 경로에 SheetNames.txt라는 파일을 생성하고, 각 시트의 이름을 한 줄씩 기록합니다. 파일 경로를 변경하려면 FilePath 변수를 적절히 수정하세요.

 

 

 

 

그러면 이렇게 시트명이 추출된다.