用excel VBA语言实现打开不同文件夹里的excel文件内部指定区域的数据，汇总到新的工作表中

在Excel VBA中，你可以使用`FileSystemObject`来遍历特定文件夹内的Excel文件，并利用`Sheets`对象和`Range`对象来获取和操作数据。以下是一个简单的步骤说明：

1. 首先，在VBA编辑器中插入一个新的模块（Module），这将是编写宏的地方。

2. 导入需要的库：

Imports Microsoft Scripting.FileSystemObject

3. 定义变量存储路径、目标工作表和范围，以及新建的工作簿对象：

Dim fso As FileSystemObject
Dim folderPath As String
Dim targetSheetName As String
Dim sourceRange As Range
Dim wsTarget As Worksheet
Dim newWorkbook As Workbook
folderPath = "C:\Your\Folder\Path" ' 替换为你想要查找的文件夹路径
targetSheetName = "Sheet1" ' 指定汇总到的新工作表名称

4. 创建`FileSystemObject`实例并设置文件夹：

Set fso = New FileSystemObject
Set folder = fso.GetFolder(folderPath)

5. 使用`Files`属性获取文件夹下的所有`.xls`或`.xlsx`文件，然后循环处理每个文件：

For Each file In folder.Files
    If Right(file.Name, 4) = ".xls" Or Right(file.Name, 5) = ".xlsx" Then
        Set newWorkbook = Workbooks.Open(file.Path)
        
        ' 这里假设所有的Excel文件都有相同的源数据范围
        Set sourceRange = newWorkbook.Sheets("Sheet1").Range("A1:C10") ' 修改为实际范围
        
        ' 将数据复制到新工作簿的指定工作表
        wsTarget = newWorkbook.Worksheets.Add(After:=newWorkbook.Worksheets(newWorkbook.Worksheets.Count))
        wsTarget.Name = targetSheetName ' 设置新工作表名称
        sourceRange.Copy wsTarget.Range("A1")
    End If
Next file

6. 关闭不需要的工作簿：

For Each wb In Application.Workbooks
If Not wb Is ThisWorkbook Then
wb.Close SaveChanges:=False
End If
Next wb

7. 最后记得保存你的工作簿：

ThisWorkbook.Save