EXCEL中如何一一处理某一路径下的各个文件

[hello1998]

假设目录d:/temp 有各个需要汇总的待处理文件．文件名有一定的规律．如 lianruo-xxx.xls
宏所在的文件设为　a.xls .　（简单起见，可认为在同一目录下）

我的问题是，如何在宏中，把该目录中的所有文件名放到一个数组中，好一一进行判断处理．

我的想法是，在宏中先调用系统命令 dir，生成一个文件名清单文件，如 filename.txt　（用 dir /s > filename.txt),　再在宏中把这个 filename.txt　文件打开，把文件内容一条一条的写入一个数组．
那么在宏中语句怎么写，才能调用操作系统命令，才能把一个文本文件的内容一行一行的读入．

或者大家有什么可行的做法吗？　

[klbt]

关注，帮你顶。

[xamcsdn2]

Dim fso, fldr
Set fso = CreateObject("Scripting.FileSystemObject")
set fold=fso.GetFolder("c:\")
for each xx in fold.files '列出c:\下所有文件
Msgbox(xx.DateLastModified) 'xx为文件对象
next

[kurtho]

工作表不就是储存数据的最佳场所吗？完全不用外部文件的

[michael007]

我借用了Kurtho的代码，使用绝对OK!我不懂Kurtho的代码的！！！！！正学习中。谢谢

Private Sub CommandButton1_Click()
Dim fso, fldr, i, Ddd
'Ddd = InputBox("Please input the path such as c:\temp\")
Ddd="d:\temp\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fold = fso.GetFolder(Ddd)
CommandButton1.Caption = Filelist
i = 1
For Each xx In fold.Files '列出d:\temp\下所有文件

Cells(i, 1) = Ddd & xx
i = i + 1
Next
MsgBox ("OK!!!!") 'xx是文件對象
End Sub

[kurtho]

并不是我的代码，误会了，呵呵

[xamcsdn2]

？

[willzhang]

dim FilePath
FilePath = Application.GetOpenFilename("Excel File,*.xls", , "请选择文件(可多选)", , True)

这样就可以获取文件名级路径了啊,而且不用在程序里写绝对路径
FilePaht就是一个数组