VBA에서 파일 읽어 오기

http://mwultong.blogspot.com/2007/08/vba-excel-text-file-read.html

 

엑셀 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

==============================================================================================