VBA--遍历文件夹下所有文件--模板

遍历文件夹下所有文件并输出文件名

Sub OpenAndClose()
    Dim MyFile As String
    Dim Arr(1000) As String
    Dim count As Integer
    MyFile = Dir("C:\Users\mikowoo\Desktop\EPSreport\result\" & "*.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:="C:\Users\mikowoo\Desktop\EPSreport\result\"&Arr(i)
        'Cells(1,1)="alex bn lee'
        Debug.Print Arr(i)
        'ActiveWorkbook.Close savechanges=True '关闭打开的文件
    Next
    Debug.Print s

End Sub