VBA ファイル選択ダイアログを表示時にフォルダのパスを指定する

  • 作成日 2022.06.29
  • vba
VBA ファイル選択ダイアログを表示時にフォルダのパスを指定する

VBAで、ファイル選択ダイアログを表示時にフォルダのパスを指定するコードを記述してます。

環境

  • OS windows10 64bit

ファイル選択ダイアログを表示時にフォルダのパスを指定

ファイル選択ダイアログを表示時にフォルダのパスを指定するには、「ChDir」を使用します。

適当なボタンを用意して、ファイル選択ダイアログ表示時にフォルダのパスを「C:\hoge」に設定した
ソースコードを記述します。

Private Sub CommandButton1_Click()

    Dim strFileName As String
    
    ChDir "C:\hoge"

    ' ファイル選択ダイアログ表示
    strFileName = Application.GetOpenFilename( _
                        FileFilter:="エクセルファイル,*.xls;*.xlsx" _
                        , Title:="title" _
                        , MultiSelect:=False _
                    )
    ' オープン
    If strFileName <> "False" Then
        Workbooks.Open Filename:=strFileName
    Else
        MsgBox "キャンセル"
    End If    
    
End Sub

実行してみます。

指定されたパスが表示されていることが確認できます。