Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

FileDialog オブジェクトを取得する（FileDialog プロパティ）

2016/03/06 2016/03/09

FileDialog プロパティ

FileDialog オブジェクト を取得します。引数に、ダイアログボックスの種類を表す MsoFileDialogType 列挙型 の定数を指定します。
実際にダイアログボックスを表示したり、指定したファイルを開いたりするには、FileDialog オブジェクト の Show メソッド や Execute メソッド を使用します。
FileDialog オブジェクト に関する詳細は、「ファイル」のダイアログボックスを表示（FileDialog オブジェクト）を参照して下さい。

【書式】

object.FileDialog ( filedialogtype )

引数・戻り値

object ・・・対象となる Application オブジェクトを指定します。

filedialogtype ・・・ダイアログボックスの種類を表す MsoFileDialogType 列挙型の定数またはその値を指定します。

定数	値	内容
msoFileDialogOpen	1	「ファイルを開く」ダイアログボックス
msoFileDialogSaveAs	2	「名前を付けて保存」ダイアログボックス
msoFileDialogFilePicker	3	「参照」ダイアログボックス（ファイルを選択）
msoFileDialogFolderPicker	4	「参照」ダイアログボックス（フォルダを選択）

FileDialog プロパティ使用例

サンプルVBAソース

　
Sub Sample_FileDialogProperty()

    With Application.FileDialog(msoFileDialogOpen)
    
        .Filters.Clear
        .Filters.Add Description:="Excel ファイル", _
                     Extensions:="*.xlsx, *.xlsm"

        If .Show = -1 Then .Execute
        
    End With

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

　

Sub Sample_FileDialogProperty()

With Application.FileDialog(msoFileDialogOpen)

.Filters.Clear

.Filters.Add Description:="Excel ファイル", _

Extensions:="*.xlsx, *.xlsm"

If .Show = -1 Then .Execute

End With

End Sub

　

実行結果

Sample_FileDialogProperty を実行

「test.xlsx」を選択して「開く」をクリック

- Excel・ファイルの操作 Application オブジェクト, Excel・ファイルの操作, FileDialog オブジェクト, FileDialog プロパティ, MsoFileDialogType 列挙型, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: XlBuiltInDialog 列挙型

XlBuiltInDialog 列挙型 Excel の組み込みダイアログボックス …

: ファイルを削除（Kill ステートメント）

ファイルを削除するファイルを削除するには、Kill ステートメントを使用しま …

: 開いているファイルの読み取り位置または書き込み位置を設定（Seek ステートメント）

Seek ステートメント Open ステートメントで開いているファイルで、次に …

: テキストファイル：出力する 1 行の幅を設定（Width # ステートメント）

Width # ステートメント Open ステートメントをシーケンシャル出力モ …

: ディレクトリまたはフォルダの削除（RmDir ステートメント）

ディレクトリまたはフォルダの削除ディレクトリまたはフォルダを削除するには、Rm …

: テキストファイル：データを書き込む（Print # ステートメント）

Print # ステートメント Open ステートメントをシーケンシャル出力モ …

: ファイルをコピー（FileCopy ステートメント）

FileCopy ステートメントファイルをコピーします。ただし、開いているファ …

: EOF 関数

EOF 関数 Open ステートメントをランダムアクセスモード（Random） …

: 「ファイルを開く」ダイアログボックスを表示（GetOpenFilename メソッド）

GetOpenFilename メソッドファイル名を取得するための、「ファイル …

: Excelでテキストファイルを開く（OpenText メソッド）

Excelでテキストファイルを開く OpenText メソッドで、テキストファイ …

PREV: FileDialogFilters コレクション・FileDialogFilter オブジェクト
NEXT: 「ファイル」ダイアログボックスを表示・設定（FileDialog オブジェクト）