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

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

转载

最新推荐文章于 2022-01-13 13:19:39 发布 · 7.9k 阅读

2 ·

CC 4.0 BY-SA版权

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

文章标签：

#c# #java #python

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

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

新建一个工作表，命名后保存到和与合并的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:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)