如何将多个.TXT文本文件合并到一个excel表中

蒙奇奇的蒙

于 2020-03-25 18:28:55 发布

阅读量8.5k

点赞数 2

文章标签： excel vba

本文链接：https://blog.csdn.net/weixin_43677714/article/details/105101591

版权

本文介绍了一种使用VBA代码批量将多个TXT文本文件合并到一个Excel表格中的方法。通过在Excel中运行特定的VBA宏，可以自动读取指定文件夹下所有TXT文件的内容，并将其逐条记录在Excel的不同行中。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

如何将多个.TXT文本文件合并到一个excel表中

将要合并的多个.TXT文本置于同一个文件夹中，并新建excel表格。在excel中输入以下代码：

Sub all_contents()

Application.ScreenUpdating = False

P = ActiveWorkbook.Path & "/"

N = 1

For Each File In CreateObject("Scripting.FilesyStemObject").GetFolder(P).Files

If File.Name Like "*.TXT" Then

S = CreateObject("Scripting.FileSystemObject").OpenTextFile(P & File.Name, 1, False).ReadAll()

T = Split(S, vbLf)

Cells(N, 1).Resize(UBound(T) + 1, 1) = Application.Transpose(T)

End If

N = N + UBound(T)

Next

Application.ScreenUpdating = True

MsgBox "恭喜大人，已成功合并文本。"

End Sub