请教如何把不同excel文件中的sheet合并到一个excel中的不同sheet中

camhanson

我们厂每天一个日报，一个日报就是一个excel文件，在每个文件中就占一个sheet（在每个excel中都叫sheet 1），每次到了月底汇总，就很麻烦，要点开所有的excel文件，一个月31个文件来摘数字，很麻烦，想把这些sheet都合并到一个excel文件中，这样一个exel中一个月31个sheet，一个sheet就是一天的数据。我也百度了很久，有很多代码，去插入运行，都不行，所以上来求助大家。谢谢各位了。

wodewan

附件供参考，合并该文件所在文件夹下的所有EXCEL文件（包含该文件工作簿下的所有sheet）合并后的sheet名就是被合并文件的文件名，你试试看。

417744370

Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim 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("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name

Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
End Sub
试试这段代码是否能帮到您？

camhanson

wodewan 发表于 2019-9-18 01:03
附件供参考，合并该文件所在文件夹下的所有EXCEL文件（包含该文件工作簿下的所有sheet）合并后的sheet名就 ...

谢谢您的帮助，但是提示错误：无法运行“合并该目录下所有excel文件.xlsm！合并当前目录下所有工作簿的全部工作表”宏。可能是因为该宏在此工作簿中不可用，或者所有的宏都被禁用。

camhanson

417744370 发表于 2019-9-18 14:54
Sub 合并当前目录下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As  ...

感谢您的回复，也不行，运行的时候谈出的对话框，运行纽是灰色的，无法点。是不是我太菜了，不好意思。。。

wodewan

camhanson 发表于 2019-9-26 16:36
谢谢您的帮助，但是提示错误：无法运行“合并该目录下所有excel文件.xlsm！合并当前目录下所有工作簿的全 ...

先确认是否启用了宏（宏设置里选启用所有宏），我测试目前没发现问题，关闭启用宏，就会出现你说的错误。