laravel excel一个文件多个sheet_多个Excel文件自动导入到一张Excel表内

一

多个Excel文件自动导入到一张Excel表内

今天同事问我，有没有办法将多个的Excel文件的数据快速导入到某个Excel表格内的办法？上教程吧前提条件：所有表格文件的工作簿表格的格式是一致的。

===用代码方法===

1.首先把所有需要汇总的表格复制到一个文件夹内。

2.在该文件夹下再建一个Excel文件，叫“汇总”(随便命名)。

3.打开“汇总”，找到菜单栏的“开发工具”

如果你的Excel(Excel2010为例)的菜单没有“开发工具”，那么依次点击“文件”-“选项”-“自定义功能区”，找到“开发工具”选项，选择打钩就可以了(Excel2007稍有差别)。

4.打开“开发工具”，点“查看代码”，在弹出的空白区域粘贴下面的代码。然后点击运行代码按钮。代码会自动该目录下的Excel文件汇总到一张表格内容。

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

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End  Sub

一

继续往下看

5.关闭代码窗口，回到页面视图。将不需要的行删除就可以了。如果上面的教程有问题，请私信小编，我会尽量帮助你！
如果你用的是Excel2016或者更高的版本，可以用数据导入法，下次再出教程吧。

往期回顾

文库的文字照样能复制——教学素材的搜集处理技术(一)

下载视频去Logo——教学素材的搜集处理技术(二)

我教你PDF转Word文档