Excel合并不同工作簿的表到同一个工作簿

此示例是将不同路径下的工作簿的第一个工作表合并到同一个工作簿的不同sheet,按照添加顺序把工作表合并进去。如果要合并多个或者是其他情况可参照更改下即可。

主要分两块内容：
1.第一块，代码块
2.第二块，演示

一、代码块

Sub NewTest()
Dim book1 As String, book2 As String, flag1 As String, flag2 As String
Application.DisplayAlerts = False
Application.ScreenUpdating = False
arr = [a1].CurrentRegion
' flag1 和flag2用于判断对应文件是否存在，存在才进行一步处理，ThisWorkbook.Path返回当前执行VBA
'代码的工作簿的路径，可以直接指定路径,无论是读取还是存储皆可.
For Each i In arr
flag1 = Dir(ThisWorkbook.Path & "\test\testnew2\" & i & "-未超时.xlsx")
flag2 = Dir(ThisWorkbook.Path & "\test\testnew\" & i & "-超时.xlsx")If flag1 <> "" Then
Workbooks.Open (ThisWorkbook.Path & "\test\testnew2\" & i & "-未超时.xlsx")
book1 = ActiveWorkbook.Name
End IfIf flag2 <> "" Then
Workbooks.Open (ThisWorkbook.Path & "\test\testnew\" & i & "-超时.xlsx")
book2 = ActiveWorkbook.Name
End IfIf flag1 <> "" Or flag2 <> "" Then
Workbooks.AddIf flag1 <> "" And flag2 = "" Then
Workbooks(book1).Sheets(1).Copy Before:=ActiveWorkbook.ActiveSheet
End If
If flag2 <> "" And flag1 = "" Then
Workbooks(book2).Sheets(1).Copy Before:=ActiveWorkbook.ActiveSheet
End IfIf flag1 <> "" And flag2 <> "" Then
Workbooks(book1).Sheets(1).Copy Before:=ActiveWorkbook.ActiveSheet
Workbooks(book2).Sheets(1).Copy After:=ActiveWorkbook.ActiveSheet
End If
With ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\test\" & i & ".xlsx".Close SaveChanges:=False
End With
End IfIf flag1 <> "" Then
Workbooks(book1).Close SaveChanges:=False
End IfIf flag2 <> "" Then
Workbooks(book2).Close SaveChanges:=False
End IfNextApplication.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "执行完毕"
End Sub

说明：路径大家可以直接指定绝对路径，因为怕有些人分不清ThisWorkbook.Path代表当前执行VBA脚本的工作簿路径的情形。
合并工作簿的工作表的引用大家可参照实际情况替换索引或者直接使用
表名进行索引。

二、操作演示

两个待合并文件夹，文件都放在里面：
新合并的路径将在test目录生成
此表里面存放的是需要处理的表的名称，代码里通过[a1].CurrentRegion引用，引用后进行迭代

重点还是参照官方教程，特贴链接如下：
ExcelVBA语法
这是VBA基础语法

Excel合并不同工作簿的表到同一个工作簿相关推荐

C# 复制Excel工作表（同一个工作簿内进行复制，跨工作簿复制）
C# 如何复制Excel工作表(worksheet) 将介绍如何在Excel中复制工作表,复制的方法分为两种情况来阐述,一种是在同一个工作簿内进行复制,另一种是跨工作簿复制. 一. 在同一个工作簿内复 ...
excel合并多个工作表_如何快速的合并多个 Excel 工作簿至一个工作簿中的工作表？...
作者:汪汪家的宝贝链接:https://www.jianshu.com/p/c8ae6852f1da 前言在日常工作过程中,我们有可能需要把多个Excel工作簿的内容汇总到一张Excel工作表中. ...
excel合并多个工作表_多个工作表或者多个工作簿的合并计算
哈喽,everybody,作为一个与excel打交道长达六年的职业老手,我会整理汇总一些十分有利于提高工作效率的小tip.也当作是我为自己知识点做的些许总结吧. 今天我们就来聊聊如何快速合并多个工作表 ...
excel合并多工作簿同名工作表？
今天跟大家分享一下excel合并多工作簿同名工作表? 1.如下图两个工作簿,都含有相同的工作表"销售部"现在我们想要将这两个工作簿中的销售部表格合并到一个表格中. 2.首先点击下图 ...
Excel VBA 合并不同工作簿的工作表到一个工作簿的不同工作表
命令从下面第一个Sub开始: Sub 合并不同工作簿的工作表到一个工作簿的不同工作表() Excel.Application.ScreenUpdating = False Dim ARR() Dim ...
Excel 合并一个工作簿中的所有工作表
Excel 合并一个工作簿中的所有工作表最近在做一个统计表的时候发现了一个问题,我一个工作簿中有许多工作表,我要把它们汇总到一个工作表中进行统计.一个个复制非常麻烦,那么我们怎么来进行简化操作: 1 ...
excel合并多个工作表_多个Excel工作表合并到一个工作簿
Excel多工作表合并可以采用PowerQuery来实现,不需要复杂的代码.不需要额外的插件! (注:PowerQuery是微软推出的一个功能强大的数据抓取工具,在Excel2013中需要安装官方插件 ...
oracle两列合并成一列_POWER QUERY--一个工作簿内的多张工作表合并汇总
如果要汇总的工作表是在同一个工作簿内,此时的汇总并不复杂,但要先弄清楚:这些工作表数据的汇总操作,是纯粹将数据堆积汇总到一张表,还是根据各张表之间的关联字段来进行汇总. 01 多张工作表的堆积汇总此 ...
excel合并多个工作表_EXCEL动态合并工作表，操作其实很简单
作者:祝洪忠转自:Excel之家ExcelHome 小伙伴们好啊,今天老祝和大家分享一个动态合并多个工作表的技巧. 很多时候,咱们的数据是按照部门或是月份等项目,分别存放在不同工作表中的,要对这些数 ...
如何批量合并Excel文件和工作表 - Excel合并器使用教程
Excel是人们用于创建日常工作表和统计信息的最流行的工具,在我们工作中经常接触到Excel的XLSX和XLS格式文件.不少朋友应该有时会发现,管理太多的Excel工作表和文件是一件头疼的事情,经常需 ...

Excel合并不同工作簿的表到同一个工作簿

此示例是将不同路径下的工作簿的第一个工作表合并到同一个工作簿的不同sheet,按照添加顺序把工作表合并进去。如果要合并多个或者是其他情况可参照更改下即可。

Excel合并不同工作簿的表到同一个工作簿相关推荐

最新文章

热门文章

Excel合并不同工作簿的表到同一个工作簿

此示例是将不同路径下的工作簿的第一个工作表合并到同一个工作簿的不同sheet,按照添加顺序把工作表合并进去。 如果要合并多个或者是其他情况可参照更改下即可。

Excel合并不同工作簿的表到同一个工作簿相关推荐

最新文章

热门文章

此示例是将不同路径下的工作簿的第一个工作表合并到同一个工作簿的不同sheet,按照添加顺序把工作表合并进去。如果要合并多个或者是其他情况可参照更改下即可。