作者lag1056 (Dr.Bai)
看板Office
標題[問題] VBA讀文字檔的一些問題
時間Wed Nov 22 11:35:03 2017
(若是和其他不同軟體互動之問題 請記得一併填寫)
板上的各位高手好
版本: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://webptt.com/m.aspx?n=bbs/Office/M.1511321705.A.CC6.html
4F：→ lag1056: 感謝大大~雖然我看不太懂 哈哈哈 11/22 13:35
5F：推 newton41: EOF 大概是 end of file ， EOF（1） 裡面的1 是前面 As 11/22 14:17
6F：→ newton41: 1 代表那個檔案 11/22 14:17
7F：→ newton41: 更正 as #1 11/22 14:18
8F：→ newton41: Do until EOF(1) loop 就是一直做到這個檔案的最終的迴 11/22 14:19
9F：→ newton41: 圈 11/22 14:19
10F：→ lag1056: 感謝大大 我有點懂這個在幹嘛了 11/23 13:34