求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

明天再来看看…………………………

首页

文章

求Excel大神帮忙，，现在有多个Excel工作簿，需要合并到一个新的工作簿中（命名为:汇总）