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

一、概述

最近刚好有需求，就研究了下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