Excel导入超级列表框易语言源码

Excel导入超级列表框易语言源码，根据列数创建数据库

.版本 2
.支持库 eExcel2000
.支持库 iext
.支持库 spec

.程序集 窗口程序集1
.程序集变量 数据库字段数, 整数型

.子程序 _打开按钮_被单击

通用对话框_公用.类型 ＝ 0
.如果真 (通用对话框_公用.打开 () ＝ 假)
    返回 ()
.如果真结束
' _按钮1_被单击 ()
返回 ()

.子程序 _导入按钮_被单击
.局部变量 列数, 整数型
.局部变量 m, 整数型
.局部变量 取行数, 整数型
.局部变量 n, 整数型
.局部变量 列计次, 整数型
.局部变量 行计次, 整数型
.局部变量 行, 整数型

_启动窗口.Excel程序1.创建 ()
_启动窗口.Excel工作簿1.置程序 (_启动窗口.Excel程序1)
_启动窗口.Excel工作簿1.激活工作簿 ()
_启动窗口.Excel工作簿1.打开 (_启动窗口.通用对话框_公用.文件名)
_启动窗口.Excel工作簿1.表格序号 ＝ 1
.计次循环首 (取文本长度 (#字母表), 列数)
    _启动窗口.Excel工作簿1.首单元格 ＝ 取文本中间 (#字母表, 列数, 1) ＋ “1”
    _启动窗口.Excel工作簿1.尾单元格 ＝ 取文本中间 (#字母表, 列数, 1) ＋ “1”
    .如果 (_启动窗口.Excel工作簿1.内容 ≠ “”)
        m ＝ 超级列表框.插入列 (, , 100, , , )
        超级列表框.置列标题 (m, _启动窗口.Excel工作簿1.内容)
    .否则
        跳出循环 ()
    .如果结束

.计次循环尾 ()
调试输出 (m, 列数)
' ----------以上取出要创建的数据库的字段数----------
数据库字段数 ＝ 列数 － 1
.计次循环首 (500, 取行数)
    _启动窗口.Excel工作簿1.首单元格 ＝ “a” ＋ 到文本 (取行数 ＋ 1)  ' Excel有列标题所以这里加1
    _启动窗口.Excel工作簿1.尾单元格 ＝ _启动窗口.Excel工作簿1.首单元格
    .如果 (_启动窗口.Excel工作簿1.内容 ≠ “”)
        n ＝ 超级列表框.插入表项 (, _启动窗口.Excel工作簿1.内容, , , , )
        超级列表框.保证显示 (n)
    .否则
        跳出循环 ()
    .如果结束

.计次循环尾 ()
' ---------以上取要创建的数据库的记录数------------
调试输出 (n, 取行数)
n ＝ 取行数
m ＝ 数据库字段数
.计次循环首 (n, 行计次)
    .计次循环首 (m, 列计次)
        Excel工作簿1.首单元格 ＝ 取文本中间 (#字母表, 列计次, 1) ＋ 到文本 (行计次 ＋ 1)  ' Excel有列标题所以这里加1
        Excel工作簿1.尾单元格 ＝ 取文本中间 (#字母表, 列计次, 1) ＋ 到文本 (行计次 ＋ 1)
        超级列表框.置标题 (行计次 － 1, 列计次 － 1, Excel工作簿1.内容)
    .计次循环尾 ()
.计次循环尾 ()
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()
返回 ()

.子程序 _创建数据库导入按钮_被单击
.局部变量 数据库名, 文本型
.局部变量 试验数据库, 字段信息, , "100", 这里可以取足够用的字段
.局部变量 计次, 整数型
.局部变量 名称, 文本型, , "0"
.局部变量 大计次, 整数型

.计次循环首 (超级列表框.取列数 (), 计次)
    加入成员 (名称, 超级列表框.取列标题 (计次 － 1))
.计次循环尾 ()
.计次循环首 (取数组成员数 (名称), 计次)
    试验数据库 [计次].名称 ＝ 名称 [计次]
    试验数据库 [计次].类型 ＝ #文本型
    试验数据库 [计次].最大文本长度 ＝ 80
.计次循环尾 ()
调试输出 (创建 (取运行目录 () ＋ “试验888”, 试验数据库))
.如果 (打开 (取运行目录 () ＋ “试验888”, , , , , , , ) ＝ 真)
    调试输出 (取字段数 ())
    .计次循环首 (超级列表框.取表项数 (), 大计次)
        加记录 ()
        .计次循环首 (取字段数 (), 计次)
            调试输出 (写 (计次, 超级列表框.取标题 (大计次 － 1, 计次 － 1)))
        .计次循环尾 ()
        跳过 ()
    .计次循环尾 ()
    关闭 ()
.否则

.如果结束
返回 ()

@cbh888