[問題] VBA讀文字檔的一些問題

[lag1056 (Dr.Bai)]

(若是和其他不同軟體互動之問題 請記得一併填寫)

板上的各位高手好

版本:Excel 2007

小弟最近用excel vba寫了一個產出報表的功能
但其中有一段不知道該怎麼寫 就去向IT部門的同事求救
結果他沒幾下就幫我寫好了  留下一臉困惑的我
我主要是想利用EXCEL讀TXT檔 並加工做整理
我有逐行跑過那位同事寫的 他會把TXT檔中的文字一行一行讀出來
我想請問他這種寫法的意思是什麼
以下附上程式碼：

sheets("文字檔").select
i = 1
X = TXT1   (TXT1是讀取這個檔案的路徑)
open X for input as #1    (這行開始就看不懂了)
do until EOF(1)    (求解EOF(1)是什麼...)
    line input #1, X
    cells(i, 1) = X
    i = i + 1
loop
close #1

感謝各位大大耐心讀完 請救救小弟

--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 60.250.109.241
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1511321705.A.CC6.html
→ soyoso: open statement語法，msdn有說明 https://goo.gl/uG6KJ3
→ soyoso: eof function的部分 https://goo.gl/k9p4cv
→ soyoso: line input statement https://goo.gl/qaohrm
→ lag1056: 感謝大大~雖然我看不太懂 哈哈哈
推 newton41: EOF 大概是 end of file ， EOF（1） 裡面的1 是前面 As
→ newton41:  1 代表那個檔案
→ newton41: 更正 as #1
→ newton41: Do until EOF(1) loop 就是一直做到這個檔案的最終的迴
→ newton41: 圈
→ lag1056: 感謝大大 我有點懂這個在幹嘛了