使用VBA合并多个Excel工作簿.docVIP

 HYPERLINK /2009/05/23/mergesomeworkbooks/ \o Permanent Link to 使用VBA合并多个Excel工作簿 使用VBA合并多个Excel工作簿 1、需要将多个Excel工作簿中的工作表合并到一个工作簿。这里假设需要合并的工作簿在“D:\示例\数据记录\”文件夹中，含有两个工作簿test1.xls、test2.xls（当然，可以不限于两个），在test1.xls工作簿中含有三张工作表，在test2.xls工作簿中含有两张工作表，现在使用一段VBA代码合并这两个工作簿到一个新工作簿中，合并到新工作簿中的工作表分别以原工作簿名加索引值命名。代码如下： Sub CombineWorkbooks() Dim strFileName As String Dim wb As Workbook Dim wsAs Object ? 包含工作簿的文件夹,可根据实际修改 ConststrFileDir As String = D:\示例\数据记录\ ? Application.ScreenUpdating = False ? Set wb = Workbooks.Add(xlWorksheet) strFileName = Dir(strFileDir *.xls*) ? Do While strFileNamevbNullString Dim wbOrig As Workbook Set wbOrig = Workbooks.Open(Filename:=strFileDirstrFileName, ReadOnly:=True) strFileName = Left(Left(strFileName, Len(strFileName) - 4), 29) ? For Each wsInwbOrig.Sheets ws.Copy After:=wb.Sheets(wb.Sheets.Count) If wbOrig.Sheets.Count 1 Then wb.Sheets(wb.Sheets.Count).Name = strFileNamews.Index Else wb.Sheets(wb.Sheets.Count).Name = strFileName End If Next ? wbOrig.CloseSaveChanges:=False ? strFileName = Dir ? Loop ? Application.DisplayAlerts = False wb.Sheets(1).Delete Application.DisplayAlerts = True ? Application.ScreenUpdating = True ? Set wb = Nothing ? End Sub 2.下面是合并多个Excel工作簿的另一种情形，也是《Excel VBA实战技巧精粹》中技巧91：汇总多个工作簿的工作表所介绍的方法，即合并汇总。有四个工作簿，分别为：汇总工作簿.xls、一月.xls、二月.xls、三月.xls，其中一月.xls、二月.xls、三月.xls均只含有一张工作表且工作表中的数据均自单元格A1开始，现在要求将它们合并至“汇总工作簿.xls”中。在“汇总工作簿.xls”中打开VBE，并输入下列代码： Sub ConsolidateWorkbook() Dim RangeArray() As String Dim bk As Workbook Dim sht As Worksheet Dim WbCountAs Integer WbCount = Workbooks.Count ReDimRangeArray(1 To WbCount - 1) For Each bk In Workbooks 在所有工作簿中循环 If Not bk Is ThisWorkbook Then 非代码所在工作簿 Set sht = bk.Worksheets(1) 引用工作簿的第一个工作表 i = i + 1 RangeArray(i) = [ bk.Name ] sht.Name ! _ sht.Range(A1).CurrentRegion.Address(ReferenceStyle:=xlR1C1) End If Next Worksheets(1).R