用VBA合并Excel工作簿.xls.xls

有许多实现 Excel 工作簿合并的方法,在《将多个工作簿中的数据合并到一个工作簿》中介绍过合并工作簿的示例。下面再列举几个示例,供有兴趣的朋友参考。例如,需要将多个 Excel 工作簿中的工作表合并到一个工作簿。这里假设需要合并的工作簿在“D:\ 示例\数据记录\”文件夹中,含有两个工作簿 、 (当然,可以不限于两个), 工作簿中含有三张工作表, 工作簿中含有两张工作表,现在使用一段 VBA 代码合并这两个工作簿到一个新工作簿中,合并到新工作簿中的工作表分别以原工作簿名加索引值命名。代码如下: bineWorkbooks() Dim strFileName As String Dim wb As Workbook Dim ws As Object ' 包含工作簿的文件夹, 可根据实际修改 Const strFileDir As String = "D:\ 示例\ 数据记录\" = False Set wb = (xlWorksheet) strFileName = Dir(strFileDir & "*.xls*" ) Do While strFileName <> vbNullString Dim wbOrig As Workbook Set wbOrig = Workbooks. Open (Filename:=strFileDir & strFileName, ReadOnly:= True ) strFileName = Left(Left(strFileName, Len(strFileName) - 4), 29) For Each ws In After:=() If >1 Then ().Name = strFileName & Else ().Name = strFileName End If Next wbOrig. Close SaveChanges:= False strFileName = Dir Loop = False (1).Delete = True = True Set wb = Nothing End Sub 示例文档下载: 下面是合并多个 Excel 工作簿的另一种情形,也是《Excel VBA 实战技巧精粹》中<技巧 91:汇总多个工作簿的工作表>所介绍的方法,即合并汇总。有四个工作簿,分别为: 、 、 、 , 、 、 均只含有一张工作表且工作表中的数据均自单元格 A1开始,现在要求将它们合并至“ ”中。在“ ”中打开 VBE ,并输入下列代码: Sub ConsolidateWorkbook() Dim RangeArray() As String Dim bk As Workbook Dim sht As Worksheet Dim WbCount As Integer WbCount = ReDim RangeArray(1 To WbCount - 1) For Each bk In Workbooks ' 在所有工作簿中循环 If Not bk Is ThisWorkbook Then ' 非代码所在工作簿 Set sht = (1) ' 引用工作簿的第一个工作表 i=i+1 RangeArray(i) = "'[" & & "]" & & "'!" &_ ( "A1" ).(ReferenceStyle:=xlR1C1) End If Next Worksheets(1).Range( "A1" ).Consolidate _ RangeArray, xlSum, True , True End Sub 运行上述代码前,必须打开所有的工作簿。运行代码后,将自动汇总所有工作表中的值并将相应单元格的值求和。示例文档下载: 下面是