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

看板Office作者 (Dr.Bai)時間6年前 (2017/11/22 11:35), 編輯推噓1(1推 0噓 9→)
留言10則, 3人參與, 6年前最新討論串1/1
(若是和其他不同軟體互動之問題 請記得一併填寫) 板上的各位高手好 版本: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
→
11/22 11:40, 6年前 , 1F
open statement語法，msdn有說明 https://goo.gl/uG6KJ3
11/22 11:40, 1F
→
11/22 11:42, 6年前 , 2F
eof function的部分 https://goo.gl/k9p4cv
11/22 11:42, 2F
→
11/22 11:48, 6年前 , 3F
line input statement https://goo.gl/qaohrm
11/22 11:48, 3F
→
11/22 13:35, 6年前 , 4F
感謝大大~雖然我看不太懂 哈哈哈
11/22 13:35, 4F
推
11/22 14:17, 6年前 , 5F
EOF 大概是 end of file ， EOF（1） 裡面的1 是前面 As
11/22 14:17, 5F
→
11/22 14:17, 6年前 , 6F
1 代表那個檔案
11/22 14:17, 6F
→
11/22 14:18, 6年前 , 7F
更正 as #1
11/22 14:18, 7F
→
11/22 14:19, 6年前 , 8F
Do until EOF(1) loop 就是一直做到這個檔案的最終的迴
11/22 14:19, 8F
→
11/22 14:19, 6年前 , 9F
圈
11/22 14:19, 9F
→
11/23 13:34, 6年前 , 10F
感謝大大 我有點懂這個在幹嘛了
11/23 13:34, 10F
‣ 更多 lag1056 的文章
文章代碼(AID): #1Q5F1fp6 (Office)