多个excel文件快速合并成一个文件非常好用.doc

快速合并多个Excel文件成一个文件的方法 在本文中，我们将介绍如何快速合并多个Excel文件成一个文件，这是一种非常有用的技巧，尤其是在需要处理大量数据时。下面是具体的操作步骤和相关的VBA代码。 合并多个Excel文件的步骤 1. 将所有要合并的Excel文件放到同一个目录下。 2. 在当前目录下新建一个Excel文件。 3. 打开新建的Excel文件，按下ALT+F11键，打开Visual Basic编辑器。 4. 在Visual Basic编辑器中输入以下代码： ```vba Sub 合并工作表() Dim MyPath, MyName, AWbName Dim Wb As Workbook, WbN As String Dim G As Long, Num As Long Dim BOX As String Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path MyName = Dir(MyPath & "\" & "*.xls") AWbName = ActiveWorkbook.Name Num = 0 Do While MyName <> "" If MyName <> AWbName Then Set Wb = Workbooks.Open(MyPath & "\" & MyName) Num = Num + 1 With Workbooks(1).ActiveSheet .Cells(.Range("A65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4) For G = 1 To Sheets.Count Wb.Sheets(G).UsedRange.Copy .Cells(.Range("A65536").End(xlUp).Row + 1, 1) Next End With WbN = WbN & Chr(13) & Wb.Name Wb.Close False End If MyName = Dir Loop Range("A1").Select Application.ScreenUpdating = True MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示" End Sub ``` 5. 关闭Visual Basic编辑器。 6. 点击“工具”菜单中的“宏”选项，然后选择“安全性”，将安全级别设置为“低”。 7. 点击“工具”菜单中的“宏”选项，然后选择“宏”，再点击“执行”。 8. 等待1-2分钟，直到合并完成。 使用VBA代码合并多个Excel文件 如果你不想使用上述步骤，可以使用以下VBA代码来合并多个Excel文件： ```vba Sub CombineWorkbooks() Dim FilesToOpen, ft Dim x As Integer Application.ScreenUpdating = False On Error GoTo errhandler FilesToOpen = Application.GetOpenFilename _ (FileFilter:="Microsoft Excel 文件(*.xls), *.xls", _ MultiSelect:=True, Title:="要合并的文件") If TypeName(FilesToOpen) = "boolean" Then MsgBox "没有选定文件" GoTo errhandler End If x = 1 While x <= UBound(FilesToOpen) Set wk = Workbooks.Open(Filename:=FilesToOpen(x)) wk.Sheets().Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count) x = x + 1 Wend MsgBox "合并成功完成！" errhandler: 'MsgBox Err.Description Resume errhandler End Sub ``` 小结 合并多个Excel文件成一个文件是一个非常有用的技巧，使用VBA代码可以轻松实现这个功能。只需要按照上述步骤操作，或者使用提供的VBA代码，你就可以快速合并多个Excel文件成一个文件。