엑셀 VBA로 특정 폴더 내 모든 파일 이름을 추출하는 방법

업무를 하다보면 여러곳에서 온 파일들을 하나의 폴더에 취합하는 일이 자주 있습니다.

그때 그 폴더내의 모든 파일들을 관리하고자 할때 파일명을 리스트업 해야하는 상황을 자주 맞닥드리게 됩니다.

그때 꼭 CMD를 사용하지 않고도 엑셀로 바로 폴도 내 파일명을 모두 추출 할 수 있는 방법이 있습니다.

블로그에서도 몇번 소개드렸던 VBA 코드를 사용 하실 수 있어야 합니다.

ALT+F11 -> 삽입 -> 모듈 -> 실행

삽입-모듈까지하시면 빈창이 하나 뜨는데 다음 코드를 붙여 보세요

Sub GetFileList()
Dim MyFolder As String
Dim MyFile As String
Dim i As Integer

' 폴더 선택 다이얼로그를 엽니다.
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Select a Folder"
.AllowMultiSelect = False
If .Show <> -1 Then Exit Sub
MyFolder = .SelectedItems(1) & "\"
End With

' 선택한 폴더 내 파일 이름 목록을 가져옵니다.
MyFile = Dir(MyFolder & "*.*")

' 엑셀 시트의 첫 번째 행부터 파일 이름을 입력합니다.
i = 1

Do While MyFile <> ""
Cells(i, 1).Value = MyFile
i = i + 1
MyFile = Dir
Loop

End Sub

그리고 실행을 누르면 폴더를 선택하라고 합니다.

저는 저 이미지 캐시 폴더를 선택해보겠습니다.

순식간에 이미지캐시 안에 있는 모든 파일명을 확장자 포함해서 불러왔네요

원래있던 파일들입니다.
정말 대단하네요...

업무에 잘 활용 하시길 바랍니다.