이 페이지에서
구문
ExportText 텍스트, [파일명], [파일경로]
인수구분
형식 설명
텍스트
필수
String
메모장으로 추출할 텍스트 문자열입니다.
파일명
선택
String
저장될 파일명입니다. 기본값은 "텍스트추출" 입니다.
파일경로
선택
String
메모장이 저장될 파일 경로입니다. 기본값은 바탕화면입니다.
마스터 코드
복사한 코드는 VBA 편집기(Alt + F11) 새 모듈에 붙여넣어 사용하세요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
활용 예제
셀 안의 문자열을 바탕화면에 메모장으로 저장하기
ExportText Sheet1.Range("A1").Value, "메모장추출"
셀 안의 문자열을 C:\ 경로에 메모장으로 저장하기
ExportText Sheet1.Range("A1").Value, "메모장추출", "C:\"
안내사항
같은 이름의 메모장 파일이 이미 있을 경우 기존 파일은 삭제되고 새로운 파일로 덮어쓰기 됩니다.
![[공지] 오빠두에듀 프리랜서 보조 강사 모집](https://www.oppadu.com/wp-content/uploads/2026/08/0822-프리랜서-보조강사-모집.png)
![[직원 채용] 오빠두엑셀이 정규직 동료를 모십니다](https://www.oppadu.com/wp-content/uploads/2026/08/직원-채용-1_R.png)
"A1" 단일 셀 말고 범위로도 가능한가요???
범위 적용시 에러가 나는데,,, 어떻게 해야 되는지를 모르겟어용 ㅠ