Dim Dic As Object Sub GetFileName() Dim FolderPath As String Set Dic = CreateObject("Scripting.Dictionary") FolderPath = ThisWorkbook.Path & Application.PathSeparator & "2011年报表" RecursionFolder FolderPath Set Rng = ThisWorkboo…