GetOpenFilenameメソッド
GetOpenFilenameメソッドは、ユーザーがファイル名を入力してファイルを選択することができる、
[ファイルを開く]ダイアログボックスを表示します。
構文
Object.GetOpenFilename(FileFilter, FilterIndex, Title, ButtonText, MultiSelect)
| Object | Applicationオブジェクトを表す変数です。 |
| FileFilter | ファイルの候補を指定する文字列(ファイルフィルタ文字列)を指定します。 ※省略すると”すべてのファイル”になります。 |
| FilterIndex | 引数FileFilterで指定したファイルフィルタ文字列の中で、規定値を何番目の値にするかを指定します。 ※省略するかファイルフィルタ文字列の数より大きい値を指定すると、最初の値が既定値となります。 |
| Title | ダイアログボックスのタイトルを指定します。※省略すると “ファイルを開く” になります。 |
| ButtonText | Macintoshのみ指定できます。 |
| MultiSelect | 複数のファイルを選択するにはTureを、1つのファイルのみ選択するのであればFalseを指定します。 既定値は False です。 |
ダイアログボックスを表示してファイルを開くサンプルコード
Public Sub Sample()
Dim File As Variant
'[ファイルを開く]ダイアログボックスを表示する
File = Application.GetOpenFilename("Excel ブック,*.xlsx")
'[キャンセル]されたときの処理
If File = "False" Then Exit Sub
'選択したファイルを開く
Workbooks.Open File
End Sub
注意点
- FileFilterはファイルフィルタ文字列とワイルドカードをペアにし、カンマ(,)で区切って指定します。
※ペアごとではなく、文字列全体を「”」で囲みます。
コメント