【EXCEL VBA】ファイルを開くダイアログボックスを表示するには？

訪問して頂きありがとうございます。まさふくろーです。

今回は、ファイルを開くダイアログボックスを表示する方法をご紹介します。

ファイルを開くダイアログボックスを表示する
作成手順
解説

ファイルを開くダイアログボックスを表示する

作成手順

「開発」タブの確認

リボンに「開発」タブが表示されているかの確認をします。

「開発」タブが表示されていない場合は、「開発タブの表示」をご覧ください。

ボタンの作成

①「開発」タブをクリック⇒②「挿入」をクリック⇒③「ボタン」をクリックします。

シート上にカーソルを移動すると、ポインターが「＋」の状態になります。

左クリックを押したまま、緑の矢印の方向にズルズルっとカーソルを移動します。

「マクロの登録」画面が表示されます。

①「マクロ名」を変更⇒②「新規作成」ボタンをクリックします。

MEMO

マクロ名は、どんな名前にしても問題ありませんが、処理と関係ある名前にしたほうが、コードを見る際にわかりやすくなります。

自動的にVBE(Visual Basic Editor)が起動します。

VBAコードの入力

VBE(Visual Basic Editor)のピンク枠の部分に、VBAコードを入力していきます。

入力するコードは以下になります。

Sub ファイルを開く()

    With Application.FileDialog(msoFileDialogOpen)
    
        With .Filters
            
            '「ファイルの種類」をクリア
            .Clear
            
            '「ファイルの種類」を登録
            .Add "Excelブック", "*.xls; *.xlsx; *.xlsm"
            .Add "テキストファイル", "*.txt"
        
        End With
        
        '複数選択を不可に設定
        .AllowMultiSelect = False
        
        'ダイアログボックスを表示。開くボタンを押された場合、
        If .Show = True Then
            
            'ファイルを開く
            .Execute
        
        End If
        
    End With

End Sub

Sub ファイルを開く()

With Application.FileDialog(msoFileDialogOpen)

With .Filters

'「ファイルの種類」をクリア

.Clear

'「ファイルの種類」を登録

.Add "Excelブック", "*.xls; *.xlsx; *.xlsm"

.Add "テキストファイル", "*.txt"

End With

'複数選択を不可に設定

.AllowMultiSelect = False

'ダイアログボックスを表示。開くボタンを押された場合、

If .Show = True Then

'ファイルを開く

.Execute

End If

End With

End Sub

ボタンの名前を変更する

エクセルのブックに戻り、ボタンの上にフォーカスを当てます。すると、ポインターが「」マークに切り替わります。

右クリックでショートカットメニューを表示し、「テキストの編集」を選択します。

ボタンの名前を変更します。

VBAコードの保存

「ファイル」タブをクリックします。

「名前を付けて保存」を選択し、ファイル保存画面を起動します。

①ファイル名を入力⇒②「Excel マクロ有効ブック(*.xlsm)」を選択⇒③「保存」ボタンをクリックします。

解説

Withステートメント

構文	With オブジェクト　.オブジェクトに対する処理　.オブジェクトに対する処理 End With
解説	「Withオブジェクト」から「End With」までの間は、Withオブジェクトで指定したオブジェクトの記述を省略できる。「オブジェクトに対する処理」を記述するときは、「.プロパティ=設定値」「.メソッド」のように「.」(ピリオド)に続けてオブジェクトに対する処理を記述する。
例	セルＡ2～D2について、以下の処理を実行する。１.フォントサイズを12ポイントにする。２.太字にする。３.左右中央にする。４.Withステートメントを終了する。
	Withステートメントを使用する場合
	With Range("A2:D2") .Font.Size = 12 .Font.Bold = True .HorizontalAlignment = xlCenter End With
	Withステートメントを使用しない場合
	Range("A2:D2").Font.Size = 12 Range("A2:D2").Font.Bold = True Range("A2:D2").HorizontalAlignment = xlCenter
	Withステートメントを使用しなくても問題ありませんが、なるべく同じことを書かないようにするためにも、Withステートメントを使用することをおすすめします。

FileDialogオブジェクト

構文

Application.FileDialog(FileDialogType)

解説

ダイアログ画面を表すFileDialogオブジェクトを取得する。

引数

FileDialogType：ダイアログ画面の種類を指定する。

設定値	内容
msoFileDialogFolderPicker	フォルダを選択する
msoFileDialogFilePicker	ファイルを選択する
msoFileDialogOpen	ファイルを開く
msoFileDialogSaveAs	ファイルを保存する

例

ファイルを開くダイアログボックスを使用する場合

With Application.FileDialog(msoFileDialogOpen)

If .Show = True Then

.Execute

End If

End With

[FileDialog]Filtersプロパティ

構文	Application.FileDialog(FileDialogType).Filters
解説	ダイアログボックスの「ファイルの種類」で選択できるファイルのパターンを表すFileDialogFiltersコレクションを返す。
例	With Application.FileDialog(msoFileDialogOpen).Filters .Clear .Add "Excelブック", ".xls; .xlsx; .xlsm" .Add "テキストファイル", ".txt" End With

[FileDialog]Clearメソッド

構文	Application.FileDialog(FileDialogType).Filters.Clear
解説	ダイアログボックスの「ファイルの種類」にあらかじめ用意されているすべてのパターンをクリアする。
解説
例	「ファイルの種類」をクリア
例	With Application.FileDialog(msoFileDialogOpen).Filters .Clear End With

[FileDialog]Addメソッド

構文	Application.FileDialog(FileDialogType).Filters.Add
解説	ダイアログボックスの「ファイルの種類」に、新しいパターンを追加する。
解説
例	「ファイルの種類」を追加
例	With Application.FileDialog(msoFileDialogOpen).Filters .Add "Excelブック", ".xls; .xlsx; .xlsm" .Add "テキストファイル", ".txt" End With

[FileDialog]AllowMultiSelectプロパティ

構文	Application.FileDialog(FileDialogType).AllowMultiSelect
解説	複数ファイル選択を許可するかどうかを設定する。 True：複数ファイル選択可能、False：複数ファイル選択不可能
例	複数選択を不可に設定
例	With Application.FileDialog(msoFileDialogOpen) .AllowMultiSelect = False End With

[FileDialog]Showメソッド

構文	FileDialog.Show
解説	ダイアログ画面を表示し、画面でクリックしたボタンに対応する戻り値を取得する。「開く」ボタンまたは「保存」ボタンをクリックすると-1（True）、「キャンセル」ボタンをクリックすると0（False）が返る。
例	ダイアログボックスで「開く」ボタンをクリックした場合、ファイルを開く。
例	With Application.FileDialog(msoFileDialogOpen) If .Show = True Then .Execute End If End With

[FileDialog]Executeメソッド

構文	Application.FileDialog(FileDialogType).Execute
解説	ダイアログ画面で選択したファイルを開いたり、保存を実行したりする。
例	ダイアログボックスで「開く」ボタンをクリックした場合、ファイルを開く。
例	With Application.FileDialog(msoFileDialogOpen) If .Show = True Then .Execute End If End With