多个excel表格汇总.docxVIP

多个excel表格汇总 　　篇一：汇总多个Excel工作簿 　　例如，需要将多个Excel工作簿中的工作表合并到一个工作簿。这里假设需要合并的工作簿在“D:\示例\数据记录\”文件夹中，含有两个工作簿、（当然，可以不限于两个），在工作簿中含有三张工作表，在工作簿中含有两张工作表，现在使用一段VBA代码合并这两个工作簿到一个新工作簿中，合并到新工作簿中的工作表分别以原工作簿名加索引值命名。代码如下：  　　Sub CombineWorkbooks()  　　Dim strFileName As String  　　Dim wb As Workbook  　　Dim wsAs Object  　　包含工作簿的文件夹,可根据实际修改  　　ConststrFileDir As String = D:\示例\数据记录\  　　 = False  　　Set wb = (xlWorksheet)  　　strFileName = Dir(strFileDir *.xls*)  　　Do While strFile(来自: 小 龙 文档网:多个excel表格汇总)NamevbNullString  　　Dim wbOrig As Workbook  　　Set wbOrig = (Filename:=strFileDirstrFileName, ReadOn