2014. 11. 21. 10:08
엑셀 VBA 파일 읽기, 텍스트 파일 열기 예제; Excel Text File Read 엑셀VBA 이야기2014. 11. 21. 10:08
728x90
반응형
엑셀 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
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
원본출처:http://mwultong.blogspot.com/2007/08/vba-excel-text-file-read.html
728x90
반응형
'엑셀VBA 이야기' 카테고리의 다른 글
[ 엑셀 VBA ] 자동 저장 매크로 (0) | 2014.11.26 |
---|---|
사용자 원하는 순서대로 정리하기 (0) | 2014.11.22 |
(엑셀ado)엑셀자료를 한꺼번에 DB에 저장하기 (0) | 2014.11.19 |
mdb(ADO) 작성 방법 프로그래밍 (0) | 2014.11.19 |
엑셀VBA - 타이머 (0) | 2013.03.29 |