엑셀 메모장 출력 :: ExportText 명령문 사용법 관련 강의를 보고 실무 적용시 범위를 적용시 어떻게 해야 되나요?

함수/공식
작성자
remizz
작성일
2021-01-13 15:04
조회
71

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

해당 강의 보고 문의 드립니다.

범위로 셀을 지정 하고 싶은데,,,,

ExportText Sheet1.Range("A1").Value, "메모장추출"

"A1" 단일 셀 말고 범위로도 가능한가요???

"A1:A30" 일케 적용시 에러가 나는데,,, 어떻게 해야 되는지를 모르겟어용 ㅠ

회원등급 : 가지2단계
포인트 : 532 EP
총질문 : 2 개 (마감율 : 0%)
채택답변 : 0 개
전체 9

  • 2021-01-14 11:02

    안녕하세요.

    범위를 텍스트로 출력하려면 명령문을 아래처럼 작성해보세요.

    Dim Rngs As Range
    Dim Rng As Range
    Dim s As String
    
    Set Rngs = Range("A1:A10")
    For Each Rng In Rngs
    s = s & Rng.Value
    Next
    
    ExportText s, "메모장추출"

    제시해드린 답변이 문제해결에 도움이 되셨길 바랍니다. 감사합니다.


    • 2021-01-18 20:03

      저도 알려주신데로 적용했으나 아무런 변화가 없습니다.

      적용한 소스는 아래와 같습니다. 확인 부탁드림니다.

      Sub Test()

      Dim Rngs As Range
      Dim Rng As Range
      Dim s As String

      Set Rngs = Range("C10:C14")
      For Each Rng In Rngs
      s = s & Rng.Value
      Next

      ExportText s, "메모장추출"

      'ExportText Sheet1.Range("C10:C14").Value, "메모장추출", "D:\"

      End Sub
      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


      • 2021-01-19 13:19

        안녕하세요.

        만약 바탕화면에 파일이 저장되지 않는다면 '문서' 폴더를 확인해보시겠어요?

        ExportText s, "메모장추출", "폴더경로"

        로 폴더경로를 지정해주셔도 됩니다.


        • 2021-01-19 15:14

          감사 합니다. 해결했습니다. 그런데 텍스트가 한줄로 나오내요.

          엑셀 시트에서 보이는것처럼 가능한가요?

           


          • 2021-01-19 19:24
            Set Rngs = Range("C10:C14")
            For Each Rng In Rngs
            s = s & Rng.Value
            Next

            위 부분을

            Set Rngs = Range("C10:C14")
            
            For i = 1 To Rngs.Rows.Count
                For j = 1 To Rngs.Columns.Count
                    s = s & Rngs.Cells(i, j)
                Next
                s = s & vbNewLine
            Next

            위와 같이 변경해보세요.


    • 2021-01-14 15:22

      Dim Rngs As Range
      Dim Rng As Range
      Dim s As String

      Set Rngs = Range("A1:A10")
      For Each Rng In Rngs
      s = s & Rng.Value
      Next

      ExportText s, "메모장추출"

      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

      답변 너무 감사합니다.

      적용을 어떻게 해야 될찌 막막하네요.. 답변 주셧는데,,,, 적용법을 모르겟어요 ㅠ

      적용 하고 나니, 에러만 계속 나고,,, ㅎㅎ


  • 2021-01-19 15:30
    ExportText s, "메모장추출", "폴더경로"  이렇게 해보세요. 그렇게 해서 저도 해결했어요.
    
    

