こんにちは。
VBAを使うことが、頻繁ではないですが、ちょくちょくあり、
その都度「コードってこれで良かったっけ？」「どう書くんだっけ？」
となることが、しばしば、、、あります。
その時その時で調べて、確認して、コードを書いてとしていたので、
自分が使いやすいように、コードをコピペで使えるようにまとめます。
以前から、書こうと思いながらようやくです。
内容
フォルダを選択ダイヤログを起動し、選択したフォルダパスを返す関数について記載します。
コード
以下にコードを記載します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Function fSelecteFolder() As String With Application.FileDialog(msoFileDialogFolderPicker) '初期表示フォルダの設定 '.InitialFileName = "C:\Users\Guest\test\" If .Show = -1 Then 'ファイルダイアログ表示 'フォルダを選択し、 [ OK ] ボタンが押された場合の処理 '関数の戻り値をセット fSelecteFolder = vbLf & .SelectedItems(1) fSelecteFolder = Right(fSelecteFolder, Len(fSelecteFolder) - 1) Else ' [ キャンセル ] ボタンが押された場合の処理 MsgBox "フォルダ選択がキャンセルされました。", vbExclamation End End If End With End Function |
使い方
使用したい場所で、下記のように記載します。
ここで、strFolderPath はその時に合わせて自由に変更します。
|
1 2 3 |
Dim strFolderPath As String strFolderPath = fSelecteFolder() |
実行すると、以下のようにフォルダ選択ダイヤログが立ち上がります。
1 Comment