こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

-広告-

解決済みの質問

マクロで質問です

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

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

投稿日時 - 2016-01-13 11:00:15

QNo.9110579

すぐに回答ほしいです

質問者が選んだベストアンサー

こんにちは

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 というプロシージャ名は変更した方がいいかも。

投稿日時 - 2016-01-13 11:12:21

お礼

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

投稿日時 - 2016-01-14 08:03:38

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

-広告-
-広告-

回答(1)

-広告-
-広告-
-広告-
-広告-