如何使用 VBA 合并多个 Excel 工作簿

图片[1]-如何使用 VBA 合并多个 Excel 工作簿-零度博客

在处理各种数据源时,您可能经常难以编译多个工作簿和工作表,然后才能获得一个最终数据。想象一下这样一种情况,在您开始新的一天之前,您有数百个工作簿要组合。

没有人愿意花无数时间处理不同的来源,打开每个工作簿,复制和粘贴来自不同工作表的数据,然后最终制作一个合并的工作簿。如果 VBA 宏可以为您做到这一点怎么办?

使用本指南,您可以在几分钟内创建自己的 Excel VBA 宏代码来合并多个工作簿(如果数据文件很多)。

创建自己的 VBA 宏代码的先决条件

您需要一个工作簿来存放 VBA 代码,而其余的源数据工作簿是分开的。此外,创建一个合并的工作簿以存储所有工作簿中的合并数据。

在您的首选位置创建一个文件夹Consolidation以存储您的所有源工作簿。当宏运行时,它将切换存储在此文件夹中的每个工作簿,从各个工作表中复制内容,并将其放置在合并工作簿中。

创建自己的 Excel VBA 代码

一旦先决条件不受影响,就该深入研究代码并开始修改基础知识以使其适应您的要求。

有关的:您必须知道的高级 Microsoft Excel 功能

在 Excel 上按Alt+F11键以打开 VBA 宏代码编辑器。粘贴下面编写的代码并将文件保存为启用宏的工作簿(扩展名为.xlsm)。

 


Sub openfiles()

'declare the variables used within the VBA code

Dim MyFolder As String, MyFile As String, wbmain As Workbook, lastrow As Long

'disable these functions to enhance code processing

With Application
.DisplayAlerts = False
.ScreenUpdating = False
End With

'change the path of the folder where your files are going to be saved

MyFolder = InputBox("Enter path of the Consolidation folder") & "\"

'define the reference of the folder in a macro variable

MyFile = Dir(MyFolder)

'open a loop to cycle through each individual workbook stored in the folder

Do While Len(MyFile) > 0

'activate the Consolidation workbook

Windows("Consolidation").Activate

'calculate the last populated row

Range("a1048576").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Select

'open the first workbook within the Consolidation folder

Workbooks.Open Filename:=MyFolder & MyFile

Windows(MyFile).Activate

'toggle through each sheet within the workbooks to copy the data

Dim ws As Worksheet
For Each ws In Sheets
 
 ws.Activate
 ws.AutoFilterMode = False
 
 'ignore the header and copy the data from row 2
 If Cells(2, 1) = "" Then GoTo 1
 
 
 GoTo 10
 
1: Next

10: Range("a2:az20000").Copy

Windows("Consolidation").Activate

'paste the copied contents

ActiveSheet.Paste

Windows(MyFile).Activate

'close the open workbook once the data is pasted

ActiveWorkbook.Close

'empty the cache to store the value of the next workbook

MyFile = Dir()

'open the next file in the folder

Loop

'enable the disabled functions for future use

With Application
.DisplayAlerts = True
.ScreenUpdating = True
End With


End Sub

VBA 代码解释

代码的第一部分是定义一个包含所有 VBA 代码的子例程。使用sub定义子例程,后跟代码名称。子名称可以是任何东西;理想情况下,您应该保留一个与您将要编写的代码相关的名称。

有关的:学习 Excel 提示和技巧的网站和博客

Excel VBA 理解用户创建的变量及其用dim(维度)声明的相应数据类型。

为了提高代码的处理速度,您可以关闭屏幕更新并禁止所有警报,因为这会减慢代码执行速度。

系统将提示用户输入存储数据文件的文件夹路径。创建一个循环来打开存储在文件夹中的每个工作簿,复制每个工作表中的数据,并将其附加到Consolidation工作簿。

Excel VBA 代码片段

合并工作簿已激活,以便 Excel VBA 可以计算最后填充的行。选择工作表中的最后一个单元格,并使用偏移函数在工作簿中计算最后一行。当宏开始从源文件附加数据时,这非常有用。

当循环打开第一个源文件时,过滤器将从每个工作表中删除(如果存在),并且从 A2 到 AZ20000 的数据将被复制并粘贴到合并工作簿中。

