如何循环生成文本文件

Question

现有一个EXCEL表格里面有三千条记录,现在要将这三千条记录转换成文本文件,分成150个文件,每个文件中只放20条记录,请问怎样去做这个循环.自动生成150不同名字的文本文件。EXCEL表中字段:
         学校       姓名     金额
         一中      张小四     100
         ....      ......     ....

Answer 1

使用Excel对象读出Excel内容（存入数组），然后再150个数组元素，使用Put语句存入文本文件。

Answer 2

'先在Excel里面另存为文本文件‘3000.txt’，然后
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

Answer 3

把 Excel 文件当作 Jet Engine 的外部数据库打开，查询全部记录，然后通过记录集的 MoveNext 方法逐条浏览，用 Print 语句写入文本文件。