フォルダを選択するマクロ(コピペで使えるよ)

フォルダ選択画面をだして、フォルダを選択させるマクロです。

SelectFolderとうSub関数を作って、ボタンに紐づけます。
ソースは以下な感じです。FileDialogという関数を使います

Sub SelectFolder()
Dim tw As String
Dim ts As String
tw = ThisWorkbook.Name
ts = “Sheet1”
With Application.FileDialog(msoFileDialogFolderPicker)
  If .Show = True Then
   Workbooks(twb).Sheets(tsh).Cells(2, 3) = .SelectedItems(1)
  End If
End With
End Sub

作成イメージは以下です。ボタンを押すと指定したセルにフォルダパスが書き込まれます。

シェアする

  • このエントリーをはてなブックマークに追加

フォローする