做家装施工的网站,温州注册网络公司哪家强,东莞网络公司有哪些,互联网备案服务平台休息日#xff0c;无聊的上Excel Home看看有啥东东可学习#xff0c;有啥问题能帮帮忙。看到很多帖子都是求助遍历特定文件夹下文件的实现方法。有朋友说03版Excel有FileSearch对象可以遍历文件夹下文件#xff0c;07版中没有了FileSearch对象#xff0c;不知如何遍历文件。…休息日无聊的上Excel Home看看有啥东东可学习有啥问题能帮帮忙。看到很多帖子都是求助遍历特定文件夹下文件的实现方法。有朋友说03版Excel有FileSearch对象可以遍历文件夹下文件07版中没有了FileSearch对象不知如何遍历文件。我想03版能做的事07版肯定能做啊要不然不是倒退于是搜寻一番还真是取消了FileSearch对象啊不过还有Scripting.FileSystemObject可以用实现如下 Sub main() Dim fs, fold, fls, fl Set fs CreateObject(Scripting.FileSystemObject) Set fold fs.getfolder(folderpath) folderpath指文件夹路径string型实践中自行替换 Set fls fold.Files For Each fl In fls If InStr(fl.Name, .xls) 0 Then 避免打开非Excel文件 Workbooks.Open fl.Path 打开文件 statements 处理代码 Workbooks(fl.Name).Close Savechanges:True 关闭文件 End If NextEnd Sub 而后又发现Excel VBA内置的Dir()函数同样也可以实现如下 Sub main() Dim nm As String nm Dir(folderpath *.xls*) folderpath指文件夹路径string型实践中自行替换 Do While Len(nm) 0 Workbooks.Open folderpath nm statements 处理代码 Workbooks(nm).Close Savechanges:True nm Dir() LoopEnd Sub 总结编程思想都OO化了搞的人总想着有什么对象去解决问题孰不知OO不是全部它也只不过是结构化的封装。就以上两种实现而言我认为Dir函数更加效率因为它是内置的无需去做外部引用而且它可以使用通配符。另外FSO模型包含在脚本类型库 (Scrrun.dll) 中如果电脑中没有装载脚本类型库则FSO不可用但不可否认FSO模型提供了一套完备的文件处理结构使得编码更加简单直观。转载于:https://www.cnblogs.com/Nina-piaoye/archive/2013/04/09/3010280.html
