ファイル/フォルダー名選択 よく使う小技


スポンサーリンク

よく使うんだけど、よくわすれるファイル名/フォルダー名選択

 

ファイル名選択ダイアログ

    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 ではないので注意。

スポンサーリンク