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

86 阅读 0 评论 57 点赞

我是靠谱客的博主淡定季节，这篇文章主要介绍如何将多个.TXT文本文件合并到一个excel表中，现在分享给大家，希望可以做个参考。

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

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

复制代码

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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