Excel VBA ダイアログボックスを表示させる

FileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】プロパティ

フォルダやファイルのダイアログボックスを表示するには、Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのFileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】プロパティで、フォルダやファイルのダイアログボックスを表す、FileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】オブジェクトを取得してファイルダイアログの種類を設定します。

FileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】プロパティの書式と設定値(引数)の説明

オブジェクト.FileDialog(　FileDialogType　)

オブジェクト（必須）
Application【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトを指定します。

FileDialogType【ﾌｧｲﾙﾀﾞｲﾔﾛｸﾞﾀｲﾌﾟ】（必須）
以下のMsoFileDialogType クラスの定数または値を設定します。

設定値	値	内容
msoFileDialogOpen	1	ファイルを開くダイアログ
msoFileDialogSaveAS	2	名前を付けて保存ダイアログ
msoFileDialogFilePicker	3	参照ファイルの選択ダイアログ
msoFileDialogFolderPicker	4	参照フォルダーの選択ダイアログ

FileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】オブジェクトのメソッド一覧表

メソッド	内容
Execute 【ｴｸﾞｽﾞｷｭｰﾄ】	Show【ｼｮｳ】メソッドが呼び出された直後のユーザーのアクションを実行します。
Show 【ｼｮｳ】	ダイアログボックスを表示し【アクション】ボタン（【開く】や【保存】）がクリックされたときは[-1] 【キャンセル】ボタンがクリックされたときは[0]が返ります。また、Executeメソッドを使用するとファイルを開いたり、保存するなどの操作を実行します。

FileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】オブジェクトのプロパティ一覧表

プロパティ	内容
AllowMultiSelect 【ｱﾛｳﾏﾙﾁｾﾚｸﾄ】	複数ファイル選択できるようにする場合はTrueを設定します。
ButtonName 【ﾎﾞﾀﾝﾈｰﾑ】	動作設定ボタンに表示されるテキストを表す。文字列を取得または設定します。
DialogType 【ﾀﾞｲｱﾛｸﾞﾀｲﾌﾟ】	ダイアログボックスの種類を表す。定数を取得します。読み取り専用です。
FilterIndex 【ﾌｨﾙﾀｰｲﾝﾃﾞｸｽ】	ダイアログを表示したとき最初に選択されるフィルターを指定 [ファイルの種類]で表示されるファイル名を上から順番に指定されているインデクス番号で指定します。値の取得と設定が可能です。フィルターの数より大きい値が設定された場合使用可能なフィルターの最後のフィルターが選択されます。
Filters 【ﾌｨﾙﾀｰｽﾞ】	フィルターに表示されるファイル一覧を表す FileDialogFilters コレクションを取得します。値の取得のみ可能です。
InitialFileName 【ｲﾆｼｬﾙﾌｧｲﾙﾈｰﾑ】	ファイルダイアログボックスの最初に表示される保存先（パス）の取得と保存先（パス）を文字列で設定します。
InitialView 【ｲﾆｼｬﾙﾋﾞｭｰ】	ファイルやフォルダの表示方法を MsoFileDialogView列挙型の定数で指定します。
SelectedItems 【ｾﾚｸﾃｨｯﾄﾞｱｲﾃﾑ】	ユーザーが選択したファイルのパスの一覧を表す FileDialogSelectedItems コレクションを取得します。
Title 【ﾀｲﾄﾙ】	ダイアログのタイトル文字列を取得または設定します。

ブックを開くダイアログボックスを表示するコードと解説

Sub ダイアログ()
　With Application.FileDialog(msoFileDialogOpen)
　　　　.InitialFileName = "C:¥users¥documents¥"
　　　　.FilterIndex = 2
　　If .Show = -1 Then .Execute
　End With
End Sub

2行目【 With Application.FileDialog(msoFileDialogOpen) 】Applicaion【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのFileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】プロパティを使用して、引数にファイルダイアログを表す定数msoFileDialogOpenを指定して、「ファイルを開くダイアログオブジェクト」を参照し、With【ｳｨｽﾞ】ステートメントで指定します。

