Question

vba怎么一行一行的读取txt文件内容

Answer 1

Set fs = CreateObject("Scripting.FileSystemObject")
strBomName = fs.getfilename(路径)
Set fs = Nothing

Open strBomDir For Input As #1

Do While Not EOF(1)

intLine = intLine + 1

Line Input #1, strLine

Loop

你可以参考下 数据存在Strline里

Answer 2

dim i as,s() interage
Open "你的文件路径" For Input As #1
Do Until EOF(1)
s(i++)=Input #1,name,id,score '姓名,学号,成绩

Loop
for k=0 to i
print s(i)

ok