锦到说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 = 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