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

 
Previous Post IE에서 HTML 편집기 변경, 인터넷 익스플로러 웹페이지 에디터 바꾸기EUC-JP Shift-JIS 용 윈도우 폰트4NT 환경 설정 파일, 4NT.INI 예제4DOS 무료로 전환, 16비트 MS-DOS용 포도스 사도스CDR 파일 보기, 열기 프로그램은? CDR 확장자 파일이란? CorelDRAW삼각대와 헤드 사진; 볼헤드란? Ball HeadEXE 파일이란? EXE 확장자 화일의 용도, 의미극세사 섬유 장갑 세탁 가능; 매틴 사진용 면장갑 물빨래; MATIN키보드 스킨 별도 구입 사용기; 삼성 키보드 키스킨, SAMSUNG Keyboard Ski...건전지 보관, 사용 요령; 누액 방지; Dry Cell

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

Sunday, August 12, 2007

엑셀 비베에서, 주어진 텍스트 파일의 내용을 읽어서 메시지박스에 출력하는 예제 소스입니다. 다음 예제에서는 "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

2 Comments:
At 3:25 PM, Blogger Jaewon Heo said...

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

 
At 4:17 PM, Blogger mwultong said...

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

 

Post a Comment

<< Home RSS 2.0 feed

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