通过关键字提取TXT整行内容

13758088904

大家好我初学VBA，实在是好多东西不懂，请教各位大神。在此谢过。
目的：通过关键字提取TXT的整行内容。
在EXCEL条码栏进行扫码，根据扫码内容（7483301972394744204J2080555）去TXT文件中查找相同条码的整行数据。
再次谢谢。

13758088904

有人吗有人吗

蓝桥玄霜

请见代码。

13758088904

蓝桥玄霜 发表于 2018-9-29 13:48
请见代码。

谢谢，万分感谢，让我试试。。。有没有复制下来的。。。我打字比较慢~

13758088904

蓝桥玄霜 发表于 2018-9-29 13:48
请见代码。

If d.exists(Arr(i, 2)) Then
这句话提示我类型不匹配怎么弄

13758088904

Sub lqxs()
Dim a() As String, b() As String, i&, j&, n&, d
Set d = CreateObject("Scripting.Dictionary")
Open ThisWorkbook.Path & "\1.txt" For Input As #1
a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vncrlf)
For i = 0 To UBound(a)
    If a(i) <> "" Then
      b = Split(a(i))
      d(b(1)) = i
    End If
Next
Close #1
Arr = [a1].CurrentRegion
For i = 6 To UBound(Arr)
    If d.exists(Arr(i, 2)) Then
    n = d(Arr(i, 2))
    b = Split(a(n))
    For j = 0 To UBound(b)
        Cells(i, j + 1) = b(j)
    Next
这段代码输入好了，可是并没有什么反映啊

蓝桥玄霜

a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vncrlf)
应为：
a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbcrlf)
请仔细核对抄写的代码，初学者常常会抄错的。