求Excel大神帮忙，，现在有多个Excel工作簿，需要合并到一个新的工作簿中（命名为:汇总）
发布网友
发布时间：2022-03-25 14:02
共4个回答
懂视网
时间：2022-03-25 18:23
产品型号：ASUS S340MC
系统版本：Windows 10
软件版本：Microsoft Office Excel 2019
多个工作簿汇总成一个工作簿总共分为5步操作，具体的操作步骤如下：
1、首先在电脑上打开要编辑的Excel表格，打开后点击上方工具栏中的“数据”。
2、点击“获取数据”，选择“来自文件”、“从文件夹”，接着打开要汇总工作簿的文件夹。
3、在新弹出的窗口中点击“转换数据”，在编辑器中点击content旁边的箭头图标。
4、在合并文件窗口选择“参数1”，点击“确定”。然后点击date旁边的箭头图标，点击“确定”。
5、接着点击“关闭并上载”，选择“关闭并上载至”，最后点击“确定”即可。
总结
1、首先在电脑上打开要编辑的Excel表格，打开后点击上方工具栏中的“数据”。
2、点击“获取数据”，选择“来自文件”、“从文件夹”，接着打开要汇总工作簿的文件夹。
3、在新弹出的窗口中点击“转换数据”，在编辑器中点击content旁边的箭头图标。
4、在合并文件窗口选择“参数1”，点击“确定”。然后点击date旁边的箭头图标，点击“确定”。
5、接着点击“关闭并上载”，选择“关闭并上载至”，最后点击“确定”即可。
热心网友
时间：2022-03-25 15:31
可以用以下代码实现，如果有个性需要请下载附件自行修改完善。
一、代码：
Sub 汇总()Dim myBook As Workbook, mySht As Worksheet
mypath = ThisWorkbook.Path & "\"
Debug.Print mypath
myfile = Dir(mypath & "*.xlsx")
Do Until Len(myfile) = 0
m = m + 1
' Cells(m, 1) = myfile
Set mySht = ThisWorkbook.Worksheets.Add
mySht.Name = Left(myfile, Len(myfile) - 5)
Set myBook = Workbooks.Open(mypath & myfile)
myBook.Sheets("sheet2").Cells.Copy mySht.Cells
myBook.Close
myfile = Dir
Loop
End Sub
二、动画演示（以Office2010演示）：
热心网友
时间：2022-03-25 16:49
如下 代码:
打开 汇总 这个文件 ，Alt+F11 视图代码窗口 如下代码 复制进去，F5运行
Sub 遍历当前文件夹下工作薄()t = Timer
Application.ScreenUpdating = False
Dim i, wk As Workbook
p = ThisWorkbook.Path & "\" : s = Dir(p & "*.xls*")
Do While s <> ""
If s <> ThisWorkbook.Name Then
Set wk = Workbooks.Open(p & s)
Sheets.Add After:=wk.Sheets(wk.Sheets.Count)
wk.Sheets("Sheet2").copy Before:=ThisWorkbook.Sheets(1)
activesheet.name=left(wk.name,len(wk.name)-5)
wk.Close False
End If
s = Dir
Loop
t1 = Timer - t
MsgBox ("所有工作薄收集完成,用时" & t1 & "秒")
Application.ScreenUpdating = True
End Sub
热心网友
时间：2022-03-25 18:24
明天再来看看…………………………
