【初心者向け】Outlook VBAでファイル選択ダイアログを使用する方法！

▲「Microsoft Excel 16.0 Object Library」にチェックを入れます。16.0の部分はPCにインストールされたExcelのバージョンにより数字が変わりますのでパソコンによっては違う表示がされるかもしれませんが問題はありません。

「Microsoft Excel Object Library」は、通常は一つしか存在しないかと思いますがExcelのバージョンが複数インストールされたPCでは複数表示されるかもしれません。その場合は数字の大きい方にチェックを入れておけば問題ないかと思います。

チェックを入れたら画面を閉じます。

これで設定はおわりです。一度設定してしまえば何度も設定する必要はありません。

テストとして、ファイルダイアログで選択したファイルのフルパスをメッセージボックスに表示するという簡単なマクロを作成してみたいと思います。

▲マクロを実行するとファイルダイアログでユーザーが選択したファイルが図のような感じで表示されます。

あわせて読みたい

ドキュメントパスとは？パスってなに！？ この記事ではPower Automateに登場するパス（Path）という言葉について解説する記事です。 パスはコンピュータの世界で一般的な言葉ですのでPower Automateを使わない方…

今回はテスト用に新しく標準モジュールを追加します。モジュールの作成方法がわからない方やVBAが初めての方は下記の記事をご参考になさってください。

あわせて読みたい

【初心者向け】Outlook マクロ（VBA）を使って時短しよう！ Outlook にもExcelと同じようなマクロ機能が存在することをご存じでしょうか。マクロを使えばメールに関する操作を自動化して、時短やミス防止にも役立ちます。 この記…

下記のコードをコードペインにコピペします。コードの解説は後程行います。

Sub FilePickerTest()

    '■1.Excelを呼び出す処理
    Dim excelObject As Excel.Application
    Set excelObject = New Excel.Application
    excelObject.Visible = False 'Excelは非表示にする
    
    
    
    '■2.ファイルダイアログを設定して表示する処理
    Dim fdFolder As Office.FileDialog
    Set fdFolder = excelObject.Application.FileDialog(msoFileDialogFilePicker)

    With fdFolder
        .InitialFileName = "%userprofile%\" '一番最初に開くフォルダのパスを記述します。
        .AllowMultiSelect = True '複数ファイルの選択を許可する場合はTrue・しない場合はFalse
        .Title = "メールに添付するファイルを選択してください（複数選択可）。"
        .Filters.Add "Excels", "*.xls* ", 1
        .Filters.Add "Images", "*.png; *.jpg; *.jpeg", 2
        .Filters.Add "Documents", "*.doc*; *.pdf; *.txt ", 3
        .Filters.Add "csv", "*.csv", 4
        .Filters.Add "any", "*.*", 5
        .FilterIndex = 1 'デフォルトのフィルターをindexで指定します。
        .Show 'ファイルダイアログを表示します。
    End With
    
    
    '■3.選択されたファイルに対する処理
    Dim SelectedItem
    For Each SelectedItem In fdFolder.SelectedItems
        MsgBox ("あなたが選択したファイルは、" & SelectedItem & "ですね？")
    Next
    Set excelObject = Nothing
End Sub

マクロを実行してみましょう。マクロはキーボードのF5キーを押下して実行できます。

▲マクロを実行するとファイルダイアログが表示されます。

▲選択したファイルのファイル名がメッセージボックスに表示されます。ファイルを2個選択した場合はメッセージボックスが2個表示されるかと思います。