怎么访问指定文件夹下的所有excel文件

如何访问指定文件夹下的所有excel文件？
如何访问指定文件夹下的所有excel文件？

[解决办法]
f = Dir(p & "\*.xls ") 'p是指定文件夹
Do While f <> " "
f = Dir()
debug.print f
Loop