国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

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)  '讀取文本，數(shù)組
      
    Close #1  '關(guān)閉文本
    
    ThisWorkbook.Worksheets("Sheet1").Range("B" & i) = a(0) '讀取每個文本的第一行數(shù)據(jù)

Next

End Sub