엑셀 메모장 출력 :: ExportText 명령문 사용법

엑셀 메모장 출력 :: ExportText 명령문 사용법 총정리

엑셀 ExportText 명령문 목차 바로가기

예제파일 다운로드
명령문 상세 설명
ExportText 명령문 전체 코드
명령문 실전 사용예제
동작원리 단계별 알아보기

요약

텍스트 문자열을 지정한 경로의 메모장으로 출력하는 함수입니다.

명령문 구문

= ExportText ( 텍스트, [파일명], [파일경로] )

사용된 인수 및 변수 알아보기

인수	설명
텍스트 [String, 선택인수]	메모장으로 추출할 텍스트 문자열입니다.
파일명 [String, 선택인수]	저장될 파일명입니다. 기본값은 "텍스트추출" 입니다.
파일경로 [String, 선택인수]	메모장이 저장될 파일 경로입니다. 기본값은 바탕화면입니다.

예제파일 다운로드

오빠두엑셀의 강의 예제파일은 여러분을 위해 자유롭게 제공하고 있습니다.

[엑셀VBA함수] ExportText 함수
예제파일
다운로드

상세 설명

텍스트 문자열을 지정한 경로의 메모장으로 출력하는 VBA 명령문 입니다. 기존에 존재하는 메모장 파일이 있을 경우 기존 메모장 파일은 삭제하고 새로운 메모장 파일로 덮어쓰기 됩니다.

윈도우 파일명으로 사용할 수 없는 특수기호가 포함되어있는지 여부를 판단하여 메모장으로 저장해야 할 경우에는 ValidFileName 함수를 사용하여 윈도우에서 사용가능한 파일명인지 여부를 확인할 수 있습니다.

실전 사용 예제

셀 안의 문자열을 바탕화면에 메모장으로 저장하기
ExportText Sheet1.Range("A1").Value, "메모장추출"
셀 안의 문자열을 C:\ 경로에 메모장으로 저장하기
ExportText Sheet1.Range("A1").Value, "메모장추출", "C:\"

엑셀 메모장 저장, ExportText 명령문 동작원리

ExportText 명령문 전체 코드

Sub ExportText(InnerStrings As String, _
Optional FileName As String = "텍스트추출", _
Optional Path As String)
 
On Error GoTo EH:
 
If Path = "" Then Path = Environ("USERPROFILE") & "\Desktop\"
If Right(Path, 1) <> "\" Then Path = Path & "\"
filePath = Path & FileName & ".txt"
 
Dim fso As Object
Dim txtFile As Object
AfterMkDir:
Set fso = CreateObject("Scripting.FileSystemObject")
Set txtFile = fso.OpenTextFile(filePath, 2, True, -1)
txtFile.Write InnerStrings
txtFile.Close
 
Set txtFile = Nothing
Set fso = Nothing
 
Exit Sub
EH:
If Err.Number = 52 Then
    MsgBox "사용 중인 윈도우 설정 상, 파일 경로에 '한글'을 포함할 수 없습니다." & vbNewLine & "파일 경로를 다시 확인하세요."
ElseIf Err.Number = 76 Then
    MkDir Path
    Resume AfterMkDir:
Else
    MsgBox "오류가 발생했습니다." & vbNewLine & "오류번호 : " & Err.Number & vbNewLine & "설명 : " & Err.Description & vbNewLine & "발생 위치 : ExportText"
End If
 
End Sub

명령문 동작원리 단계별 알아보기

변수를 생성합니다.

Dim TextFile As Integer
Dim FilePath As String

파일경로가 지정되지 않았을 경우 바탕화면을 파일경로로 지정합니다.
If Path = "" Then Path = Environ("USERPROFILE") & "\Desktop\"
파일명을 지정합니다.
FilePath = Path & fileName & ".txt"

엑셀 메모장 출력 후 명령문을 종료합니다.

TextFile = FreeFile
 
Open FilePath For Output As TextFile
Print #TextFile, InnerStrings
Close TextFile

5 4 투표

게시글평점