作者：乔山办公网日期：
返回目录：excel表格制作
额怎么没人啊我也要啊
Excel工作簿1.置程序 (Excel程序1) ' 设置工作簿于excel程序领导之下Excel工作簿1.打开 (取当前目录 () ＋“\” ＋ 年级数 ＋“.xls”) ' 本来可以加个文件名的,如果没有文件,则另存为吧.Excel工作簿1.表格序号 ＝ 1 ' 设置第一张表为工作表.Excel程序1.显示 ＝真' 以下是把数据库中的查询结果放入excel程序里tempnum ＝ 1 ' 第一条记录tempnumtext ＝ 到文本 (tempnum)外部数据库1.到首记录 (记录集句柄1).判断循环首 (外部数据库1.尾e799bee5baa6e997aee7ad94e4b893e5b19e339记录后 (记录集句柄1) ＝假) ' 是不是已经到了尾记录了.如果不是,继续..变量循环首 (1, 33, 1, loopnum) ' 共有33个字段,每行显示33段,在excel表中表示列.tempnum表示为行Excel工作簿1.首单元格 ＝ 表列数组 [loopnum] ＋ tempnumtextExcel工作簿1.尾单元格 ＝ 表列数组 [loopnum] ＋ tempnumtextExcel工作簿1.内容 ＝ 外部数据库1.读 (记录集句柄1, loopnum).变量循环尾 ()外部数据库1.到后一记录 (记录集句柄1)tempnum ＝ tempnum ＋ 1tempnumtext ＝ 到文本 (tempnum).判断循环尾 ()' Excel工作簿1.保存 (取当前目录 () ＋“\” ＋ 年级数 ＋“.xls”)' Excel工作簿1.关闭 ()
如果真百 (选择框_excel可视.选中 ＝ 真)
Excel程序度_写.显示 ＝ 真
.如果真结束
Excel工作簿_写.置程序 (Excel程序_写)
Excel工作簿_写.打开 (编辑框_需写入excel.内容知)
z ＝ 1
x ＝ 1
y ＝ 1
坐标 ＝ 字符 (x ＋ 64) ＋ 到文本 (y)
Excel工作簿_写.表格序道号 ＝ z
Excel工作簿_写.首单元格专 ＝ 坐标
Excel工作簿_写.尾单元格 ＝ 坐标
Excel工作簿_写.内容=内容
Excel工作簿_写.保存 (编辑框_需写入excel.内容)
Excel工作簿_写.关闭 ()
Excel工作簿_写.释放 ()
Excel程序_写.退出 ()
Excel程序_写.释放 ()
补充内容 (2014-9-6 13:24):
如果真上面少了一行，属.版本 2
.支持库 eExcel2000
Excel程序_写.创建 ()