''' <summary>''' 模块：Mod_Configuration''' 逻辑：从 "Settings" 工作表读取业务参数''' </summary>Public Function FetchSetting(ByVal Key As String) As String    Dim ws As Worksheet    On Error Resume Next    Set ws = ThisWorkbook.Sheets("Settings")    On Error GoTo 0    If ws Is Nothing Then        MsgBox "系统错误：找不到 Settings 配置表！", vbCritical        End    End If    Dim cell As Range    ' 假设 A 列为键（Key），B 列为值（Value）    Set cell = ws.Columns("A").Find(What:=Key, LookAt:=xlWhole)    If Not cell Is Nothing Then        FetchSetting = cell.Offset(0, 1).Value    Else        FetchSetting = ""    End IfEnd Function

''' <summary>''' 模块：Mod_FileIO''' 功能：获取指定目录下所有符合规则的 Excel 文件路径''' </summary>Public Function GetTargetFiles(ByVal FolderPath As String, ByVal Pattern As String) As Collection    Dim col As New Collection    Dim fileName As String    ' 补全路径结尾的斜杠    If Right(FolderPath, 1) <> "\" Then FolderPath = FolderPath & "\"    ' 使用 Dir 函数进行模糊匹配（如 *.xlsx）    fileName = Dir(FolderPath & Pattern)    Do While fileName <> ""        ' 排除本项目自身，防止逻辑死循环        If fileName <> ThisWorkbook.Name Then            col.Add FolderPath & fileName        End If        fileName = Dir()    Loop    Set GetTargetFiles = colEnd Function

''' <summary>''' 模块：Mod_Processor''' 功能：打开指定文件，读取数据并写入汇总表''' </summary>Public Sub ProcessIndividualFile(ByVal FilePath As String, ByRef TargetWS As Worksheet)    Dim wbSource As Workbook    Dim wsSource As Worksheet    Dim lastRowSource As Long    Dim lastRowTarget As Long    Dim dataRange As Variant    ' 只读模式打开，确保业务数据安全    Set wbSource = Workbooks.Open(Filename:=FilePath, ReadOnly:=True, UpdateLinks:=False)    ' 默认第一个工作表，亦可通过配置表指定名称    Set wsSource = wbSource.Sheets(1)    ' 定位源数据末尾    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row    ' 只有标题行则跳过    If lastRowSource < 2 Then        wbSource.Close SaveChanges:=False        Exit Sub    End If    ' 定位汇总表末尾    lastRowTarget = TargetWS.Cells(TargetWS.Rows.Count, "A").End(xlUp).Row + 1    ' 【核心优化】：使用数组进行内存级批量读写，避免逐行 Copy    dataRange = wsSource.Range("A2:Z" & lastRowSource).Value    TargetWS.Range("A" & lastRowTarget).Resize(UBound(dataRange, 1), UBound(dataRange, 2)).Value = dataRange    ' 记录来源文件名（审计追踪的重要一步）    TargetWS.Range("AA" & lastRowTarget).Resize(UBound(dataRange, 1)).Value = wbSource.Name    wbSource.Close SaveChanges:=FalseEnd Sub

''' <summary>''' 模块：Mod_Main''' 角色：Controller (控制器)''' </summary>Public Sub MainEntry()    ' 1. 环境准备    Dim startTime As Double: startTime = Timer    Dim folderPath As String: folderPath = FetchSetting("SourcePath")    Dim filePattern As String: filePattern = FetchSetting("FilePattern") ' 如 *.xlsx    If folderPath = "" Or Dir(folderPath, vbDirectory) = "" Then        MsgBox "路径配置无效，请检查 Settings 表！", vbExclamation        Exit Sub    End If    ' 2. 性能加速    With Application        .ScreenUpdating = False        .Calculation = xlCalculationManual        .DisplayAlerts = False        .EnableEvents = False    End With    ' 3. 初始化汇总表    Dim wsMain As Worksheet: Set wsMain = ThisWorkbook.Sheets("Summary")    ' 清除旧数据，保留标题行    wsMain.Rows("2:" & wsMain.Rows.Count).ClearContents    ' 4. 执行文件遍历    Dim fileList As Collection: Set fileList = GetTargetFiles(folderPath, filePattern)    Dim item As Variant    Dim successCount As Integer: successCount = 0    On Error Resume Next ' 允许单个文件出错时继续执行    For Each item In fileList        ProcessIndividualFile CStr(item), wsMain        If Err.Number = 0 Then            successCount = successCount + 1        Else            ' 可以在此处添加日志记录逻辑            Err.Clear        End If    Next item    On Error GoTo 0    ' 5. 恢复环境并收尾    With Application        .ScreenUpdating = True        .Calculation = xlCalculationAutomatic        .DisplayAlerts = True        .EnableEvents = True    End With    ' 6. 成果汇报    Dim duration As Double: duration = Round(Timer - startTime, 2)    MsgBox "【执行报告】" & vbCrLf & _           "----------------" & vbCrLf & _           "处理完成！" & vbCrLf & _           "成功汇总文件：" & successCount & " 个" & vbCrLf & _           "总耗时：" & duration & " 秒", vbInformationEnd Sub