ファイル

パス

　取得

　　ダイアログボックスで選択したファイルのフルパス

　　　参照設定

Microsoft Office 16.0 Object Library

Dim ダイアログボックス As fileDialog
Dim 選択したファイルのリスト As FileDialogSelectedItems

Set ダイアログボックス = Application.FileDialog(msoFileDialogFilePicker)

With ダイアログボックス
    .Title = "ダイアログボックスのタイトル"
    .Show
    Set 選択したファイルのリスト = .SelectedItems

   '1つめのファイルのフルパス
    選択したファイルのリスト(1)

    'リストの要素数
    選択したファイルのリスト(1).Count
End With