正文描述:《多个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
显示全部收起
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。