VBA遍历文件夹下文件文件实用源码
Posted medik
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了VBA遍历文件夹下文件文件实用源码相关的知识,希望对你有一定的参考价值。
‘批量遍历文件夹下某类文件,并统计编号 Sub OpenAndClose() Dim MyFile As String Dim s As String Dim count As Integer MyFile = Dir("d:data" & "*.csv") ‘读入文件夹中第一个.xlsx文件 count = count + 1 ‘记录文件的个数 s = s & count & "、" & MyFile Do While MyFile <> " " MyFile = Dir ‘第二次读入的时候不用写参数 If MyFile = "" Then Exit Do ‘当myfile为空时候说明已经遍历完了,推出do,否则要重新运行一遍 End If count = count + 1 If count Mod 2 <> 1 Then s = s & vbTab & count & "、" & MyFile Else s = s & vbCrLf & count & "、" & MyFile End If Loop Debug.Print s End Sub ‘遍历每个文件,并且修改文件,先将文件的名字存在数组中,然后通过数组遍历打开每个文件,修改,再关闭文件~ Sub OpenCloseArray() Dim MyFile As String Dim Arr(100) As String Dim count As Integer MyFile = Dir("D:datadata2" & "*.xlsx") count = count + 1 Arr(count) = MyFile Do While MyFile <> "" MyFile = Dir If MyFile = "" Then Exit Do End If count = count + 1 Arr(count) = MyFile ‘将文件的名字存在数组中 Loop For i = 1 To count Workbooks.Open Filename:="d:datadata2" & Arr(i) ‘循环打开Excel文件 Sheet1.Cells(2, 2) = "alex_bn_lee" ‘修改打开文件的内容 ActiveWorkbook.Close savechanges = True ‘关闭打开的文件 Next ‘要是想要修改每个工作簿的内容可以这样遍历一下,显示将文件夹中的工作簿的名字存到’一个字符串数组中,然后在用For...Next语句遍历 ‘遍历某个文件夹中的所有文件(*.*) ’注意:遍历的时候,顺序完全是按照文件名的顺序排的,而不是按照文件夹中文件的顺序~ Sub dlkfjdl() Dim MyFile As String Dim count As Integer count = 1 MyFile = Dir("d:data*.*") Debug.Print "1、" & MyFile Do While MyFile <> "" count = count + 1 MyFile = Dir If MyFile = "" Then Exit Do Debug.Print count & "、" & MyFile Loop End Sub
以上是关于VBA遍历文件夹下文件文件实用源码的主要内容,如果未能解决你的问题,请参考以下文章
VBA编程,遍历文件夹下的excel表,对每个excel表遍历做一些操作
如何用excel vba按关键字选择性的遍历文件夹搜索文件?