Excel使用Vba读取文件夹下所有文件.docxVIP

Excel使用Vba读取文件夹下所有文件 最近使用VBA编程，要用到一个功能，使得Excel能够读取指定文件夹下的所有文件名称。 使用的是Excel2010版本，但是在Excel2003版本中能够使用的FileSearch在Excel2010版中会出错，因此不得不另找其它方法，下面介绍三种方法，在Excel单元格中显示特定目录下的文件名称（文件大小，日期时间等），也可以自行修改符合自己的使用要求。在Excel2010和Excel2003版本中均测试过可行。我工作中使用繁体，第三种方法使用的是繁体，所以在简体系统下会乱码，这个不会妨碍程序运行，gongxi1是我设置的一个窗体，可忽略。第三种不仅仅能导入特定文件下的所有文件，也可以导入文件夹下的文件夹文件。 第一种： Sub testit() Dim k As Variant Dim m As Variant m = 1 ????myvar = FileList(C:\Users\ownding\SkyDrive\文档\工作事項) ????????Exit Function ????End If ????Do ????????sHldr = Dir ????????If sHldr = Then Exit Do ????????sTemp = sTemp | sHldr ????Loop ????FileList = Spli