【VBA】 다이얼로그에서 선택한 폴더의 패스를 셀에 입력한다

활성 셀에 대화 상자에서 선택한 폴더의 경로를 입력할 수 있도록 허용

Private Sub btnFldSelect_Click()
    Dim TargetRange As Range '入力対象のアクティブセル格納用
    Set TargetRange = ActiveCell 'アクティブセルを変数に格納
    Dim TargetFldName As String '選択したフォルダパス格納用

    'ダイアフォルダグ表示
    Application.FileDialog(msoFileDialogFolderPicker).Title = "パスを入力したいフォルダを選んでね" 'ダイアログタイトル
    If Application.FileDialog(msoFileDialogFolderPicker).Show = True Then 'フォルダを選んでダイアログOK押下
       TargetFldName = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1) '選択したフォルダのパスを格納
       TargetRange.Value = TargetFldName 'アクティブセルにフォルダパスを入力
    End If
End Sub

와타시 흐름 조건