多个excel文件合并成一个excel文件里的多个sheet

最新推荐文章于 2022-01-13 13:19:39 发布

weixin_30855099

最新推荐文章于 2022-01-13 13:19:39 发布

阅读量7.8k

点赞数 2

文章标签： c# java python

原文链接：http://www.cnblogs.com/llawliet0001/p/10399641.html

版权

本文介绍如何通过宏将多个Excel文件合并到一个Excel文件的不同工作表中，具体步骤包括新建工作表，命名并保存，然后在VBA编辑器中编写并运行宏代码。

摘要由CSDN通过智能技术生成

新建一个工作表，命名后保存到和与合并的N个文件同一个文件文件夹，按 alt + f11,双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区粘贴如下代码。运行。等候一会就OK了。

宏：多个文件表合到一个文件表的多个SHEET中

Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler
FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")
If TypeName(FilesToOpen) = "boolean" Then
MsgBox "没有选定文件"
'GoTo errhandler
End If
x = 1
While x <= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))
wk.Sheets().Move after: