`
发表于2024/4/20 17:13:29 楼主 
头像 等级:初学者
积分:0
财富值:2.0
身份:普通用户

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

我的个性签名
CKD
发表于 2024/4/21 11:30:20   
头像 等级:初学者
积分:6
财富值:2
身份:普通用户
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
我的个性签名

快速回复

目前不允许游客发表,请 登录 注册 后再发贴。