如何批量将TXT导入EXCEL,文件名作为一列,内容分列填入？？？

潇潇花韵

我现在有多个txt文件，文件的格式都是一致的，共三列，现在想将多个txt合并到一个excel中，合并的excel共四列，第一列为各个txt的文件名，其他三列分别为txt中的三列信息，且要求，第四列为文本格式。感觉很复杂，下面是我附上的示例，希望各位大神能够帮忙解决，拜谢拜谢啊！

lfspecter

这个看起来还是要VBA才行。

kszcs

同求。我的是15列，也是这样的格式

zwty512

我也遇到同样的情况，有能给出方法的吗？

小花鹿

zwty512 发表于 2021-7-7 19:46
我也遇到同样的情况，有能给出方法的吗？

这是16年的老帖子了，论坛里面有关TXT导入EXCEL的例子很多                                                

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr(1 To 10000, 1 To 4)
   
4.   Dim mypath$, myname$
   
5.   mypath = ThisWorkbook.Path & ""
   
6.   myname = Dir(mypath & "*.txt")
   
7.   m = 0
   
8.   Do While myname <> ""
   
9.     Open mypath & myname For Input As #1
   
10.     arr = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
    
11.     Close #1
    
12.     wjm = Split(myname, ".")(0)
    
13.     For i = 0 To UBound(arr)
    
14.       If InStr(arr(i), Chr(9)) <> 0 Then
    
15.         m = m + 1
    
16.         brr(m, 1) = wjm
    
17.         xm = Split(arr(i), Chr(9))
    
18.         For j = 0 To UBound(xm)
    
19.           brr(m, j + 2) = xm(j)
    
20.         Next
    
21.       End If
    
22.     Next
    
23.     myname = Dir
    
24.   Loop
    
25.   With Worksheets("sheet1")
    
26.     .UsedRange.Offset(1, 0).Clear
    
27.     .Columns(4).NumberFormatLocal = "@"
    
28.     .Range("a1").Resize(m, UBound(brr, 2)) = brr
    
29.   End With
    
30. End Sub
    

复制代码

chxw68

回复个老贴子，希望对需要者有所帮助。