重复该过程,直到所有工作簿工作表都附加到主工作簿中。

有关的:掌握高级 Excel 的最佳在线课程

最后,粘贴完所有数据后关闭源文件。打开下一个工作簿,以便 VBA 宏可以为下一组文件重复相同的步骤。

Excel VBA 代码片段

该循环被编码为运行,直到所有文件在主工作簿中自动更新。

基于用户的定制

有时,您不想担心内置提示,尤其是如果您是最终用户。如果您希望在代码中硬编码 Consolidation 文件夹的路径,您可以更改这部分代码:


MyFolder = InputBox("Enter path of the Consolidation folder") & "\"


MyFolder = “Folder path” & "\"

此外,您还可以更改列引用,因为此代码中不包含该步骤。只需将结束列引用替换为您最后填充的列值(在本例中为 AZ)。您需要记住最后填充的行是通过宏代码计算的,因此您只需更改列引用。

要充分利用此宏,您只能使用它来合并相同格式的工作簿。如果结构不同,则不能使用此 VBA 宏。

使用 Excel VBA 宏合并多个工作簿

创建和修改 Excel VBA 代码相对容易,特别是如果您了解代码中的一些细微差别。VBA 系统地贯穿每一行代码并逐行执行。

如果您对代码进行任何更改,您必须确保不要更改代码的顺序,因为这会中断代码的执行。

THE END
喜欢就支持一下吧
点赞2250 分享
最好用的邮件客户端,完全免费开源!支持多平台  Thunderbird-零度博客

最好用的邮件客户端,完全免费开源!支持多平台 Thunderbird

Thunderbird 是一款免费的电子邮件应用程序,配置简单,定制自由——还附有强大功能! 官方下载:https://www.thunderbird.net   专为您量身打造 Thunderbird 将速度、隐私与最新技术融合...
最新爆料:DeepSeek R2 即将发布!成本比GPT-4o暴跌 97%-零度博客

最新爆料:DeepSeek R2 即将发布!成本比GPT-4o暴跌 97%

近日,AI领域迎来一则爆炸性消息——国内顶尖AI研究机构深度求索(DeepSeek)即将推出新一代混合专家模型(MoE)DeepSeek R2。该模型不仅在规模上达到世界顶级水平,更在推理效率、成本控制及国...
admin的头像-零度博客admin
1.2W+2531
2022年 最强的13款应用程序!每款软件都非常的实用-零度博客

2022年 最强的13款应用程序!每款软件都非常的实用

  1. 微软评选2022年年度最佳应用程序  2. 评选应用程序的范围  3. TOTP 双重因素身份验证器 【点击前往】 4. 电脑屏幕录制工具 【点击前往】 5.屏幕截图和GIF动图制作 【点击前往】 6. ...
admin的头像-零度博客admin
1.8W+2250
7个有趣而且实用的网站!-零度博客

7个有趣而且实用的网站!

1.纸币收藏网站:https://www.realbanknotes.com 2.文字转语音平台:https://coder.work/text2audio 3.恶作剧:https://pranx.com/windows-xp-simulator 4.谷歌地图上驾驶车辆:https://framesyn...
admin的头像-零度博客admin
1.7W+2250
ChatGPT 王炸升级新!无敌的 GPT-4 Turbo上线了, 多模态大整合的 OpenAI 轻松让AI帮你赚钱! | 零度解说-零度博客
我们的童年记忆为何如此高度相似?70后、80后、90后 看完就知道为啥了!-零度博客
這5款免費軟體,希望你知道的越早越好!2020 | 零度解說-零度博客

這5款免費軟體,希望你知道的越早越好!2020 | 零度解說

https://youtu.be/ME2jxWLltA0 更多视频▶https://www.youtube.com/channel/UCvijahEyGtvMpmMHBu4FS2w?sub_confirmation=1 打赏支持零度▶https://www.paypal.me/JL2010?locale.x=zh_XC onlyoff...
立即更改!路由器上的这7个设置,确保你的网络安全!!-零度博客
真正去中心化的手机钱包!加密货币APP推荐-零度博客

真正去中心化的手机钱包!加密货币APP推荐

1.Unstoppable 【官方下载】 2.Trust Wallet【点击下载】 3.Electrum 【点击获取】  
admin的头像-零度博客admin
1.6W+2251