‘批量遍歷文件夾下某類(lèi)文件，并統(tǒng)計(jì)編號(hào) Sub OpenAndClose()Dim MyFile As StringDim s As StringDim count As IntegerMyFile = Dir("d:\data\" & "*.csv")'讀入文件夾中第一個(gè).xlsx文件count = count + 1 '記錄文件的個(gè)數(shù)s = s & count & "、" & MyFileDo While MyFile <> " "MyFile = Dir '第二次讀入的時(shí)候不用寫(xiě)參數(shù)If MyFile = "" ThenExit Do '當(dāng)myfile為空時(shí)候說(shuō)明已經(jīng)遍歷完了，推出do,否則要重新運(yùn)行一遍End Ifcount = count + 1If count Mod 2 <> 1 Thens = s & vbTab & count & "、" & MyFileElses = s & vbCrLf & count & "、" & MyFileEnd IfLoopDebug.Print s End Sub‘遍歷每個(gè)文件，并且修改文件，先將文件的名字存在數(shù)組中，然后通過(guò)數(shù)組遍歷打開(kāi)每個(gè)文件，修改，再關(guān)閉文件~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 '將文件的名字存在數(shù)組中LoopFor i = 1 To countWorkbooks.Open Filename:="d:\data\data2\" & Arr(i) '循環(huán)打開(kāi)Excel文件Sheet1.Cells(2, 2) = "alex_bn_lee" '修改打開(kāi)文件的內(nèi)容ActiveWorkbook.Close savechanges = True '關(guān)閉打開(kāi)的文件Next ‘要是想要修改每個(gè)工作簿的內(nèi)容可以這樣遍歷一下，顯示將文件夾中的工作簿的名字存到’一個(gè)字符串?dāng)?shù)組中，然后在用For...Next語(yǔ)句遍歷‘遍歷某個(gè)文件夾中的所有文件（*.*) ’注意：遍歷的時(shí)候，順序完全是按照文件名的順序排的，而不是按照文件夾中文件的順序~ 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

　　

轉(zhuǎn)載于:https://www.cnblogs.com/medik/p/10165600.html

總結(jié)

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

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。