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
実行してみます。
指定されたパスが表示されていることが確認できます。
-
前の記事
javascript エラー「ReferenceError: Can’t find variable: key」の解決方法 2022.06.29
-
次の記事
Visual Studio 2022 フォルダ内にある文字を一括で置換する 2022.06.29
コメントを書く