VBA: 逐行读取文件

sub streamread()
	dim rline as string
	dim idx as long
	open activeworkbook.path & "/stream read.csv" for input as #1
	do while not eof(1)
		line input #1, rline
		idx = idx + 1
	loop
	close #1
end sub

大型文件逐行读取方法。