楼主:
lag1056 (polovoe)
2017-11-22 11:35:03(若是和其他不同软件互动之问题 请记得一并填写)
板上的各位高手好
版本: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
感谢各位大大耐心读完 请救救小弟
作者: newton41 (Newton) 2017-11-22 14:17:00
EOF 大概是 end of file ， EOF（1） 里面的1 是前面 As1 代表那个档案更正 as #1Do until EOF(1) loop 就是一直做到这个档案的最终的循环