我想用vba在excel中实现一个功能，就是让在一个文件夹中的所有excel文件都汇总到一个新excel中...

您可以编写一个VBA宏来实现将一个文件夹中的所有Excel文件汇总到一个新的Excel文件中。以下是一个示例代码：

Sub CombineExcelFiles()
    Dim sourceFolder As String
    Dim targetWorkbook As Workbook
    Dim targetWorksheet As Worksheet
    Dim file As String
    Dim sourceWorkbook As Workbook
    Dim sourceWorksheet As Worksheet
    Dim lastRow As Long
    Dim lastColumn As Long
    Dim targetRow As Long
    Dim targetColumn As Long
    
    '设置源文件夹的路径
    sourceFolder = "C:\Excel Files\"
    
    '创建一个新的工作簿，用于存储合并后的数据
    Set targetWorkbook = Workbooks.Add
    Set targetWorksheet = targetWorkbook.Sheets(1)
    
    '循环处理源文件夹中的所有Excel文件
    file = Dir(sourceFolder & "*.xlsx")
    Do Until file = ""
        '打开源Excel文件
        Set sourceWorkbook = Workbooks.Open(sourceFolder & file)
        Set sourceWorksheet = sourceWorkbook.Sheets(1)
        
        '获取源数据的最后行和最后列
        lastRow = sourceWorksheet.Cells(Rows.Count, 1).End(xlUp).Row
        lastColumn = sourceWorksheet.Cells(1, Columns.Count).End(xlToLeft).Column
        
        '将源数据复制到目标工作簿中
        For targetRow = 1 To lastRow
            For targetColumn = 1 To lastColumn
                targetWorksheet.Cells(targetRow, targetColumn).End(xlUp).Offset(1, 0) = sourceWorksheet.Cells(targetRow, targetColumn).Value
            Next targetColumn
        Next targetRow
        
        '关闭源Excel文件
        sourceWorkbook.Close False
        
        '获取下一个文件名
        file = Dir
    Loop
    
    '保存目标工作簿
    targetWorkbook.SaveAs "C:\Combined Files\Combined.xlsx"
End Sub

在上述代码中，您需要修改以下内容：

1. 在 `sourceFolder = "C:\Excel Files\"` 中指定源文件夹的路径。
2. 在 `targetWorkbook.SaveAs "C:\Combined Files\Combined.xlsx"` 中指定目标工作簿的保存路径和文件名。

执行宏后，代码将循环遍历指定文件夹中的所有Excel文件，并将它们的数据复制到一个新的Excel工作簿中。每个Excel文件的数据将从目标工作簿的最后一行开始粘贴，不会覆盖目标工作簿中的现有数据。最终，目标工作簿将保存在指定的路径中。