FileDialogオブジェクトを利用したフォルダ選択ダイアログを作成する
FileDialogを利用して、初期フォルダを設定したフォルダ選択ダイアログを作成します。
関数にしていますので、そのままコピーして利用することができます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Function フォルダを選択する(strFolder As String) If Right(strFolder, 1) <> "\" Then strFolder = strFolder & "\" End If With Application.FileDialog(msoFileDialogFolderPicker) .InitialFileName = strFolder ' フォルダの初期値を設定 .Title = "フォルダを選択" If .Show = True Then フォルダを選択する = .SelectedItems(1) End If End With End Function |
関数の説明
strFolder:初期設定するフォルダを指定します。
使用例
C2セルにフォルダが入っています。
C2セルのフォルダを初期設定として、「フォルダを選択する」関数に渡しています。
フォルダを選択した場合、C2セルに選択したフォルダを代入します。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Sub フォルダを選択する_Click() Dim strFolder As String Dim strGetFolder As String strFolder = Range("c2") strGetFolder = フォルダを選択する(strFolder) If strGetFolder <> "" Then Range("c2") = strGetFolder End If End Sub |