如何读取文件夹中的所有Execl文件（100），急急急急

Question

在一个文件夹中，放了若干个Excel文件，我想依次读取文件中的内容，请问该如何写。

Answer 1

用dir函数查找文件名，再判断后缀名是否是.xls，是则打开读取，不是则继续。如此循环到文件名为空。
查找文件可参考http://www.xjonline.com.cn/computer/ruanjian/program2.htm，当然你用不着它写的那么复杂：
filename=Dir(path)
′获得当前目录下文件名和数目
Do While Len(filename)
   if right(filename,4)=".xls" then     '是否excel文件，是则打开读取
      call ReadExel(filename)     '写个子过程读Excel文件,具体看你自己要怎么做。
   end if
   filename=Dir
Loop
读excel文件在论坛上到处都有，随便找篇看看。