VBA遍历文件夹下文件文件实用源码
生活随笔
收集整理的這篇文章主要介紹了
VBA遍历文件夹下文件文件实用源码
小編覺(jué)得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.
‘批量遍歷文件夾下某類(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)題。
- 上一篇: 记一篇矫正牙齿、蛀牙(烂牙)。从小保护牙
- 下一篇: 异常处理与断言