多个Excel文件合并到一个工作薄中
2013-10-18 16:03
239 查看
VBA代码：
Sub merge()
Dim FileSet
Dim i As Integer
Dim filename
On Error GoTo 0
Application.ScreenUpdating = False
FileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007-2013(*.xlsx),*.xlsx", MultiSelect:=True, Title:="选择需要合并的文件")
If TypeName(FileSet) = "Boolean" Then
GoTo ExitSub
End If
For Each filename In FileSet
Workbooks.Open filename
Sheets().Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
ExitSub:
Application.ScreenUpdating = True
End Sub
Sub merge()
Dim FileSet
Dim i As Integer
Dim filename
On Error GoTo 0
Application.ScreenUpdating = False
FileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls,Excel 2007-2013(*.xlsx),*.xlsx", MultiSelect:=True, Title:="选择需要合并的文件")
If TypeName(FileSet) = "Boolean" Then
GoTo ExitSub
End If
For Each filename In FileSet
Workbooks.Open filename
Sheets().Move after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next
ExitSub:
Application.ScreenUpdating = True
End Sub
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 使用VBA合并多个EXCEL文件到一个EXCEL文件
- Python将多个excel文件合并为一个文件
- 利用Python将多个excel文件合并为一个文件
- 如何将EXCEL中同一个工作薄多张工作表合并
- vbs宏：excel读取多个文件并合并为一个文件
- c#(Asp.net)多个Excel文件合并到一个新的excel中
- [置顶] 【R语言 数据合并】批量读取数据文件合并为一个excel表格
- 把多个excel文件的sheet1数据合并到一个excel文件的sheet1中
- 将多个Excel文件合并成一个有多个sheet的Excel文件
- 利用NPOI合并多个Excel文件到一个新的Excel
- 将多个csv文件合并到一个excel文件的不同的sheet中
- 通过VBA将多个格式相同的Excel文件合并成一个文件，带文件处理
- python读写excel（附上将一个文件夹下所有excel文件合并成一个文件的代码）
- 如何将多个excel文件合并成一个
- 多个excel文件如何快速合并到一个excel中
- Winform合并多个Excel文件到一个文件中（源文件.xls,实际是.xml）
- POI 复制多个excel文件 合并为一个总excel文件
- [置顶] 【python Excel 合并】python合并同一个文件夹下所有excel文件
- 怎么把100多个EXCEL文件合并成一个
- 多个Excel文件的第一个工作表（Sheet）合并到一个Excel文件的多个工作表里