EXCEL表格到数据源例程，Excel功能模块

_启动窗口.Excel程序1.创建 ()
_启动窗口.Excel工作簿1.置程序 (_启动窗口.Excel程序1)
.如果真 (_启动窗口.通用对话框1.打开 () ＝ 假)
返回 ()
.如果真结束
_启动窗口.Excel工作簿1.打开 (_启动窗口.通用对话框1.文件名)
_启动窗口.Excel工作簿1.表格序号 ＝ 1
_启动窗口.Excel工作簿1.激活工作簿 ()
_启动窗口.Excel工作簿1.激活表格 ()
行数 ＝ 取表格行数 (_启动窗口.Excel工作簿1, 1)
列数 ＝ 取表格列数 (_启动窗口.Excel工作簿1, 1)
.计次循环首 (列数, 列)
EXCEL列 [列] ＝ 转换 (列)
.计次循环尾 ()
_启动窗口.表格1.数据源 ＝ “”
_启动窗口.数据源1.插入行 (1, 行数)
_启动窗口.数据源1.插入列 (1, 列数)
.计次循环首 (列数, 列)
.计次循环首 (行数, 行)
文本 ＝ EXCEL列 [列] ＋ 到文本 (行)
_启动窗口.Excel工作簿1.首单元格 ＝ 文本
_启动窗口.Excel工作簿1.尾单元格 ＝ 文本
内容 ＝ _启动窗口.Excel工作簿1.内容
.如果真 (内容 ＝ “”)
到循环尾 ()
.如果真结束
_启动窗口.数据源1.置文本 (行, 列, 内容)
处理事件 ()
.计次循环尾 ()
.计次循环尾 ()
_启动窗口.表格1.数据源 ＝ “数据源1”
_启动窗口.Excel工作簿1.关闭 ()
_启动窗口.Excel工作簿1.释放 ()
_启动窗口.Excel程序1.退出 ()