【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格(友好版)

上一篇文章我们提到:更好的处理方式就是读取将每一行,按照空格再分为不同的单元格

代码实现如下:

Sub bb()
Dim a, b, k%, i%, j%, q%
Open "a.txt" For Input As #1
 a = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)
   Close #1
k = UBound(a)
For i = 0 To k
   b = Split(a(i), " ")
   q = UBound(b)
   For j = 0 To q
     Worksheets("sheet2").Cells(i + 1, j + 1) = b(j)
   Next
Next
End Sub

其实我们就是对txt读取的字符串,在进行按照空格进行区分而已。

现在文件写入如下:



上面是Txt读取然后写入Excel,我的 另外一篇文章是从Excel写入Txt:点击

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页