合并多个工作薄的VBA代码示例

　　由于工作的需要，有时候我们需要将多个工作薄合并成为一个，但是EXCEL本身无此类功能，需要使用VBA才能完成，本文给出示例代码，希望对您有所帮助。

　　功能：合并多个Excel工作薄文件

　　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 "没有选定文件"
　　End If

　　x = 1
　　While x <= UBound(FilesToOpen)
　　Set wk = Workbooks.Open(Filename:=FilesToOpen(x))

　　wk.Sheets().Move after:=ThisWorkbook.Sheets _
　　(ThisWorkbook.Sheets.Count)
　　x = x + 1
　　Wend

　　MsgBox "合并成功完成！"

　　errhandler:
　　End Sub

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18