|
我們首先在Excel文件所在目錄創(chuàng)建一個(gè)文件a.txt,文件內(nèi)容如下：
接著我們進(jìn)行文件的讀取,，并且寫入到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工作表如下：
當(dāng)然我們更好的處理方式就是讀取將每一行,，按照空格再分為不同的單元格,，這個(gè)實(shí)現(xiàn)請看下一篇文章
|
