vba - 求和列excel vba多个外部文件迭代

Question

我有一个 VBA 代码，用于刷新指定文件夹中的所有 Excel 数据文件(每个文件中的工作表分析)(通过 Excel 中的 XL3 插件完成刷新)。它完美地工作。

Sub refresh_OGSC_data_files()

Application.ScreenUpdating = False

Dim wb As Workbook

Set FileSystemObj = CreateObject("Scripting.FileSystemObject")
Set FolderObj = FileSystemObj.GetFolder("C:\ARBEIT\Projects\ONEGSC impact     simulation\Part 2\Data\EE")

For Each fileobj In FolderObj.Files
    Set wb = Workbooks.Open(fileobj.Path)

    ActiveWorkbook.Sheets("AUX").Range("B2") = "12"
    Application.Run "XL3RefreshGrid", "Analysis!A13"

    ActiveWorkbook.Save
    ActiveWorkbook.Close
Next fileobj

End Sub

我要添加到其中的是一种功能，它将对每个文件中的列 M 求和，并将该值“记录”到外部工作簿中的单元格中 - 例如Book1，Sheet1，单元格 A1。 (对于第二个刷新的文件，它将是单元格 A2。对于第三个文件单元格 A3，依此类推，直到最后一个文件)

我试图将其插入到相同的代码中(在保存刷新的文件之前:ActiveWorkbook.Save):

Workbooks("Book1.xlsx").Sheets("Sheet1").Activate
Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1").Select
ActiveCell = WorksheetFunction.Sum(Workbooks("wb").Worksheets("Analysis").Range("m:m"))
ActiveCell.Offset(1, 0).Range("A1").Select

但是它不起作用，并且可能是完全错误的。请帮忙。

如果有任何不清楚的地方，我会尝试详细说明。

Answer 1

以下是您如何使用 wB引用打开的工作簿:

Sub refresh_OGSC_data_files()
Application.ScreenUpdating = False

    Dim wB As Workbook
    Dim SumResult As Double
    Dim OutPutRange As Range

    Set FileSystemObj = CreateObject("Scripting.FileSystemObject")
    Set FolderObj = FileSystemObj.GetFolder("C:\ARBEIT\Projects\ONEGSC impact     simulation\Part 2\Data\EE")
    Set OutPutRange = Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A3")

    For Each fileobj In FolderObj.Files

        Set wB = Workbooks.Open(fileobj.Path)

        wB.Sheets("AUX").Range("B2") = "12"
        Application.Run "XL3RefreshGrid", "Analysis!A13"

        SumResult = WorksheetFunction.Sum(wB.Sheets("Analysis").Range("M:M"))
        OutPutRange.Value = SumResult
        Set OutPutRange = OutPutRange.Offset(1, 0)
        TotalSum = TotalSum + SumResult

        wB.Save
        wB.Close
    Next fileobj

    Workbooks("Book1.xlsx").Sheets("Sheet1").Range("A1").Value = TotalSum
Application.ScreenUpdating = True
End Sub