下面这段代码可以遍历指定文件夹下所有xls文件.docVIP

下面这段代码可以遍历指定文件夹下所有xls文件，但：1.文件夹下的xls文件可以返回到工A列，但子文件夹下的xls文件就不行2.想同时在B列后能返回xls文件名下的工作表名称Private Sub CommandButton1_Click()Dim fn As StringDim r As Longfn =Dir(ThisWorkbook.Path \*.xls)While fn r = r + 1Cells(r, 1) = fnfn = Dir()WendEnd Sub Sub 汇总() Dim sh As Worksheet, FileName As String, rng As Range, sht As Worksheet Set sht = ActiveSheet FileName = Dir(ThisWorkbook.Path \*.xls) 待汇总文件 Do If FileName ThisW Then 如果当前文件不是汇部表，则处理此文件 Set rng = sht.Range(A5).End(xlDown) 确定合计最上方的空单元格 If rng = 合计 Then 如果当前单元格是“合计”项 rng.