求个EXCEL多文件求和的方法 谢谢!!!

Question

有N个文件 a,b,c,d,e..... 均存放在同一目录下,文件名无规律,每个文件中含一个sheet,
其中一列(E列)全是数值现在想做的是 分别求上面所有文件中E列的和存放在文件A中,具体如下:A列             B列
a文件名         a文件E列的和
b文件名         b文件E列的和
c文件名         c文件E列的和
.               .
.               .
.               ,
.               .请问这个应该怎么做呢?

Answer 1

循环查找文件，分别打开，求和，放在A、B列，思路简单，做起来麻烦，要用VBA编程吗？

Answer 2

新建一Excel表，与"a.xls","b.xls"等不要放在一起，sheet1中用以下代码，把fPath设为a.xls所在路径。
Private Sub Worksheet_Activate()
    Dim fPath As String, sName As String, n As Integer
    Dim wk As Workbook
    
    Application.ScreenUpdating = False
    fPath = "E:\"
    sName = Dir(fPath & "*.xls")
    With ThisWorkbook.ActiveSheet
        Do Until sName = ""
            n = n + 1
            Set wk = Workbooks.Open(fPath & sName)
                .Range("A" & n) = sName
                .Range("B" & n) = Application.WorksheetFunction.Sum(ActiveSheet.Range("E:E"))
            wk.Close
            sName = Dir()
        Loop
    End With
    Application.ScreenUpdating = True
End Sub