关于excel文件合并，excel文件合并到一张表格这个很多人还不知道，今天小怡来为大家解答以上的问题，现在让我们一起来看看吧！

1、MyPath = ActiveWorkbook.Path合并方法如下：3.然后把下面这些宏计算的代码进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：Sub 合并当前目录下所有工作簿的全可以利用VBA代码来实现，详细方法：部工作表()Dim MyPath, MyName, AWbNameDim Wb As Workbook, WbN As StringDim G As LongDim Num As LongMyName = Dir(MyPath & "" & ".xls")AWbName = ActiveWorkbook.NameNum = 0If MyName <> AWbName ThenWith Workbooks(1).ActiveSheetFor G = 1 To Sheets.CountWb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)End WithLMsgBox Err.DescriptionoopRange("B1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。

2、如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub。

本文到这结束，希望上面文章对大家有所帮助。