Excel导入超级列表，创建数据库

Excel导入超级列表，创建数据库例子。

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

.计次循环尾 ()
' ---------以上取要创建的数据库的记录数------------