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

텍스트를 지정한 경로의 메모장으로 출력하는 ExportText 함수의 사용법 및 동작원리를 살펴봅니다.

홈페이지 » 엑셀 메모장 출력 :: ExportText 명령문 사용법

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

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

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

명령문 구문
= ExportText ( 텍스트, [파일명], [파일경로] )
사용된 인수 및 변수 알아보기
인수설명
텍스트
[String, 선택인수]
메모장으로 추출할 텍스트 문자열입니다.
파일명
[String, 선택인수]
저장될 파일명입니다. 기본값은 "텍스트추출" 입니다.
파일경로
[String, 선택인수]
메모장이 저장될 파일 경로입니다. 기본값은 바탕화면입니다.

예제파일 다운로드

상세 설명

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

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

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

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

ExportText 명령문 전체 코드
Sub ExportText(InnerStrings As String, Optional fileName As String = "텍스트추출", Optional Path As String)
 
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ Export_Text 함수
'▶ 문자열을 텍스트파일로 추출합니다.
'▶ 인수 설명
'_____________InnerStrings      : 텍스트파일로 추출할 문자열입니다.
'_____________fileName           : 텍스트 파일 이름입니다. 기본값은 "텍스트추출" 입니다. (선택인수)
'_____________path                   : 텍스트 파일을 생성할 경로입니다. 기본값은 바탕화면입니다. (선택인수)
'▶ 사용 예제
'ExportText "추출할 텍스트"
'###############################################################
 
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
 
End Sub
명령문 동작원리 단계별 알아보기
  1. 변수를 생성합니다.
    Dim TextFile As Integer
    Dim FilePath As String
  2. 파일경로가 지정되지 않았을 경우 바탕화면을 파일경로로 지정합니다.
    If Path = "" Then Path = Environ("USERPROFILE") & "\Desktop\"
  3. 파일명을 지정합니다.
    FilePath = Path & fileName & ".txt"
  4. 엑셀 메모장 출력 후 명령문을 종료합니다.
    TextFile = FreeFile
     
    Open FilePath For Output As TextFile
    Print #TextFile, InnerStrings
    Close TextFile
guest
0 댓글
Inline Feedbacks
모든 댓글 보기
0
여러분의 생각을 댓글로 남겨주세요.x