我们首先在Excel文件所在目录创建一个文件a.txt,文件内容如下：
1111 222
222 333
333 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 #1
k = UBound(a)
For i = 0 To k
Worksheets("sheet2").Cells(i + 1, 1) = a(i)
Next
End Sub写入以后我们可以看到sheet2工作表如下：
当然我们更好的处理方式就是读取将每一行，按照空格再分为不同的单元格，这个实现请看下一篇文章
最后
以上就是光亮毛豆最近收集整理的关于【一步一步学习VBA】Excel VBA 读取txt文件并写入Excel单元格的全部内容，更多相关【一步一步学习VBA】Excel内容请搜索靠谱客的其他文章。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
![ThinkPHP SQLSTATE[HY000]: General error: 2014 Cannot execute queries while other unbuffered queries SQLSTATE[HY000]: General error: 2014 Cannot execute queries while other unbuffered queries are active. Consider using PDOStatement::fetchAll(). Altern](/uploads/reation/bcimg8.png)
发表评论 取消回复