如何快速的合并多个 excel 工作簿成为一个工作簿-excel多个工作簿,excel中添加文件路径

第一步：将需要合并的excel文件存放在同一目录中；
第二步：创建一个带宏的EXCEL文件，文件名设为TOOLS.XLSM;
第三步：点击开发工具-插入模块；
第四7a686964616fe59b9ee7ad94334步：在新的模块中编制宏代码，代码如下：
Sub 合并文件()
Application.DisplayAlerts = False
Dim mYfile, ar(), n%, i%
Dim myPath As String
Dim myBook
Dim mySheet
Dim W1, W2 As String
Dim S1 As String
W1 = ActiveWorkbook.Name
myPath = ThisWorkbook.Path
EXCELFILE = Dir(myPath & "\*.xlsx")
Do Until Len(EXCELFILE) = 0
n = n + 1
ReDim Preserve ar(1 To n)
ar(n) = EXCELFILE
EXCELFILE = Dir
Loop
For i = 1 To n

If ar(i) <> W1 Then
Set myBook = Workbooks.Open(myPath & "\" & ar(i))
W2 = ActiveWorkbook.Name
For Each mySheet In myBook.Sheets
S1 = ar(i) & "-" & mySheet.Name
mySheet.Select
ActiveSheet.Cells.Select
Selection.Copy
Windows(W1).Activate
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = S1
ActiveSheet.Paste
Windows(W2).Activate
Next mySheet
ActiveWorkbook.Close
End If
Next i
Application.DisplayAlerts = True
End Sub

第五步：执行宏。结果如图：

以WPS 2019版本百为例：

如需合并多个 Excel 工作簿，可使用WPS2019中已支持的「文档拆分合并度」功能：问

操作步骤：

1）打开其中一份「表格（Excel）」答文档专；

2）点击「特色应用-拆分合并-合并」；

3）点击添加需合并文件属，设置合并文件需合并的页数范围即可将多个文档合并为一份。