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遍历文件夹下文件文件实用源码的主要内容,如果未能解决你的问题,请参考以下文章

(实用篇)PHP不用递归遍历目录下所有文件的代码

VBA编程,遍历文件夹下的excel表,对每个excel表遍历做一些操作

如何用excel vba按关键字选择性的遍历文件夹搜索文件?

VBA学习笔记--遍历所有文件夹和文件

访问中的 Vba 代码循环遍历文件夹中的所有 excel 文件,打开、保存和关闭它们

c#怎么遍历文件夹下面的所有文件