表格导出EXCEL表格的几种方法

.如果真 (Excel程序1.创建 () ＝ 假)
信息框 (“Excel 程序创建失败！可能没有安装Excel2003”, 0, )
返回 ()
.如果真结束
Excel工作簿1.置程序 (Excel程序1)
Excel工作簿1.表格序号 ＝ 1
' Excel程序1.显示 ＝ 真
y ＝ ??? () '
.计次循环首 (y, i)
.计次循环首 (??? (), ii) '
文本1 ＝ 取空白字节集 (1)
.如果 (ii ＞ 26)
整数 ＝ 96 ＋ ii － 26
文本1 ＝ 到字节集 (整数)
文本3 ＝ “a” ＋ 到文本 (文本1)
.否则
整数 ＝ 96 ＋ ii
文本1 ＝ 到字节集 (整数)
文本3 ＝ 到文本 (文本1) ＋ 到文本 (i)

.如果结束
文本 ＝ ??? () '
' Excel工作簿1.置单元格边框 (1, 2, 0)
设置表格内容 (Excel工作簿1, 文本3, “”, 文本)
.计次循环尾 ()
.计次循环尾 ()
Excel工作簿1.保存 (取运行目录 () ＋ “\” ＋ 到文本 (取日期 (取现行时间 ())))
Excel工作簿1.释放 ()
Excel程序1.释放 ()
终止进程 (“EXCEL.EXE”)
Excel程序1.显示 ＝ 真
执行 (4, 取运行目录 () ＋ “\” ＋ 到文本 (取日期 (取现行时间 ())) ＋ “.xls”, , , )