マクロで質問です

質問

下記のようなマクロで現在はマクロコード内にフォルダのアドレスを書いていますが
これをダイアログを開いてフォルダを選択できるようにするには
どうすればよいでしょうか？

Sub Sample10()
   Call FileSearch("V:\個人\飯塚\マクロ\RawData2")
End Sub

Sub FileSearch(Path As String)
Application.ScreenUpdating = False
   Dim FSO As Object, Folder As Variant, File As Variant
   Set FSO = CreateObject("Scripting.FileSystemObject")
   For Each Folder In FSO.GetFolder(Path).SubFolders
       Call FileSearch(Folder.Path)
   Next Folder
   For Each File In FSO.GetFolder(Path).Files
       If File.Name = "RawData" Then
Workbooks.Open fld & File, Format:=2
Range("B1:B180").Select
Application.CutCopyMode = False
Selection.Copy
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True

Range("f2").Select
ActiveSheet.Paste
ActiveSheet.Next.Activate

End If
   Next File

End Sub

回答No.1

ushi2015 · ベストアンサー

こんにちは

Sub Sample10()
　　Dim p As Variant
　　With Application.FileDialog(msoFileDialogFolderPicker)
　　　　If .Show = True Then
　　　　　　p = .SelectedItems(1)
　　　　End If
　　End With
　　If IsEmpty(p) Then Exit Sub
　　Call FileSearch(p)
End Sub

別件ですが、 FileSearch というプロシージャ名は変更した方がいいかも。

お礼

ありがとうございます。
頂いたマクロで目的が達成できました！
本当にありがとうございました。