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

drakones

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

求指点，十分感谢！

3190496160

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

drakones

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

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

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

liulang0808

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

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

drakones

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

太感谢了！！！！！！

liulang0808

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

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

以后代码，可以参考下

drakones

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

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