如何循环生成文本文件
现有一个EXCEL表格里面有三千条记录,现在要将这三千条记录转换成文本文件,分成150个文件,每个文件中只放20条记录,请问怎样去做这个循环.自动生成150不同名字的文本文件。EXCEL表中字段:
学校 姓名 金额
一中 张小四 100
.... ...... .... --------------------编程问答-------------------- 这个好像很简单吧 --------------------编程问答-------------------- 使用Excel对象读出Excel内容（存入数组），然后再150个数组元素，使用Put语句存入文本文件。 --------------------编程问答-------------------- 楼上的可以写一下吗？我是新手不大会，谢谢了 --------------------编程问答-------------------- 这。。。。
写得太累。。。 --------------------编程问答--------------------
'先在Excel里面另存为文本文件‘3000.txt’，然后--------------------编程问答-------------------- 把 Excel 文件当作 Jet Engine 的外部数据库打开，查询全部记录，然后通过记录集的 MoveNext 方法逐条浏览，用 Print 语句写入文本文件。
dim i as long
dim head as string
dim ln as string
open "3000.txt" for input as #1
line input #1,head
for i=1 to 150
open right("00"+CStr(i),3)+".txt" for output as #2
print #2,head
for j=1 to 20
line input #1,ln
print #2,ln
next
close #2
next
close #1
补充：VB , 基础类
