.版本 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))) .计次循环尾 () 跳过 () .计次循环尾 () 关闭 () .否则 .如果结束 返回 ()