FileDialogオブジェクトによるファイル・フォルダ選択

使用例 ファイルを選択する（msoFileDialogFilePicker） ファイルダイアログオブジェクトでファイルを選択する例です。この例では、複数ファイルの選択を可能にし、ファイルフィルタと初期表示フォルダの設定を行っています。ファイルを選択して OK ボタンを押すと、選択したファイルパスの一覧をメッセージボックスに表示します。 Sub sample_ef014_01() Dim strFiles As String Dim i As Integer With Application.FileDialog(msoFileDialogFilePicker) 'ファイルの複数選択を可能にする .AllowMultiSelect = True 'ファイルフィルタのクリア .Filters.Clear 'ファイルフィルタの追加 .Filters.Add "エクセルブック", "*.xls*"