锦到说VBA——汇总一个文件夹下面的所有文件到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 = 1

f = Dir("G:\网课\新建文件夹\")			'获取文件夹下的文件名

Do While f <> ""                        '读取一个文件夹下所有文件

    full = "G:\网课\新建文件夹\" & f
    Open full For Input As #1           '把full写入EXCEL
    
        Do While Not EOF(1)             'full不为空
            Line Input #1, s
            ws.Cells(i, 2) = s
            i = i + 1                   '赋值
        Loop
    
    Close #1
    
    i = i + 2                           '下一文件数据的读取空两行
    f = Dir                             '读取下一个txt文件
    
Loop
MsgBox Timer - t
End Sub

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

Sub 操作文件夹下的文件()

Dim file As String

t = Timer

file = Dir("G:\网课\杨洋VBA\*.txt") '使用*号通配符加.txt可以找到任意txt文件
                                    '当然加.xlsx也没有问题
Do While file <> ""

    Open "G:\网课\杨洋VBA\" & file For Input As #1 '打开该路径下的file文件
    
    '这里可以添加实现某个操作的代码
    Close #1
    
    file = Dir

Loop

MsgBox Timer - t

End Sub