.版本 2
.支持库 eGrid
.支持库 eExcel2000
.子程序 表格导出Excel
.参数 表格, 高级表格
.参数 导出文件名, 文本型
.局部变量 文件名, 文本型
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 文本, 文本型
.局部变量 首单元格, 文本型
.局部变量 单元格对象, 对象
.局部变量 颜色值, 整数型
主窗口.通用对话框1.文件名 ＝ 导出文件名
.如果真 (主窗口.通用对话框1.打开 () ＝ 真)
文件名 ＝ 主窗口.通用对话框1.文件名
.如果真 (主窗口.Excel程序1.创建 () ＝ 假)
信息框 (“Excel 程序创建失败！可能没有安装 Excel 程序”, 0, )
返回 ()
.如果真结束
主窗口.Excel工作簿1.置程序 (主窗口.Excel程序1)
主窗口.Excel工作簿1.激活工作簿 ()
主窗口.Excel工作簿1.表格序号 ＝ 1
主窗口.Excel程序1.标题 ＝ 文件名
主窗口.Excel程序1.显示 ＝ 真
.计次循环首 (表格.行数, i)
.计次循环首 (表格.列数, j)
首单元格 ＝ 转换字母 (j) ＋ 到文本 (i)
文本 ＝ 表格.取数据 (i － 1, j － 1)
主窗口.Excel工作簿1.首单元格 ＝ 首单元格
主窗口.Excel工作簿1.尾单元格 ＝ 首单元格
主窗口.Excel工作簿1.内容 ＝ 文本
颜色值 ＝ 表格.取单元格背景颜色 (i － 1, j － 1)
单元格对象 ＝ 主窗口.Excel工作簿1.取单元格对象 ()
单元格对象.读对象型属性 (“Interior”, ).写属性 (“Color”, 颜色值)
.计次循环尾 ()
.计次循环尾 ()
主窗口.Excel工作簿1.保存 (文件名)
主窗口.Excel工作簿1.释放 ()
主窗口.Excel工作簿1.关闭 ()
主窗口.Excel程序1.释放 ()
主窗口.Excel程序1.退出 ()
.版本 2
.子程序 转换字母, 文本型
.参数 数值, 整数型
.局部变量 字母, 文本型
.局部变量 首字母, 文本型
.局部变量 次字母, 文本型
.如果 (数值 ≤ 26) ' Excel的前26列
字母 ＝ 字符 (64 ＋ 数值) ' 键代码65代表字符A
.否则
首字母 ＝ 多项选择 (数值 ＼ 26, “A”, “B”, “C”, “D”, “E”, “F”, “G”, “H”, “I”) ' 整除取首字母， Excel最多有IV列
次字母 ＝ 字符 (64 ＋ 数值 ％ 26) ' 求余数取次字母
字母 ＝ 首字母 ＋ 次字母
.如果结束
返回 (字母)
