【一步一步學習VBA】Excel VBA 讀取txt文件並寫入Excel單元格

我們首先在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工作表如下：

 

當然我們更好的處理方式就是讀取將每一行，按照空格再分為不同的單元格，這個實現請看下一篇文章
————————————————
版權聲明：本文為CSDN博主「chenqiai0」的原創文章，遵循CC 4.0 BY-SA版權協議，轉載請附上原文出處鏈接及本聲明。
原文鏈接：https://blog.csdn.net/chenqiai0/article/details/52137528/