ファイルダイアログ（FileDialog）

最終更新日：2019-07-07

第76回.ファイルダイアログ（FileDialog）

VBAでファイルを指定するダイアログを扱うには、
すでに紹介したGetOpenFilenameやGetSaveAsFilenameがありますが、
さらに、今回紹介する、
FileDialogオブジェクト
こちらも使用することができ、GetOpenFilenameやGetSaveAsFilenameにはない便利な機能が提供されています。

FileDialogオブジェクト

Application.FileDialog(fileDialogType)

以下は、
fileDialogTypeに使用する定数です。

msoFileDialogFilePicker	ユーザーがファイルを選択できます。
msoFileDialogFolderPicker	ユーザーがフォルダーを選択できます。
msoFileDialogOpen	ユーザーがファイルを開くことができます。
msoFileDialogSaveAs	ユーザーがファイルを保存できます。

このFileDialogは、
GetOpenFilenameやGetSaveAsFilenameと、だいぶ使い方が違います。

FileDialogは、Application内のオブジェクトです。
使用する場合は、親オブジェクトである、Applicationを指定が必要です。
オブジェクトなので、メンバーであるプロパティ、メソッドが存在します。

FileDialogオブジェクトには、多くのプロパティ、メソッドがあり、
これらを使用して、各種機能を実現します。

	名前	説明
メソッド	Execute	Show メソッドが呼び出された直後のユーザーのアクションを実行します。
メソッド	Show	ファイルのダイアログボックスを表示し、[アクション] ボタン (-1) と [キャンセル] ボタン (0) のどちらがクリックされたかを示す長整数型 (Long) の値を返します。 Show メソッドを呼び出すと、ファイルのダイアログボックスが閉じられるまで、コードの実行は中断されます。 [ファイルを開く] および [名前を付けて保存] ダイアログボックスでは、Show メソッドの直後に Execute メソッドを使用して、ユーザーのアクションを実行します。
プロパティ	AllowMultiSelect	True を設定すると、ユーザーは、ダイアログボックスから複数のファイルを選択できます。値の取得および設定が可能です。
	Application	指定した FileDialog オブジェクトのコンテナーアプリケーションを表す Application オブジェクトを取得します。このプロパティを Automation オブジェクトと組み合わせて使用すると、そのオブジェクトのコンテナーアプリケーションを取得できます。値の取得のみ可能です。
	ButtonName	ファイルのダイアログボックスで、アクションボタンに表示されるテキストを表す文字列型 (String) の値を設定します。値の取得および設定が可能です。
	Creator	FileDialog オブジェクトが作成されたアプリケーションを示す 32 ビットの整数を取得します。値の取得のみ可能です。
	DialogType	FileDialog オブジェクトが表示するファイルのダイアログボックスの種類を表す MsoFileDialogType クラスの定数を取得します。値の取得のみ可能です。
	FilterIndex	ファイルのダイアログボックスの既定ファイルフィルターを設定します。長整数型 (Long) の値を使用します。既定フィルターによって、ファイルのダイアログボックスを初めて開いたときに表示されるファイルの種類が決まります。値の取得および設定が可能です。
	Filters	FileDialogFilters コレクションを取得します。値の取得のみ可能です。
	InitialFileName	ファイルのダイアログボックスに初期表示されるパスやファイル名を設定します。文字列型 (String) の値を使用します。値の取得および設定が可能です。
	InitialView	ファイルのダイアログボックスでのファイルやフォルダーの初期表示を表すMsoFileDialogViewクラスの定数を設定します。値の取得および設定が可能です。
	Item	指定したオブジェクトに関連付けられたテキストを取得します。値の取得のみ可能です。
	Parent	FileDialog オブジェクトの Parent オブジェクトを取得します。値の取得のみ可能です。
	SelectedItems	FileDialogSelectedItems コレクションを取得します。このコレクションには、FileDialog オブジェクトの Show メソッドによって表示されたファイルのダイアログボックスでユーザーが選択したファイルのパスの一覧が保存されています。値の取得のみ可能です。
	Title	FileDialog オブジェクトを使用して表示されるファイルのダイアログボックスのタイトルを取得または設定します。値の取得および設定が可能です。

いろいろな使い方があり、なかなか全てを紹介しきれませんが、
以下に、いくつかの実践例を挙げます。

FileDialogの実践例


  
    
      
      Sub sample1()

      　　With 
Application.FileDialog(msoFileDialogFolderPicker)

      　　　　.InitialFileName = 
"D:\user"

      　　　　.AllowMultiSelect = False
      　　　　.Title = "フォルダの選択"

      　　　　If .Show = True Then

      　　　　　　MsgBox "選択フォルダは" 
& vbLf & .SelectedItems(1)

      　　　　End If

      　　End With

      End 
Sub

フォルダの選択ダイアログを表示し、選択されたフォルダをMsgBoxで表示しています。
初期フォルダも指定しています。


  
    
      Sub sample2()

      　　With 
Application.FileDialog(msoFileDialogOpen)

      　　　　.Filters.Clear

      　　　　.Filters.Add 
"Excel2003", "*.xls"

      　　　　.Filters.Add "Excelファイル", 
"*.xlsx"

      　　　　.Filters.Add "Excelマクロ有効", "*.xlsm"

      　　　　.InitialFileName = 
"D:\user"

      　　　　.AllowMultiSelect = False

      　　　　If .Show = True 
Then

      　　　　　　.Execute

      　　　　End If

      　　End With

      End 
Sub