求助，如何在多个TXT文件中提取数值至Excel!!!!

Question

需要把第一张图片与第二张图片中，红色框数据提取出来，制作成第三张图片的效果。第一列是红色框六位数值，第二列是对应的文件名。

在线等，谢谢

Answer 1

代码如下

Sub Txt文件处理()
Dim t, pT As String, fn As String, fnpt As String, mystr As String, k As Long
t = Timer
Range("A:B") = ""
Range("A:B").NumberFormatLocal = "@"
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
  If .SelectedItems.Count = 0 Then
    MsgBox "没有选择文件夹"
    Exit Sub
  Else
    pT = .SelectedItems(1)
  End If
End With
fn = Dir(pT & "\*.txt")
Do While fn <> ""
  fnpt = pT & "\" & fn
  Open fnpt For Input As #1
    Do While Not EOF(1)
    Line Input #1, mystr
      If InStr(mystr, "-------------") > 0 Then
        mystr = Mid(mystr, 12, 6)
        k = k + 1
        Cells(k, "A") = mystr
        Cells(k, "B") = Format(Left(fn, Len(fn) - 4), "000")
      End If
    Loop
  Close #1
fn = Dir
Loop
MsgBox "处理完成，共用时" & Timer - t & "秒"
End Sub

Answer 2

提取的行前面是LU138501。。。然后呢？后面被挡住了一位

文本文件传上来，测试下追问

文本文件怎么上传？