Excel VBA - ファイルの一覧を出力する

Excel VBA  で特定のディレクトリのファイルリストを出力する方法を説明します。
■ 現在のディレクトリで、Excel 2007/2010 (*.xlsx) ファイルのリストを作成します。結果はイミディエイトウィンドウに出力します。

Dim sFileName As String
sFileName = Dir("*.xlsx", vbNormal)
Do While True
  If sFileName = "" Then Exit Do
  Debug.Print sFileName
  sFileName = Dir()
loop