[VBA] File Dialog를 사용해 파일 선택

VBA에서 파일을 선택하고 싶을 때 File Dialog를 사용할 수 있습니다.

 

기본적인 구문은 다음과 같습니다.

 

Application.FileDialog(fileDialogType)   

 

fileDialogType은 필수 값으로 다음의 4가지 중에 하나를 사용할 수 있습니다. 사용 목적에 따라 골라서 사용하시면 됩니다.

 

Name	Usage
msoFileDialogFilePicker	파일을 선택할 때 사용
msoFileDialogFolderPicker	폴더를 선택할 때 사용
msoFileDialogOpen	파일을 열 때 사용
msoFileDialogSaveAs	파일을 저장할 때 사용

 

Application.FileDialog(msoFileDialogFilePicker).Show

 

---

 

 

여기서 추가적인 기능을 사용하고 싶다면  With구문을 이용하면 됩니다.

 

Sub FileDialog_Example()
 
    Dim lngCount As Long
 
    With Application.FileDialog(msoFileDialogFilePicker)
    
        .AllowMultiSelect = True
        .Title = "FileDialog Example"
        .InitialFileName = "InitialFileName.txt"
        .Filters.Add "Text Files", "*.txt; *.docx"
        .ButtonName = "Select File"
        
        If .Show = -1 Then
            
            For lngCount = 1 To .SelectedItems.count
                MsgBox .SelectedItems(lngCount)
            Next lngCount
        
        End If

    End With
 
End Sub

   

자주 사용되는 속성들만 알아보도록 하겠습니다.

 

.AllowMultiSelect: 복수 개의 파일을 선택할 수 있도록 허용

.Title: FileDialog의 이름을 설정

.InitialFileName: 처음 File Dialog를 생성했을 때 적용할 파일 이름

.Filter: 원하는 확장자로 필터링 가능

.ButtonName: 확인 버튼을 원하는 문자열로 변경 가능   

.Show: FileDialog를 실행. 파일이 제대로 선택되었다면 -1을 반환

.SelectedItems: 선택된 파일들에 대한 정보를 담고 있음

 

위 코드를 실행해보면 파일이 정상적으로 선택되었을 시, 해당 파일들의 경로를 MsgBox를 이용해 확인할 수 있습니다.

 

Title, InitialFileName, Filters

 

AllowMultiSelect, ButtonName

 

선택된 파일의 경로