엑셀 VBA매크로, 파일 내용 읽어 셀에 입력하기 예제; Excel Text File Input Cell

Sub Text_File_To_Excel()
  On Error GoTo errorMessage
  Dim s As String, fileHandle As Integer, myRows As Long

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

  myRows = 1

  ' 텍스트 파일 한 줄씩 읽기 (한글 영문 모두 가능)
  Do While Not EOF(fileHandle) ' 파일의 끝까지 반복
    Line Input #fileHandle, s  ' 읽은 1줄을 변수 s 에 대입
    Cells(myRows, 1).Value = s ' 읽은 1행을, 엑셀 셀에 입력
    myRows = myRows + 1        ' 다음 행에 입력하기 위해 행번호 증가
  Loop



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


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

End Sub