【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格

我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下：

1111 222222 333333 444

接着我们进行文件的读取，并且写入到Excel中，代码如下：

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

写入以后我们可以看到sheet2工作表如下：

当然我们更好的处理方式就是读取将每一行，按照空格再分为不同的单元格，这个实现请看下一篇文章