ファイル/フォルダー名選択 よく使う小技
よく使うんだけど、よくわすれるファイル名/フォルダー名選択
ファイル名選択ダイアログ
Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("CSV FILE,*.csv") Workbooks.Open OpenFileName
OpenFileName = Application.GetOpenFilename(option)
option: 表示名 , ワイルドカード
ワイルドカードは、 ; で区切ることで複数指定可能
キャンセルの場合、OpenFileName に “False” が戻される。
Dim OpenFileName As String OpenFileName = Application.GetOpenFilename("CSV FILE,*.csv") if OpenFileName<>"False" then TextBox1.value=OpenFileName End If
フォルダー名選択ダイアログ
With Application.FileDialog(msoFileDialogFolderPicker) If .Show = True Then MsgBox .SelectedItems(1) End If End With※VBE のツール → 参照設定 -> Microsoft Office 11.0 Object Library
※VBE のツール → 参照設定 -> Microsoft Office 15.0 Object Library
いずれにしても、Microsoft Office **.* Object Library を参照させなければいけない。
Microsoft Excel **.* Object Library ではないので注意。
スポンサーリンク