전체 2,169
번호 카테고리 제목 작성자 작성일 추천 조회
2161 함수/공식
New 주차 알기 함수 (1)
007 | 19:48 | 추천 0 | 조회 28
007 19:48 0 28
2160 함수/공식
New 주중으로만 보이는 출석부 첨부파일 (2)
슬빈사랑 | 17:11 | 추천 1 | 조회 32
슬빈사랑 17:11 1 32
2159 함수/공식
New 두 날짜 사이에 해당 값 추출 질문 (1)
서니 | 16:51 | 추천 0 | 조회 20
서니 16:51 0 20
2158 VBA
New DuTool 엑셀 파일 열 때 오류가 나는데 어떻게 하면 삭제가능한가요? 첨부파일 (1)
대세박 | 14:26 | 추천 0 | 조회 19
대세박 14:26 0 19
2157 VBA
New 둘중에 어떤것 사용하는것이 더 좋은가요? (1)
이하늘 | 13:23 | 추천 0 | 조회 24
이하늘 13:23 0 24
2156 피벗테이블
New 슬라이서 사용시 값필터 초기화되는 현상 해결 방법
이덕현 | 12:28 | 추천 0 | 조회 17
이덕현 12:28 0 17
2155 함수/공식
New 여러업체중에 가장 낮은금액의 업체표시하기 (엑셀도움 부탁드립니다) (4) 답변완료
카와이 | 08:37 | 추천 0 | 조회 33
카와이 08:37 0 33
2154 문서서식
New 각대봉투(대봉투) 인쇄방법 (4)
naver_5f055a605ee7d | 06:15 | 추천 0 | 조회 26
naver_5f055a605ee7d 06:15 0 26
2153 파워쿼리/피벗
New 파워쿼리 질문 첨부파일 (2) 답변완료
iviolin**** | 2021.01.23 | 추천 0 | 조회 44
iviolin**** 2021.01.23 0 44
2152 VBA
New 다른 시트에 있는 VBA 코드(적용), 해당 시트 수정 시 전체 Sheet VBA 실행 방법 문의 드립니다. 첨부파일
주유 | 2021.01.23 | 추천 0 | 조회 27
주유 2021.01.23 0 27
2151 VBA
New 오버플로 뜨는 이유와 해결책 첨부파일 (1)
iviolin**** | 2021.01.23 | 추천 0 | 조회 33
iviolin**** 2021.01.23 0 33
2150 함수/공식
New 범위를 지정한 경우의 범위값의 합계 내는 방법 (3) 답변완료
수에이드 | 2021.01.23 | 추천 0 | 조회 48
수에이드 2021.01.23 0 48
2149 VBA
New VBA 셀병합 코드 수정 부탁드림니다.
이하늘 | 2021.01.23 | 추천 0 | 조회 32
이하늘 2021.01.23 0 32
2148 VBA
New 특정 정보에 연동된 내용을 웹에서 크롤링할 수 있나요..? (2)
robot**** | 2021.01.23 | 추천 0 | 조회 30
robot**** 2021.01.23 0 30
2147 파워쿼리/피벗
New 회사 웹 페이지 데이터 엑셀에 연동시키기 (1)
까비깨비도깨비 | 2021.01.23 | 추천 0 | 조회 38
까비깨비도깨비 2021.01.23 0 38
2146 함수/공식
New 조건부 서식 함수 문의 (2)
최정용 | 2021.01.23 | 추천 0 | 조회 42
최정용 2021.01.23 0 42
2145 기능/도구
New 엑셀 창 크기가 어떠한 경우에도 페이지 전체를 볼수 있는 법이 있을까요? (2) 답변완료
naver_600b087e6a876 | 2021.01.23 | 추천 0 | 조회 28
naver_600b087e6a876 2021.01.23 0 28
2144 함수/공식
New 함수문의 (1)
ot**** | 2021.01.22 | 추천 0 | 조회 32
ot**** 2021.01.22 0 32
2143 VBA
New winhttp.winHttpRequest.5.1 , 쿠키와 Jsession을 둘다 사용하기 (4)
까미 | 2021.01.22 | 추천 0 | 조회 27
까미 2021.01.22 0 27
2142 함수/공식
New 새로운 달이 나오면 번호가 1부터 매겨지게 하는 방법 첨부파일 (2) 답변완료
블링블링 | 2021.01.22 | 추천 0 | 조회 46
블링블링 2021.01.22 0 46
2141 VBA
New .Delete 후 셀병합이 있을경우 확인창 않나오게 하기 (1) 답변완료
이하늘 | 2021.01.22 | 추천 0 | 조회 21
이하늘 2021.01.22 0 21
2140 VBA
New .Delete 뒤에 옵션 이 있나요? (4) 답변완료
이하늘 | 2021.01.22 | 추천 0 | 조회 24
이하늘 2021.01.22 0 24
2139 기능/도구
New 엑셀 표(Table)에서 절대참조 방법? (1)
Elvin Lee | 2021.01.22 | 추천 0 | 조회 25
Elvin Lee 2021.01.22 0 25
2138 VBA
New 확인란 / 옵션 단추 박스를 눌렀을 때 연결된 시트가 출력 되게 할 수 없을까요?
테일즈 | 2021.01.22 | 추천 0 | 조회 24
테일즈 2021.01.22 0 24
2137 함수/공식
New 다른 시트에서 값을 불러오는 함수 (2)
robot**** | 2021.01.22 | 추천 0 | 조회 29
robot**** 2021.01.22 0 29
2136 함수/공식
New iferror 사용목적? (4)
요시 | 2021.01.22 | 추천 0 | 조회 42
요시 2021.01.22 0 42
2135 함수/공식
New 엑셀 테이블 자동입력관련 (1)
beamwork | 2021.01.22 | 추천 0 | 조회 42
beamwork 2021.01.22 0 42
2134 함수/공식
New 엑셀로 신규거래업체 걸러낼수 있을까요? (5)
dasdas | 2021.01.22 | 추천 0 | 조회 37
dasdas 2021.01.22 0 37
2133 VBA
New 시트 다른 엑셀파일로 시트복사 (2)
이하늘 | 2021.01.22 | 추천 0 | 조회 28
이하늘 2021.01.22 0 28
2132 함수/공식
New 0을 제외하고 값 비교하기 (1)
유빈 | 2021.01.22 | 추천 0 | 조회 29
유빈 2021.01.22 0 29