3行目【.InitialFileName = “C:¥users¥documents¥” 】
With【ｳｨｽﾞ】ステートメントで指定したFileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】オブジェクトのInitialFileName【ｲﾆｼｬﾙﾌｧｲﾙﾈｰﾑ】プロパティを使用して、最初に表示する保存先を「マイドキュメント」に指定します。

4行目【.FilterIndex = 2 】
With【ｳｨｽﾞ】ステートメントで指定したFileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】オブジェクトのFilterIndex【ﾌｨﾙﾀｰｲﾝﾃﾞｯｸｽ】プロパティでファイル選択フィルターの2番目「すべてのExcelファイル」が表示されるように指定しています。

5行目【 If .Show = -1 Then .Execute 】
Ifステートメント（条件分岐）を使用して、Showメソッドの値が「-1」だったときを条件としています。-1とは、開くボタンが押されたときになります。開くボタンがおされたときExecute【ｴｸﾞｽﾞｷｭｰﾄ】メソッドでファイルを開きます。

保存のダイアログボックス表示のコードと解説

Sub ダイアログ2()
　With Application.FileDialog(msoFileDialogSaveAs)
　　　　.InitialFileName = ThisWorkbook.path & "¥"
　　　　.FilterIndex = 1
　　If .Show = -1 Then .Execute
　End With
End Sub

2行目【 With Application.FileDialog(msoFileDialogSaveAs)　】
Applicaion【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのFileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】プロパティを使用して、引数にファイルダイアログを表す定数msoFileDialogSaveAsを指定して、「ファイルを保存するダイアログオブジェクト」を参照し、With【ｳｨｽﾞ】ステートメントで指定します。

3行目【 .InitialFileName = ThisWorkbook.path & “¥”　】

With【ｳｨｽﾞ】ステートメントで指定したFileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】オブジェクトのInitialFileName【ｲﾆｼｬﾙﾌｧｲﾙﾈｰﾑ】プロパティで最初に表示する保存先をApplication【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのThisWorkbook【ﾃﾞｨｽﾜｰｸﾌﾞｯｸ】プロパティで取得したこのプロシージャが記述されているブックのpath 【ﾊﾟｽ】プロパティで取得した保存場所（パス）に設定します。

4行目【 .FilterIndex = 1 】
With【ｳｨｽﾞ】ステートメントで指定したFileDialog【ﾌｧｲﾙﾀﾞｲｱﾛｸﾞ】オブジェクトのFilterIndex【ﾌｨﾙﾀｰｲﾝﾃﾞｯｸｽ】プロパティでファイル選択フィルターの1番目のExcelブックを選択しています。

さまざまなダイアログボックスを表示する方法

ファイル操作に関するダイアログボックス以外にも、さまざまなダイアログボックスがあります。それらのダイヤログボックスを表示するにはApplication【ｱﾌﾟﾘｹｰｼｮﾝ】オブジェクトのDialogs【ﾀﾞｲｱﾛｸﾞｽ】プロパティを利用してDialog【ﾀﾞｲｱﾛｸﾞ】オブジェクトを取得して操作する方法があります。

MsoFileDialogView列挙型の定数

定数	内容
msoFileDialogViewDetails	ファイルを詳細情報と共に一覧表示します。
msoFileDialogViewLargeIcons	ファイルを大きいアイコンで表示します。
msoFileDialogViewList	ファイルを詳細情報なしで一覧表示します。
msoFileDialogViewPreview	ファイルの一覧を表示し、選択したファイルをプレビューウィンドウ枠に表示します。
msoFileDialogViewProperties	ファイルの一覧を表示し、選択したファイルのプロパティをウィンドウ枠に表示します。
msoFileDialogViewSmallIcons	ファイルを小さいアイコンで表示します。
msoFileDialogViewThumbnail	ファイルを縮小表示します。
msoFileDialogViewTiles	ファイルをアイコンで並べて表示します。
msoFileDialogViewWebView	ファイルを Web 表示します。

以上で、フォルダやファイルのダイアログボックスを表示させる方法の解説を終了します。
ありがとうございました。