请高手解决一下， 同一个文件夹下 多个内容格式相同工作簿 的数据求和汇总 用vba怎么实现。谢谢...

Sub aa(Fn As Variant)
Dim WB As Workbook
Dim i As Integer

Set WB = Workbooks.Open(Fn)
    With ThisWorkbook.Sheets('汇总') '假设汇总工作簿将数据汇总到“汇总”工作表
        .Range('a1' & i) = .range('a1')+ WB.Sheets(1).Range('a1') '本工作簿（汇总工作簿）的“汇总”工作表的A1累加目标工作簿的第一个工作表的A1

        .Range('b1' & i) = .range('b1')+ WB.Sheets(1).Range('b1')

        ...................
           End With
WB.Close False
End Sub
Sub bb()
Fn = Application.GetOpenFilename('Excel文件(*.xls), *.xls', , '选择文件', , True)
Application.ScreenUpdating = False
For i = 1 To UBound(Fn)
Call aa(Fn(i))
Next
MsgBox '共汇总' & i - 1 & '个工作簿'
End Sub

运行bb，则弹出选择工作簿的对话框，鼠标配合shift和ctrl一次将需要汇总的工作簿全部选中，则自动完成汇总