엑셀 메모장 출력 :: 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
- 셀 안의 문자열을 바탕화면에 메모장으로 저장하기
"A1" 단일 셀 말고 범위로도 가능한가요???
범위 적용시 에러가 나는데,,, 어떻게 해야 되는지를 모르겟어용 ㅠ