求教：怎样用vba批量读取B列路径的手机号码并写入单元格。如图Excel和txt在同目录下，txt内容只有手机号码，

Sub 读取文本()

Pt = ThisWorkbook.Path  '获取文件路径

For i = 2 To Range("A" & Rows.Count).End(xlUp).Row

    Open Pt + "\" + ThisWorkbook.Worksheets("Sheet1").Range("A" & i) + ".txt" For Input As #1 '打开文本
    
          a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)  '读取文本，数组
      
    Close #1  '关闭文本
    
    ThisWorkbook.Worksheets("Sheet1").Range("B" & i) = a(0) '读取每个文本的第一行数据

Next

End Sub