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

你可以使用VBA编写一个宏，实现将一个文件夹中的所有Excel文件汇总到一个新Excel文件中的功能。具体步骤如下：

1. 创建一个新的Excel文件，作为最终汇总的文件。

2. 使用VBA中的“Dir”函数，遍历指定文件夹中的所有Excel文件，将它们的文件名存储到一个数组中。

3. 对于数组中的每个文件，使用VBA中的“Workbooks.Open”函数打开文件。

4. 将打开的工作簿中的数据复制到最终汇总的Excel文件中。

5. 关闭打开的工作簿，继续处理下一个文件。

6. 最后保存最终汇总的Excel文件。

具体的代码实现可以参考以下示例：

Sub MergeFiles()
    Dim folderPath As String, filename As String
    Dim wb As Workbook, mergeWb As Workbook
    Dim ws As Worksheet, mergeWs As Worksheet
    Dim i As Long, j As Long, lastRow As Long
    
    '设置文件夹路径
    folderPath = "C:\Users\Username\Documents\Test\"
    
    '创建一个新的Excel文件作为最终汇总文件
    Set mergeWb = Workbooks.Add
    
    '循环遍历文件夹中的所有Excel文件
    filename = Dir(folderPath & "*.xlsx")
    Do While filename <> ""
        '打开当前遍历到的文件
        Set wb = Workbooks.Open(folderPath & filename)
        
        '复制当前文件的数据到最终汇总文件中
        For Each ws In wb.Worksheets
            Set mergeWs = mergeWb.Worksheets.Add(after:=mergeWb.Worksheets(mergeWb.Worksheets.Count))
            lastRow = ws.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            ws.Range("A1", ws.Cells(lastRow, ws.UsedRange.Columns.Count)).Copy mergeWs.Range("A1")
            mergeWs.Name = ws.Name
        Next
        
        '关闭当前文件
        wb.Close SaveChanges:=False
        
        '获取下一个文件的文件名
        filename = Dir()
    Loop
    
    '保存最终汇总文件
    mergeWb.SaveAs folderPath & "Merged.xlsx"
    
    '关闭最终汇总文件
    mergeWb.Close
End Sub

在使用这个宏之前，需要将“folderPath”变量设置为包含要汇总的Excel文件的文件夹的路径。运行这个宏后，它将创建一个名为“Merged.xlsx”的新Excel文件，其中包含所有要汇总的Excel文件中的数据。