VBA:[Tips]フォルダ選択アラートを出す - UncodeProduction

なにがどう

ユーザがフォルダを選択するためのウィンドウを表示させ、フォルダを選択させる。
また、選択したフォルダ名をセルに出力する

どう

Sub getFolder()
With Application.FileDialog(msoFileDialogFolderPicker)

       If .Show = True Then
           Range("出力セル") = .SelectedItems(1)
       End If
   End With

End Sub