Excel VBA遍历文件

休息日，无聊的上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
    Next
End 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()
Loop
End Sub

总结，编程思想都OO化了，搞的人总想着有什么对象去解决问题，孰不知OO不是全部，它也只不过是结构化的封装。就以上两种实现而言，我认为Dir函数更加效率，因为它是内置的，无需去做外部引用，而且它可以使用通配符。另外，FSO模型包含在脚本类型库 (Scrrun.dll) 中，如果电脑中没有装载脚本类型库，则FSO不可用，但不可否认，FSO模型提供了一套完备的文件处理结构，使得编码更加简单直观。

转载于:https://www.cnblogs.com/Nina-piaoye/archive/2013/04/09/3010280.html

Excel VBA遍历文件相关推荐

Excel VBA 移动文件和文件夹
之前有博主的方法,然后觉得可以1和2结合一下,所以试试看. 先放上Excel VBA 移动文件和文件夹的方法.等我研究一下再放新方法.学习学习~ 1.移动指定文件: Public Sub 移动文件() ...
VBA遍历文件夹下文件文件实用源码
'批量遍历文件夹下某类文件,并统计编号 Sub OpenAndClose()Dim MyFile As StringDim s As StringDim count As IntegerMyFile ...
VBA遍历文件夹及子文件夹中所有文件
VBA中遍历文件方法很多,但很多方法又有局限,DIR的方法很难遍历子文件夹文件.FileSearch方法在office 2007中MS把Application对象FileSearch方法删除了.所有我 ...
Excel VBA选择文件、高容错性地打开文件
VBA选择文件 Sub SelectFile() Dim FileName As Variant '打开文件对话框返回的文件名,是一个全路径文件名,其值也可能是False,因此类型为Variant D ...
用Excel VBA选择文件、打开文件
介绍如何用VBA选择文件和用VBA打开文件. 点击打开文件会弹出一个windows文件打开对话框,在EXCEL中VBA怎么实现这个功能? Sub SelectFile() Dim FileNa ...
vba单元格批量赋值,EXCEL——VBA对文件夹下所有表格的特定单元格赋值
image 不知道大家有没有遇到过这种情况,一个文件夹下有很多Excel文件,每个文件里面一个或多个表都有一个同样的单元格,比如自己的名字啊.生日啊之类的.这个时候如果要改动这个单元格的内容我们需要一 ...
word vba遍历文件，打开另外word修改保存
处理完数个word,回头一看,才发现前面代码把一个符号搞反了... 把大于等于与小于等于两符号,颠倒了位置...晕. 马上用vba处理一下. 把这些word放在D盘根目录.逐个遍历并打开,逐一修改保存 ...
Excel VBA 批量操作文件，FileSystemObject 方式，避免文件名中的奇怪字符
之前使用使用Dir批量获取指定文件夹下的excel文件的时候,出现了问题. 出现的问题是:文件名中的空格被替换成了**?**,导致打开文件的时候出现无法找到的情况. 使用FileSystemObjec ...
Excel VBA - 操作文件
操作文件有以下几个功能. 1. 获取文件的路径:当前的文件路径. 函数:thisworkbook.path Dim ipath, iname As String ipath = ThisWorkboo ...

Excel VBA遍历文件

Excel VBA遍历文件相关推荐

最新文章

热门文章