高分求救，我想弄个VBA的宏，取得目录下的所有文件名，该怎么弄？

[xbyue]

用EXCEL的宏，请教各位大侠！！

谢过！

[EdwardZhou]

没有报错，证明代码被正常运行了。

请注意 List.xls 文件生成的位置，或者可以指定这个文件的生成位置，比如：
shell "command.com /c dir/b c:\帐目\*.xls > C:\List.xls"

[changechange]

直接用dir函数就可以了

或者直接用api来做

http://access911.net/index.asp?board=4&mode=3&recordid=74FAB21E13DC

[icansaymyabc]

Sub aaa()
p = "C:\WINDOWS\*"
a = Dir(p)
Do While a <> ""
Debug.Print a
a = Dir()
DoEvents
Loop
End Sub

[EdwardZhou]

一个“合理偷懒”的方法:
http://club.excelhome.net/dispbbs.asp?BoardID=2&replyID=32924&id=6455&star=1&skin=0

[xbyue]

好像没有反应哦

[HawaiiLeo]

VBA中应该有FileSystemObject对象吧，用这个对象来实现吧。

C:\Program Files\Microsoft Office\Office\Samples\SAMPLES.XLS