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

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