合并不同的EXCEL文件的
2014-03-28 12:58
260 查看
Sub MergeWorkbooks()
Dim FileSet '定义文件组
Dim i As Integer
On Error GoTo 0
Application.ScreenUpdating = False '屏蔽屏幕刷新,进而提高运行速度,但在结尾要重新开启的。
FileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls, Excel 2007(*.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) '添加到本EXCEL文件的最后一个SHEET后面
Next
ExitSub:
Application.ScreenUpdating = True '恢复屏幕刷新
End Sub
Dim FileSet '定义文件组
Dim i As Integer
On Error GoTo 0
Application.ScreenUpdating = False '屏蔽屏幕刷新,进而提高运行速度,但在结尾要重新开启的。
FileSet = Application.GetOpenFilename(FileFilter:="Excel 2003(*.xls),*.xls, Excel 2007(*.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) '添加到本EXCEL文件的最后一个SHEET后面
Next
ExitSub:
Application.ScreenUpdating = True '恢复屏幕刷新
End Sub
相关文章推荐
- 将多个csv文件合并到一个excel文件的不同的sheet中
- 合并不同的EXCEL文件的
- EXCEL:将文本文件数据分解到EXCEL中的不同工作表
- CAD高端操作,如何将两个不同的CAD文件进行合并
- DataSet导出到Excel,并生成文件(C#实现,可合并行和列)
- git同一文件由于文件名大小写不同导致不能合并
- java 用jxl将多个excel文件合并成一个多sheet的excel文件
- Win7下多Excel文件在不同窗口打开
- 在MVC中实现和网站不同服务器的批量文件下载以及NPOI下载数据到Excel的简单学习
- 合并内容格式不同的两个文件
- shell paste指令:用于不同文件的合并粘贴
- 关于Excel下通过VBA实现工作簿文件下工作表的合并
- 多個excel文件合并到一個excel文件
- 利用Python将多个excel文件合并为一个文件
- 宏:合并多个Excel文件,Excel合并Sheet
- 用Python语言实现将两个Excel文件完成类似SQL中内连接查询的合并操作
- python合并不同文件夹下所有文件
- 多个文本文件分别拷贝到同一个Excel的不同Sheet
- Powershell管理系列(二十一)PowerShell操作之不同文件夹内文件合并
- Win7下多Excel文件在不同窗口打开