一个EXCEL文件中批量导入txt文件

Question

现在有500多个txt文件，文件名是1开始，到550~~
希望将txt文件中的内容，导入一个excel中。

这个就是txt文档的内容，蓝线圈起来的，就是我需要的信息，希望能有高手做给宏，直接把我需要的信息导入excel，每一个txt文档的有效信息，在一行，分别在不同的单元格。下面的图就是我所需要的结果：

要是那样比较麻烦，就把txt的信息全部导入excel都行，但是内容要分单元格。
最好是直接给我一个做好宏的excel文档~~谢谢了~~

Answer 1

第一步，将txt文档合并为一个大的txt文档。
打开记事本，输入for %%i in (*.txt) do type %%i>>0.txt（可将该命令复制粘贴过去）
然后将文件保存到500多个txt文件所在的文件夹，文件的后缀名为.bat文件。比如保存为all.bat

在文件夹中双击运行all.bat批处理文件，将文件夹中所有txt文档合并为一个名字叫0.txt的文档。

第二步，打开excel文档，新建一个工作表，然后打开0.txt，将内容全部复制粘贴到这个新工作表的A列。

第三步，在这个新工作表的B列、C列、D列等列设置公式
根据txt文件内容的特殊字符，自动从txt中截取所需内容。

或者将txt文件合并粘贴到新工作表后，将文件发我Q：1055581074追问

这个才是实际解决问题的达人啊~~~我单个拷贝拷贝得手都酸了。。。立马按你说的去办。。。但是提取内容俺不会哦，我先合并去，然后把文件发你qq邮箱，谢谢达人~~

Answer 2

数据-导入外部数据-导入数据-选择你要导入的txt就可以了啊
不知道你要问什么啊。
估计够呛啊。我的03excel最大列才256.你就是一个txt一列也不够用啊。。。。

Answer 3

假设你所有的文本文件都在“D:\text”目录下，我们只处理.txt文件。
步骤1：导出文件列表
点xp系统的开始菜单，点“运行”命令，输入cmd再回车，进入命令窗口，输入
命令 dir D:\text\*.txt /b /on > c:\list.txt ,回车。现在在c:盘下会有个list文件，包含要处理de文件的文件名。
步骤2：运行下面代码。
Option Explicit
Public Const sPath As String = "D:\text" '请改为你的txt所在的路径
Public FileName() As String '要处理的文件名
Public MyString() As String '从text中读取内容
Sub ReadFile()
Dim getLine '每次读取一行数据
Dim i%, t%, k%
i = FreeFile
Open "c:\list.txt" For Input As #i ' 打开输入文件。
Do While Not EOF(i)
Input #i, getLine '将数据读入变量。
t = t + 1
Loop
k = t - 1
ReDim FileName(k), MyString(k)
t = 0
Seek #i, 1 '设置文件的第一条记录
Do While Not EOF(i)
Input #i, FileName(t)
FileName(t) = sPath & "\" & FileName(t)
t = t + 1
Loop
Close #i ' 关闭文件。
'读取txt内容到本excel表格
For t = 0 To k
i = FreeFile
Open FileName(t) For Input As #i
Do While Not EOF(i)
Input #i, getLine
MyString(t) = MyString(t) & vbNewLine & getLine
Loop
Close #i
With ThisWorkbook.Sheets(1)
.Cells(t + 1, 1) = FileName(t)
.Cells(t + 1, 2) = Right(MyString(t), Len(MyString(t)) - 2)
End With
Next t
End Sub追问

莫拷贝复制。。。要针对这个问题来实际解决。。。感谢你的回答，但是，无法操作。。宏的代码也不对~~谢谢