将多个Excel表中的sheet合并到同一个Excel中，并以原表名为sheet名

最新推荐文章于 2024-11-07 09:09:55 发布

ZeroBz

最新推荐文章于 2024-11-07 09:09:55 发布

阅读量2.3w

点赞数 19

分类专栏：代码常用知识文章标签：将多个Excel表中的sheet合并到同一个Excel中，并

本文链接：https://blog.csdn.net/ZeroBz/article/details/102856403

版权

1、将要合并的Excel放在同一个文件夹下面，新建Excel

2、打开一个新的excel，Alt+F11，进入宏计算界面，选择插入-模块

3、将以下代码复制进去：

'功能：把多个excel工作簿的第一个sh eet工作表合并到一个excel工作簿的多个sheet工作表，新工作表的名称等于原工作簿的名称
Sub Books2Sheets()
'定义对话框变量
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'新建一个工作簿
Dim newwb As Workbook
Set newwb = Workbooks.Add
With fd
If .Show = -1 Then
'定义单个文件变量
Dim vrtSelectedItem As Variant
'定义循环变量
Dim i As Integer
i = 1
'开始文件检索
For Each vrtSelectedItem In .SelectedItems
'打开被合并工作簿
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
&