[ VBA ] ファイル・フォルダ選択ダイアログを表示する ( Application.FileDialog )

Tweet

Pocket

VBA を使ってファイルおよびフォルダの選択ダイアログを出力するサンプルスクリプトを掲載しています。選択ダイアログを表示するにはいくつかの方法があるようですが、ここでは Application.FileDialog を使用しています。

ファイル・フォルダ選択ダイアログを表示する

ファイルまたはファイルの選択ダイアログを出力するサンプルコードになります。詳細はコメントを参照ください。

    ' ファイル選択ダイアログを出力する
    ' ダイアログタイプに応じて、ボタンの名前や動作が変わる
    ' msoFileDialogFilePicker  ：ファイル選択ダイアログ OKボタン 
    ' msoFileDialogFolderPicker：フォルダ選択ダイアログ OKボタン
    ' msoFileDialogOpen        ：ファイル選択ダイアログ 開くボタン 
    ' msoFileDialogSaveAs      ：ファイル保存ダイアログ 保存ボタン
    With Application.FileDialog(msoFileDialogFilePicker)
    
        ' 複数選択を許可する（ファイルにのみ有効、フォルダは複数選択できない）
        .AllowMultiSelect = True
        
        .InitialFileName = "テスト.xls"  ' 初期表示するファイル名
        
        ' ダイアログの表示タイプ
        .InitialView = msoFileDialogViewDetails ' 詳細表示
        
        ' キャンセルボタンや×ボタンで閉じた場合は False がリターンされる
        Dim selected As Boolean
        selected = .Show
        If (selected = True) Then
        
            ' 選択されたファイルまたはフォルダのパスを出力する
            Dim i As Integer
            For i = 1 To .SelectedItems.Count
                Debug.Print .SelectedItems(i)
            Next
            
        End If
    End With

参考

• Application.FileDialog プロパティ (Excel)

Tweet

Pocket