把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里

来源：百度文库编辑：神马文学网时间：2024/06/28 09:38:33

方法一：用VBA
感谢本文作者：http://hzwyj.spaces.live.com/blog/cns!730C63D0301AC7D0!209.entry
实现的功能是把多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里，并且新工作表的名称等于原Excel文件的文件名。开发环境Excel2007，但是Excel2003应该也能用，Excel2000似乎不能用。代码如下：
'功能：把多个工作簿的第一个工作表合并到一个工作簿的多个工作表，新工作表的名称等于原工作簿的名称
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)
'复制工作表
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
'关闭被合并工作簿
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Sub
方法二：
录制一个新宏:打开一个excel文件、复制、粘贴、关闭；
然后在菜单[工具]-》[宏]-》VB编辑器里修改这个宏，
只要改文件名就能复制下一个excel文件，
很多的话，做循环最好，你如果不会，就只好复制800遍那些语句，改800遍文件名了。
运行这个宏，它会自动替你一个一个地打开、复制、粘贴、关闭。
不会再有比一个一个复制更简单的办法了。

把多个Excel文件合并到一个Excel文件的多个工作表（Sheet）里如何将100个excel文件合并成1个excel100个工作表， vba如何实现将一个EXCEL文件中(关闭的文件)的SHEET页复制到当前的EXCEL中如何将100个excel文件合并成1个excel100个工作表，每个工作表名字对应原excel文件把多个工作簿中的工作表合并到一个工作簿中的vba代码_一分耕耘，一分收获把多个工作簿中的工作表合并到一个工作簿中的vba代码_ 多个sheet页一个透视表多个sheet页一个透视表 EXCEL必备工具箱--文件合并功能 EXCEL：一个工作薄中多个工作表合并代码巧用宏快速合并200个Excel工作簿巧用宏快速合并200个Excel工作簿-办公软件- 如何在一个工作区中打开多个工程文件和删除工程文件 ASP导出excel表格的方法（修改excel文件）在Excel多个工作表间快速切换的绝招在Excel多个工作表间快速切换的绝招在Excel多个工作表间快速切换的绝招 ASP操作EXCEL文件 ASP操作EXCEL文件巧用宏快速合并200个Excel工作簿-办公软件-电脑界-武汉电脑硬件资讯网 vc读写Excel文件的方法 [PHP Excel 输出]使用 PHP 输出带格式的 Excel 文件（转来的）在VB中把EXCEL文件导入MSFLEXGRID 之二怎么样删除EXCEL复制到txt文件中的空格?