[Excel] FileDialog 띄우기

Excel 에서 파일다이얼로그를 띄우는 방법입니다. 

 

파일다이얼로그를 이용하여 폴더를 선택하거나 또는 파일을 선택하는 경우가 있을 수 있고 

저장을 하기 위해 파일명을 입력받는 경우가 있을 수 있겠네요

이런것들을 파일다이얼로그를 이용할 수 있습니다. 

 

 

    FileDiaglogType을 설정하실 수 있습니다. 

 

    msoFileDialogFilePicker. Allows user to select a file.

    msoFileDialogFolderPicker. Allows user to select a folder.

    msoFileDialogOpen. Allows user to open a file.

    msoFileDialogSaveAs. Allows user to save a file.

 

 

Type 별로 약간의 특성이 있습니다. 

사용용도에 맞게 설정을 하시면 됩니다. 

 

 

## Sample Code

 

Sub FileDialog_FilePicker()

 

    Dim lngCount As Long

 

    '==FileDiaglogType==

    'msoFileDialogFilePicker. Allows user to select a file.

    'msoFileDialogFolderPicker. Allows user to select a folder.

    'msoFileDialogOpen. Allows user to open a file.

    'msoFileDialogSaveAs. Allows user to save a file.

 

    With Application.FileDialog(msoFileDialogFilePicker)

    

        .AllowMultiSelect = True

        .Title = "File Picker"

        .InitialFileName = "c:\goodjob.xlsx"

        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1

        .Show

 

        For lngCount = 1 To .SelectedItems.Count

            MsgBox .SelectedItems(lngCount)

        Next lngCount

 

    End With

 

End Sub

 

FileDialog.zip

0.01MB