汇总不同工作薄且工作薄中都多张表

huanglong355

If FileName <> ThisWorkbook.Name Then   
            For i = 1 To Worksheets.Count      为什么此句行不通，我想让VBA自动统计表格数，然后汇总到总表中，如果需要修改 应该怎么改？
            Erow = Range("A1").CurrentRegion.Rows.Count + 1   
            fn = ThisWorkbook.Path & "\" & FileName
            Set wb = GetObject(fn)   
            Set sht = wb.Worksheets(i)   
             arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8))
             Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
            wb.Close False
        Next i

当每个工作薄中工作表是一致的  比如每个工作薄都是三个表，for i = 1 to 3  就行，但很多时候每个工作薄中工作表的数目是不等的。这种情况该怎么写代码，请老师帮忙解答。