将多个Excel工作簿合并成一个新的工作簿_第1页
将多个Excel工作簿合并成一个新的工作簿_第2页
将多个Excel工作簿合并成一个新的工作簿_第3页
将多个Excel工作簿合并成一个新的工作簿_第4页
免费预览已结束，剩余1页可下载查看

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、怎么将多个Excel工作簿合并成一个新的工作簿已知有多个独立的excel工作簿文件，现在需要将这些文件合并到一个新的工作簿中。保留原来excel工作簿中各个excel工作表名称。如果量小，可以采用打开一个个复制的方法。在这里，我将向大家分享，怎么批量处理多个工作簿（ps：不是工作表）的合并。工具/原料microsoftofficeexcel2007方法/步骤1.将需要合并的excel工作簿文件放置在一个文件夹中每个文件夹中的工作簿都输入了简单的内容。2.在该文件夹中，新建立一个新的excel工作簿文件。重命名为8.3.打开新建立的excel工作簿文件8.按Alt+F11或者将鼠标移动到下方工作

2、表4.在弹出的代码编辑窗口中，输入代码。注意：通过快捷键Alt+F11打开的窗口如下没有直接复制代码的面板，需要点击左上方的工程-VBAproject模块，双击sheet1,即可打开代码窗口。而步骤3中的第二种方法可以直接打开代码输入窗口。5 .在代码窗口中，黏贴下列代码:6 .SubCombineFiles()DimpathAsStringDimAsStringDimLastCellAsRangeDimWkbAsWorkbookDimWSAsWorksheetDimThisWBAsStringDimMyDirAsStringMyDir=ThisWorkbook.path&"

3、"'ChDriveLeft(MyDir,1)'findalltheexcelfiles'ChDirMyDir'Match=Dir$("")ThisWB=ThisWorkbook.NameApplication.EnableEvents=FalseApplication.ScreenUpdating=Falsepath=MyDir=Dir(path&"*.xlsx”,vbNormal)DoUntil=""If<>ThisWBThenSetWkb=Workbooks.Open(&

4、""&)ForEachWSInWkb.WorksheetsSetLastCell=WS.Cells.SpecialCells(xlCellTypeLastCell)IfLastCell.Value=""AndLastCell.Address=Range("$A$1").AddressThenElseWS.CopyAfter:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)EndIfNextWSWkb.CloseFalseEndIf=Dir()LoopApplication.EnableEvents=TrueApplication.ScreenUpdating=TrueSetWkb=NothingSetLastCell=NothingEndSubdfli-LrdluQ7.点击菜单栏运行-运行子过程-用户窗体。关闭代码

人人文库> 全部分类> 应用文书 > 作业报告

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论