锦到说VBA——汇总一个文件夹下面的所有文件到EXCEL中

最新推荐文章于 2023-12-17 22:21:16 发布

高开低走。

最新推荐文章于 2023-12-17 22:21:16 发布

阅读量3.1k

点赞数 2

CC 4.0 BY-SA版权

分类专栏：锦到说VBA

本文链接：https://blog.youkuaiyun.com/qq_43568982/article/details/89035918

锦到说VBA——汇总一个文件夹下面的所有文件到EXCEL中

问题描述：一个文件夹下有多个文件，需要批量合并其中的内容到同一个EXCEL中。

演示效果：

在这里插入图片描述
代码：

Sub 汇总文件夹下的所有TXT文件()
t = Timer
Dim i As Long
Dim f As String                         '定义f读取一个文件夹下所有文件的文件名信息
Dim full As String                      '定义full用来存放文件夹下某个文件的URL
Dim ws