문제:
VBA로 (아래와 같이) 여러 텍스트 파일을 처리하라.
단계 1:
Alt + F11로 VBA 에디터를 연다.
VBA Project 창에서 Sheet1을 더블 클릭해서 코드 편집기를 연다.
단계 2:
코드 편집기에 다음 코드를 넣는다.
Sub Example() Dim fnames() As Variant fnames = Application.GetOpenFilename(, , , , True)
Dim i As Integer For i = 1 To UBound(fnames) ' 필요한 작업을 수행 ' 파일 이름 = fnames(i) Next i End Sub |
예를 들어:
- 첫째 열에 (경로 포함) 파일 이름을 입력하고
- 둘째 열에 각 파일의 (공백으로 구분된) 첫 데이터를 넣는 VBA 코드:
Sub Example() Dim fnames() As Variant fnames = Application.GetOpenFilename(, , , , True)
Dim i As Integer For i = 1 To UBound(fnames) Range("A1").Offset(i - 1).Value = fnames(i)
Open fnames(i) For Input As #1 Dim aline As String Line Input #1, aline Range("B1").Offset(i - 1).Value = Split(aline, " ")(0) Close #1 Next i End Sub |
단계 3:
코드 중간에 커서를 놓고 코드 실행.
단계 4:
실행 결과 (시연):
참고 웹사이트:
'MS Excel' 카테고리의 다른 글
MS Excel - Sheet 간 빠른 이동 (0) | 2015.09.27 |
---|