如何将txt批量导入excel（对excel宏了解的一定看过来谢谢了）有工具也行

Question

我有若干篇文章打算批量导入 excel一个表，要求一个txt文件的内容写入表中的一个指定单元格。比如有1.txt、2.txt、3.txt三个文件，指定分别导入 a1 文件名1 a2 文件名2 a3 文件名3
b1、b2、b3三个单元格。 特别说明文章内容一定导入一格内，否则无法入库 文章里有许多特殊字符，标点符号空格等，
我曾经用如下宏代码 就是一遇到空格行及换行就自动换行了，把完整的内容换成若干行了，谁能修改一下也行。
Sub Find()
Application.ScreenUpdating = False
Dim MyDir As String
MyDir = "L:\zuijin\chuli"
ChDrive Left(MyDir, 1)
ChDir MyDir
Match = Dir$("*.txt")
Do
Workbooks.Open Match, 0
ThisWorkbook.ActiveSheet.Range("B65000").End(xlUp).Offset(1, -1) = Left(Match, Len(Match) - 4)
Range("A1").CurrentRegion.Copy ThisWorkbook.ActiveSheet.Range("B65000").End(xlUp).Offset(1, 0)
Windows(Match).Close 0
Match = Dir$
Loop Until Len(Match) = 0
Application.ScreenUpdating = True
End Sub
jmeycn 你好我运行了但是不成功，再次说明我是有上千个txt文章批量导入excel 文件名一格 内容一格内容不要拆分全部放在一个单元格，最终我是导入网站。

Answer 1

假设你所有的文本文件都在“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

Answer 2

真复杂

Answer 3

17页，本身已经设置