如何在一个工作簿中使用宏来读取和分析多个工作簿中的数据- Excel VBA

Sub ReadAndAnalyzeData()
    Dim wb As Workbook
    Dim ws As Worksheet
    Dim dataRange As Range
    Dim filePath As String
    Dim fileName As String
    
    ' 设置文件路径和文件名
    filePath = "C:\Path\To\Files\"
    
    ' 遍历文件夹中的所有工作簿
    fileName = Dir(filePath & "*.xlsx")
    Do While fileName <> ""
        ' 打开工作簿
        Set wb = Workbooks.Open(filePath & fileName)
        
        ' 遍历工作簿中的所有工作表
        For Each ws In wb.Worksheets
            ' 获取数据范围
            Set dataRange = ws.UsedRange
            
            ' 在这里进行数据分析的操作，可以根据需求进行相应的处理
            
            ' 示例：计算数据范围中的总和并输出到第一列的下一行
            ws.Cells(dataRange.Rows.Count + 2, 1).Value = WorksheetFunction.Sum(dataRange)
        Next ws
        
        ' 关闭工作簿
        wb.Close SaveChanges:=False
        
        ' 继续下一个文件
        fileName = Dir
    Loop
End Sub