遍历文件夹下所有文件并输出文件名
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 sEnd Sub