‘批量遍歷文件夾下某類文件，并統計編號 Sub OpenAndClose()Dim MyFile As StringDim s As StringDim count As IntegerMyFile = Dir("d:\data\" & "*.csv")'讀入文件夾中第一個.xlsx文件count = count + 1 '記錄文件的個數s = s & count & "、" & MyFileDo While MyFile <> " "MyFile = Dir '第二次讀入的時候不用寫參數If MyFile = "" ThenExit Do '當myfile為空時候說明已經遍歷完了，推出do,否則要重新運行一遍End Ifcount = count + 1If count Mod 2 <> 1 Thens = s & vbTab & count & "、" & MyFileElses = s & vbCrLf & count & "、" & MyFileEnd IfLoopDebug.Print s End Sub‘遍歷每個文件，并且修改文件，先將文件的名字存在數組中，然后通過數組遍歷打開每個文件，修改，再關閉文件~Sub OpenCloseArray()Dim MyFile As StringDim Arr(100) As StringDim count As IntegerMyFile = Dir("D:\data\data2\" & "*.xlsx")count = count + 1Arr(count) = MyFileDo While MyFile <> ""MyFile = DirIf MyFile = "" ThenExit DoEnd Ifcount = count + 1Arr(count) = MyFile '將文件的名字存在數組中LoopFor i = 1 To countWorkbooks.Open Filename:="d:\data\data2\" & Arr(i) '循環打開Excel文件Sheet1.Cells(2, 2) = "alex_bn_lee" '修改打開文件的內容ActiveWorkbook.Close savechanges = True '關閉打開的文件Next ‘要是想要修改每個工作簿的內容可以這樣遍歷一下，顯示將文件夾中的工作簿的名字存到’一個字符串數組中，然后在用For...Next語句遍歷‘遍歷某個文件夾中的所有文件（*.*) ’注意：遍歷的時候，順序完全是按照文件名的順序排的，而不是按照文件夾中文件的順序~ Sub dlkfjdl()Dim MyFile As StringDim count As Integercount = 1MyFile = Dir("d:\data\*.*")Debug.Print "1、" & MyFileDo While MyFile <> ""count = count + 1MyFile = DirIf MyFile = "" Then Exit DoDebug.Print count & "、" & MyFileLoop End Sub

　　

轉載于:https://www.cnblogs.com/medik/p/10165600.html

總結

以上是生活随笔為你收集整理的VBA遍历文件夹下文件文件实用源码的全部內容，希望文章能夠幫你解決所遇到的問題。

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