.版本 2
.支持库 eExcel2000
Excel工作簿1.置程序 (Excel程序1) ' 设置工作簿于excel程序领导之下
Excel工作簿1.打开 (取当前目录 () ＋ “\” ＋ 年级数 ＋ “.xls”) ' 本来可以加个文件名的,如果没有文件,则另存为吧.
Excel工作簿1.表格序号 ＝ 1 ' 设置第一张表为工作表.
Excel程序1.显示 ＝ 真
' 以下是把数据库中的查询结果放入excel程序里
tempnum ＝ 1 ' 第一条记录
tempnumtext ＝ 到文本 (tempnum)
外部数据库1.到首记录 (记录集句柄1)
.判断循环首 (外部数据库1.尾记录后 (记录集句柄1) ＝ 假) ' 是不是已经到了尾记录了.如果不是,继续.
.变量循环首 (1, 33, 1, loopnum) ' 共有33个字段,每行显示33段,在excel表中表示列.tempnum表示为行
Excel工作簿1.首单元格 ＝ 表列数组 [loopnum] ＋ tempnumtext
Excel工作簿1.尾单元格 ＝ 表列数组 [loopnum] ＋ tempnumtext
Excel工作簿1.内容格式 ＝ “@” ' 这代表是文本型的数据.本行可读可写,你可以先设置好格式,然后读一下,显示是什么,再设置
Excel工作簿1.内容 ＝ 外部数据库1.读 (记录集句柄1, loopnum)
.变量循环尾 ()
外部数据库1.到后一记录 (记录集句柄1)
tempnum ＝ tempnum ＋ 1
tempnumtext ＝ 到文本 (tempnum)
.判断循环尾 ()
' Excel工作簿1.保存 (取当前目录 () ＋ “\” ＋ 年级数 ＋ “.xls”)
' Excel工作簿1.关闭 ()
' Excel程序1.退出 ()
温馨提示：答案为网友推荐，仅供参考