作者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/cn.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