Excel工作簿一键合并VBA代码

1、调出文件扩展名

2、新建.xlsm的VBA工作表

新建一个工作表，另存为.xlsm的格式。打开，【开发工具】--【Visual Basic】--粘贴代码--运行。（注意文件夹的位置）

3、代码

Sub demo12()

Application.ScreenUpdating = False

Dim mypath, myfile As String

Dim sh As Worksheet

Dim wb, twb As Workbook

Set twb = ThisWorkbook

mypath = ThisWorkbook.Path & "\VBA练习\"

"注意替换上面【VBA练习】文件夹名称

myfile = Dir(mypath & "*.xlsx")

Do While myfile <> ""

Set wb = Workbooks.Open(mypath & myfile)

For Each sh In wb.Sheets

sh.Copy after:=twb.Sheets(twb.Sheets.Count)

Next

wb.Close True

myfile = Dir

Loop

Application.ScreenUpdating = True

End Sub