【一步一步學習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：點擊