忘れぬうちに

いきなりやめる一週間前に面倒くさい仕事頼まれた。
フォルダにエクセルファイルでまとめたデータを必要なデータをとって
まとめてくれだと。その時に役に立つマクロを下記に記載しとく。

Sub Dir関数でフォルダ一覧()

Dim strPattern As String, strFolder As String
strPattern = "C:\Users\USR17181\Desktop\temp"

strFolder = Dir(strPattern, vbDirectory)

Do While Len(strFolder) > 0

Debug.Print strFolder



strFolder = Dir()

Loop

End Sub