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

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