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

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

演示效果：

代码：

Sub 汇总文件夹下的所有TXT文件()
t = Timer
Dim i As Long
Dim f As String                         '定义f读取一个文件夹下所有文件的文件名信息
Dim full As String                      '定义full用来存放文件夹下某个文件的URL
Dim ws As Worksheet
Set ws = Worksheets("真香")             '存放读取结果
i = 1f = Dir("G:\网课\新建文件夹\")            '获取文件夹下的文件名Do While f <> ""                        '读取一个文件夹下所有文件full = "G:\网课\新建文件夹\" & fOpen full For Input As #1           '把full写入EXCELDo While Not EOF(1)             'full不为空Line Input #1, sws.Cells(i, 2) = si = i + 1                   '赋值LoopClose #1i = i + 2                           '下一文件数据的读取空两行f = Dir                             '读取下一个txt文件Loop
MsgBox Timer - t
End Sub

利用dir，还可以批量打开一个文件夹下的所有txt或者xlsx文件


Sub 操作文件夹下的文件()Dim file As Stringt = Timerfile = Dir("G:\网课\杨洋VBA\*.txt") '使用*号通配符加.txt可以找到任意txt文件'当然加.xlsx也没有问题
Do While file <> ""Open "G:\网课\杨洋VBA\" & file For Input As #1 '打开该路径下的file文件'这里可以添加实现某个操作的代码Close #1file = DirLoopMsgBox Timer - tEnd Sub

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

java命令 jar文件夹_java中jar命令打包一个文件夹下的所有文件
(1)首先,必须保证java的所有路径都设置好,在dos提示符下输入jar -help 出现C:\Documents and Settings\dly>jar -help 非法选项:h 用法:j ...
Python判断两个文件夹中互相不同的文件有哪些、判断一个文件夹相对于另外一个文件夹缺少了哪些文件
Python判断两个文件夹中互相不同的文件有哪些.判断一个文件夹相对于另外一个文件夹缺少了哪些文件目录 Python判断两个文件夹中互相不同的文件有哪些.判断一个文件夹相对于另外一个文件夹缺少了哪些 ...
把文件夹下的所有文件打包成一个zip包
2019独角兽企业重金招聘Python工程师标准>>> 代码如下: 一.打包过程: 所需要jar包:安装上Java环境就可以了 package filetozip; import j ...
IO流递归拷贝一个文件夹里面的所有文件，到另一个文件夹。如果重复不拷贝，可续拷
import java.io.*;/*** IO流递归拷贝一个文件夹里面的所有文件,到另一个文件夹.如果重复不拷贝,可续拷* @author silence*/ public class IoCopy ...
java怎样输出一个文件夹,java合并一个文件夹下所有txt文件，输出到另一个txt，...
java合并一个文件夹下所有txt文件,输出到另一个txt,最近写了个单元测试,递归调用方法,把同一个文件夹里所有的txt合并输出到一个txt文件.参考了两个博客,分别是已有的方法,还有个就是检测tx ...
python把模块装到文件夹中_把模块有关联的放在一个文件夹中在python2中调用文件夹名会直接失败在python3中调用会成功，但是调用不能成功的解决方案...
把模块有关联的放在一个文件夹中在python2中调用文件夹名会直接失败在python3中调用会成功,但是调用不能成功解决办法是: 在该文件夹下加入空文件__init__.py python2会把 ...
matlab移动文件到另一个文件夹里,Matlab将文件分类移动到不同文件夹中
一个文件夹中有很多后缀名一样的文件,比如说tiff文件,想根据命名中的分类规律分别把这些文件移动到不同的文件夹中进行归类. 原始文件: 分别想要放到这四个文件夹中: clc clear all fil ...
C++ 复制一个文件夹下的所有文件到另一个文件夹
C++ 复制一个文件夹下的所有文件到另一个文件夹 #include "Shellapi.h"#include "tchar.h"// 告诉编译器在编译形成的.o ...
把模块有关联的放在一个文件夹中在python2中调用文件夹名会直接失败在python3中调用会成功，但是调用不能成功的解决方案...
把模块有关联的放在一个文件夹中在python2中调用文件夹名会直接失败在python3中调用会成功,但是调用不能成功解决办法是: 在该文件夹下加入空文件__init__.py python2会把 ...

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

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

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

最新文章

热门文章