vbaでフォルダ内ファイルの処理

質問

フォルダに複数のXMLファイルがあります。
そのXMLファイル一つ一つに対して

まず1個目のXMLファイルを取り込む→処理する→終わったら2個目のXMLファイルを取り込む→処理・・・

という作業をフォルダ内にあるすべてのXMLファイルに対して行いたいのですが
なにかいい方法はありますでしょうか？

（処理の内容はXMLファイルの中にある<集計>○○○</集計>の○○○を取り出すという処理をします）

回答No.1

nda23

Dir関数を使うのでは？
Dim パス As String
Dim 名前 As String

パス = "C:\hoge\"
名前 = Dir(パス & "*.xml")
Do Until 名前 = ""
　　'フルパスを形成して処理に渡す
　　処理 パス & 名前
　　'次のファイル名を取得する
　　名前 = Dir
Loop