多个excel表格汇总

《多个excel表格汇总》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、自从人类进入商品经济社会以来，贸易即已成为人们日常活动的主要部分，并成为一国经济增长的主动力。国际分工的深化、大量国际统一标准规则的建立多个excel表格汇总　　篇一：汇总多个Excel工作簿　　例如，需要将多个Excel工作簿中的工作表合并到一个工作簿。这里假设需要合并的工作簿在“D:示例数据记录”文件夹中，含有两个工作簿、（当然，可以不限于两个），在工作簿中含有三张工作表，在工作簿中含有两张工作表，现在使用一段VBA代码合并这两个工作簿到一个新工作簿中，合并到新工作簿中的工作表分别以原工作簿名加索引值命名。代码

2、如下：　　SubCombineWorkbooks()　　DimstrFileNameAsString　　DimwbAsWorkbook　　DimwsAsObject　　'包含工作簿的文件夹,可根据实际修改　　ConststrFileDirAsString="D:示例数据记录"　　=False　　Setwb=(xlWorksheet)　　strFileName=Dir(strFileDir&"*.xls*")　　DoWhilestrFile(来自:小龙文档网:多个excel表格汇总)NamevbNullString　

3、　DimwbOrigAsWorkbook　　SetwbOrig=(Filename:=strFileDir&strFileName,随着信息化和全球化的发展，国家及地区之间的贸易也已成为拉动一国经济的三驾马车之一，甚至是三驾马车之首，奥巴马政府成立之日起自从人类进入商品经济社会以来，贸易即已成为人们日常活动的主要部分，并成为一国经济增长的主动力。国际分工的深化、大量国际统一标准规则的建立ReadOnly:=True)strFileName=Left(Left(strFileName,Len(strFileName)-4)

4、,29)　　ForEach　　After:=()　　If>1Then　　().Name=strFileName&　　Else　　().Name=strFileName　　EndIf　　Next　　:=False　　strFileName=Dir　　Loop　　=False　　(1).Delete　　=True　　=True　　Setwb=Nothing　　EndSub　　2.下面是合并多个Excel工作簿的另一种情形，也是《ExcelVBA实战技巧精粹》中所介绍的方法，即合并汇总。随着信息化和全球化的发展，国家及地区之间

5、的贸易也已成为拉动一国经济的三驾马车之一，甚至是三驾马车之首，奥巴马政府成立之日起自从人类进入商品经济社会以来，贸易即已成为人们日常活动的主要部分，并成为一国经济增长的主动力。国际分工的深化、大量国际统一标准规则的建立　　有四个工作簿，分别为：汇总工作簿.xls、一月.xls、二月.xls、三月.xls，其中一月.xls、二月.xls、三月.xls均只含有一张工作表且工作表中的数据均自单元格A1开始，现在要求将它们合并至“汇总工作簿.xls”中。　　在“汇总工作簿.xls”中打开VBE，并输入下列代码：　　SubCons

6、olidateWorkbook()　　DimRangeArray()AsString　　DimbkAsWorkbook　　DimshtAsWorksheet　　DimWbCountAsInteger　　WbCount=　　ReDimRangeArray(1ToWbCount-1)　　ForEachbkInWorkbooks'在所有工作簿中循环　　IfNotbkIsThisWorkbookThen'非代码所在工作簿　　Setsht=(1)'引用工作簿的第一个工作表　　i=i+1　　RangeArray(i)="'["&&"

7、]"&&"'!"&_　　("A1").(ReferenceStyle:=xlR1C1)　　EndIf　　Next　　Worksheets(1).Range("A1").Consolidate_　　RangeArray,xlSum,True,True　　EndSub随着信息化和全球化的发展，国家及地区之间的贸易也已成为拉动一国经济的三驾马车之一，甚至是三驾马车之首，奥巴马政府成立之日起自从人类进入商品经济社会以来，贸易即已成为人们日常活动的主要部分，并成为一国经济增长的主动力。国际分工的深化、大量国际统一标准规则的建立　　

8、3.下面是汇总多个工作簿的又一种情形，也是一名网友提出的问题：在同一文件夹中有多个工作簿，其中有一个用于汇总的工作簿，要求将除该汇总工作簿外的其它工作簿中的第一张工作表的数据汇总到该汇总工作簿中。代码如下：　　SubUnionWorksheets()　　=False　　DimljAsString　　Dimdirnam