如何将<em>多个</em>txt文件批量导入一个<em>excel</em&

Sub ImportingText()
Dim MyDir As Object
Dim MyDate As Object
Dim i, j, k As Integer
Const ForReading = 1
i = 1
Sheet2.UsedRange.ClearContents
Sheet3.UsedRange.ClearContents
Set MyDir = CreateObject("Scripting.FileSystemObject").GetFolder(ThisWorkbook.Path & "log\")
Set MyFile = MyDir.Files
For Each File In MyFile
s = File.Name
Sheet2.Cells(i, 1) = s
i = i + 1
Next
Set MyDir = Nothing
Sheet2.Select

End Sub
这个是知将某个目录下所有文件名道读取的专vba，你稍微改改就好了属

可以考虑先用zddos命令，合并所有txt
比如说在 E:\ 盘符下有两个文回件
1.txt
2.txt
需要合并为一个txt文件，cmd进入答dos命令，E:\>copy 1.txt + 2.txt all.txt
然后再把all.txt导入或直接拖入excel打开
问题是你的txt里面的内百容是不是按照Excel格式中的.csv文件格度式写的？即以逗知号分隔符和换行来划分不同段的内容？道
如果是，直接用cmd命令ren *.txt *.csv就行专了。如果不是，那就不是有没属有方法的问题了。

手工操作：数据百 - 导入外部数据 - 导入数据
文件类型选文本文度件，找到需要打开的文本文件，进入文本导入向导 分列步骤
选择分隔符专号 - 选择空格 - 选择跳过哪些列，导入属成功。

这个过程你可以录制 宏 ，加快效率。