VBA每日一练（8），导入文件夹内的多个txt文件到1个sheet

1 问题: 导入多个txt，到一个sheet

1.1原始数据

1.2目标结果

 

2 代码:

代码1 ：很挫的版本

• 还没自动识别多个文件
• 而且没把TXT的内容分行
• 第1行1 a 还会被EXCEL识别错误

Sub jackMa1_piLiangDaoRu1()

For i = 1 To 5  '后面考虑加下先查下文件夹内的文件数，而不这么写死
   k = 1
   Open "C:\Users\Administrator\Desktop\test1" & "\test0" & i & ".txt" For Input As #1
   Do While Not EOF(1)
      Line Input #1, str1
      Sheets("a").Cells(k, i) = str1  '之后考虑先把TXT的内容，每行分列导入，暂时就整行导入
      k = k + 1
   Loop
   Close #1
Next i

End Sub

代码2：改进版本，解决读文件夹内的文件数问题

Sub jackMa1_piLiangDaoRu1()

x1 = CreateObject("scripting.FileSystemObject").GetFolder("C:\Users\Administrator\Desktop\test1").Files.Count


For i = 1 To x1
   k = 1
   Open "C:\Users\Administrator\Desktop\test1" & "\test0" & i & ".txt" For Input As #1
   Do While Not EOF(1)
      Line Input #1, str1
      Sheets("a").Cells(k, i) = str1  '之后考虑先把TXT的内容，每行分列导入，暂时就整行导入
      k = k + 1
   Loop
   Close #1
Next i


End Sub