mwultong Blog ... 프로그래밍 / 계산기

컴퓨터 엑셀 워드 포토샵 구글어스 WINDOWS JAVASCRIPT JAVA C++

 
Sunday, August 12, 2007

엑셀 VBA 파일 읽기, 텍스트 파일 열기 예제; Excel Text File Read


엑셀 비베에서, 주어진 텍스트 파일의 내용을 읽어서 메시지박스에 출력하는 예제 소스입니다. 다음 예제에서는 "D:\Z\test.txt" 라는 경로에 있는 텍스트 파일을 읽는데, 이런 경로가 없다면 소스에서 경로(디렉토리;폴더)를 적절히 수정해 주어야 합니다. 물론 test.txt 라는 파일 속에 아무 내용이든 글자들이 들어 있어야 출력이 됩니다.

VBA매크로: 파일 내용 1줄씩 읽어 출력하기 소스


(엑셀에서 Alt+F11키를 눌러, 비베 에디터를 실행하고, 비베 에디터 메뉴의, "삽입 > 모듈"을 선택한 후, 다음 코드를 붙여 넣습니다.)
비베 에디터에서 F5 키를 누르거나, 엑셀에서 Alt+F8 키를 누르면 VBA 매크로가 실행됩니다.

Sub Text_File_Read()
  On Error GoTo errorMessage
  Dim s As String, s2 As String, fileHandle As Integer

  fileHandle = FreeFile ' 사용 가능한, 파일 핸들 번호 구하기
  Open "D:\Z\test.txt" For Input As fileHandle ' 파일 열기

  ' 텍스트 파일 한 줄씩 읽기 (한글 영문 모두 가능)
  Do While Not EOF(fileHandle) ' 파일의 끝까지 반복
    Line Input #fileHandle, s  ' 읽은 1줄을 변수 s 에 대입
    s2 = s2 & s & Chr(13)      ' 결과를 저장할 변수에 차곡차곡 추가
  Loop

  MsgBox s2 ' 대화상자에 파일 내용 출력


quitSub:
  Close fileHandle ' 위에서 연 파일만 닫기
  Exit Sub ' 이 Sub 프로시저를 종료


errorMessage:
  ' 에러 메시지 대화상자 출력
  MsgBox Err.Description, vbOKOnly + vbCritical, "에러 코드: " & Err.Number
  Resume quitSub

End Sub




엑셀 시트에 파일 직접 입력하기: ▶▶ 엑셀 VBA매크로, 파일 내용 읽어서 셀에 입력하기 예제; Excel Text File Input Cell




tag: office
엑셀 Excel | 워드 Word | VBA 매크로 | 오피스

2 Comments:
At August 7, 2008 at 3:25 PM, Blogger Jaewon Heo said...

많은 도움이 되었습니다.감사합니다.

 
At August 7, 2008 at 4:17 PM, Blogger mwultong said...

방문하여 주셔서 감사합니다

 

<< Home RSS 2.0 feed

구글 Google 에서 제공하는 무료 블로그 서비스인 블로거 Blogger 의 인터넷 주소는 www.blogger.com 입니다. Blogger 에 블로그를 만들면, blogspot.com 이라는 주소에 블로그가 생성됩니다.
블로그를 직접 방문하지 않고도 최신 게시물을 구독하려면 RSS 2.0 feed 주소를 리더기에 등록하시면 됩니다.
Previous Posts
Monthly Archives
Top