如何批量导入txt内容，到对应的表格行？

drakones · 发表于 2023-3-31 18:35

本帖最后由 drakones 于 2023-4-1 05:54 编辑

如图，A列名字跟txt文件名是一致的，需要把txt的内容，导入对应名字的描述列。

求指点，十分感谢！

3190496160 · 发表于 2023-3-31 19:25

生成附件应该是有办法的，没有附件，肯定是没有办法的

drakones · 发表于 2023-4-1 05:48

3190496160 发表于 2023-3-31 19:25
生成附件应该是有办法的，没有附件，肯定是没有办法的

谢谢你的关注，附件已经生成添加。

因为量比较多，附件我只摘录了两行用作实验。

liulang0808 · 发表于 2023-4-1 07:37

Sub test()
Set fso = CreateObject("scripting.filesystemobject")
arr = ActiveSheet.UsedRange
For j = 2 To UBound(arr)
      f = ThisWorkbook.Path & "\docs\" & arr(j, 1) & ".txt"
      If fso.fileexists(f) Then
         arr(j, 3) = ReadTextFile(f)
      End If
Next j
ActiveSheet.UsedRange = arr
End Sub

Function ReadTextFile(FileName)
Dim oStream    As Object
Dim sText    As String
Set oStream = CreateObject("ADODB.Stream")
oStream.Open
oStream.CharSet = "utf-8"
oStream.Type = 2
oStream.LoadFromFile FileName
ReadTextFile = oStream.ReadText()
oStream.Close
Set oStream = Nothing
End Function

liulang0808 · 发表于 2023-4-1 07:39

..................

drakones · 发表于 2023-4-1 07:49

本帖最后由 drakones 于 2023-4-1 07:53 编辑

liulang0808 发表于 2023-4-1 07:39
..................

太感谢了！！！！！！

liulang0808 · 发表于 2023-4-1 07:49

drakones 发表于 2023-4-1 07:49
太感谢了！！！！！！

能教我怎么做吗？以后我自己可以导入。

以后代码，可以参考下

drakones · 发表于 2023-4-1 07:51

本帖最后由 drakones 于 2023-4-1 07:55 编辑

liulang0808 发表于 2023-4-1 07:49
以后代码，可以参考下

好的！！！非常感谢！！！！
看到代码了，基本看懂了！！感谢！

		自动登录	找回密码
密码			免费注册

[求助] 如何批量导入txt内容，到对应的表格行？

评分

评分

评分