Excel VBA编写excel数据汇总宏命令

kendybear

已于 2022-08-03 20:01:20 修改

阅读量3.9k

点赞数 1

分类专栏： Excel VBA编程文章标签： windows

于 2022-08-03 13:15:31 首次发布

本文链接：https://blog.csdn.net/kendybear/article/details/126138236

版权

本文介绍如何使用VBA编程来创建一个Excel宏，自动汇总数据文件夹中所有Excel文件Sheet1的数据，并将结果保存为新的“已完成.xlsx”文件。步骤包括设置数据文件夹，遍历文件，复制数据到新工作簿，最后保存并重命名。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、概述

最近刚好有需求，就研究了下VBA编程，使用excel的宏命令编写了一个数据汇总小工具，汇总指定目录下的所有excel文件seet1的数据至一个新的excel表中，设计思想如下：
1、将要汇总的excel文件放置在一个“数据文件夹”中；
2、遍历该“数据文件夹”中的所有excel表sheet1的数据；
3、复制数据到一个新建工作簿中；
4、保存工作簿并更名为“已完成”；
5、最终就会看到新生成了一个“已完成.xlsx”。

二、代码

新建一个“模板”，再新建一个“过程”，编写VBA程序，代码如下：

'汇总指定文件夹下的所以excel表sheet1数据至新工作簿中
Sub Merge()
Dim curdir, fs, f, fc, f1, fname, wb, sht

'获取当前文件目录
curdir = ThisWorkboo

最低0.47元/天解锁文章