如何将多个txt文本导成一个Excel文档

hangjing

每个txt文本导入Excel后分成两列，标题列（A1、A2、A3...）和内容列(B1、B2、B3...)，标题就是文本的昵称,内容就是文本里的内容！ 想要达到的效果如下图：

liulang0808

楼主能结合某个文本文件说说怎么处理吗？

hangjing

liulang0808 发表于 2018-7-9 07:54
楼主能结合某个文本文件说说怎么处理吗？

例：txt文本

导入后示例

jjmysjg

这个结果挺新颖，等结果

duquancai

hangjing 发表于 2018-7-9 08:53

一个文本文件的内容放到Excel中对应的“1个”单元格中？

小花鹿

duquancai 发表于 2018-7-9 09:54
一个文本文件的内容放到Excel中对应的“1个”单元格中？

对                                                                                                                        

hangjing

duquancai 发表于 2018-7-9 09:54
一个文本文件的内容放到Excel中对应的“1个”单元格中？

是的！后期我是要拿来当数据库使用的！

duquancai

hangjing 发表于 2018-7-9 10:08
是的！后期我是要拿来当数据库使用的！

哦哦哦哦！

liulang0808

1. Sub test11()
   
2.     Set fso = CreateObject("scripting.filesystemobject")
   
3.     Application.ScreenUpdating = False
   
4.     a = 2
   
5.     For Each F In fso.getfolder(ThisWorkbook.Path).Files
   
6.         If InStr(F.Name, "汇总文本信息") = 0 Then
   
7.             Cells(a, 1) = Split(F.Name, ".txt")(0)
   
8. 
   
9.             Cells(a, 2) = ReadUTF(F)
   
10.             a = a + 1
    
11.         End If
    
12.     Next F
    
13.     Application.ScreenUpdating = True
    
14. End Sub
    
15. 
    
16. 
    
17. Function ReadUTF(ByVal FileName As String) As String
    
18.     With CreateObject("ADODB.Stream")
    
19.         .Type = 2    '读取文本文件
    
20.         .Mode = 3   '读写
    
21.         .Open
    
22.         .LoadFromFile FileName
    
23.         .Charset = "UTF-8"  '设定编码
    
24.         .Position = 2
    
25.         ReadUTF = .ReadText
    
26.         .Close
    
27.     End With
    
28. End Function
    

复制代码

liulang0808

供参考。。。。。。