休息日，無聊的上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遍历文件的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。