导入EXCEL表格到EDB数据库

Excel程序对象.写属性 (“Visible”, 假)
Excel工作簿对象 ＝ Excel程序对象.读对象型属性 (“Workbooks”, ).对象型方法 (“Open”, 编辑框_Excel.内容, 0, 真)
.如果真 (Excel工作簿对象.是否为空 () ＝ 假)
Excel工作表对象 ＝ Excel工作簿对象.读对象型属性 (“Sheets”, ).读对象型属性 (“Item”, 1)
.如果真 (Excel工作表对象.是否为空 () ＝ 假)
范围对象 ＝ Excel工作表对象.读对象型属性 (“UsedRange”, )
行对象 ＝ 范围对象.读对象型属性 (“Rows”, )
行数 ＝ 行对象.读数值属性 (“Count”, )
列对象 ＝ 范围对象.读对象型属性 (“Columns”, )
列数 ＝ 列对象.读数值属性 (“Count”, )

选择列表框_源字段.清空 ()
.计次循环首 (列数, i)
选择列表框_源字段.加入项目 (子程序_取Excel单元格内容 (Excel工作表对象, i, 1), i)
.计次循环尾 ()
标签_Excel工作表名称.标题 ＝ Excel工作表对象.读文本属性 (“Name”, )
标签_Excel记录数.标题 ＝ “共” ＋ 到文本 (行数 － 1) ＋ “条记录”
.如果真结束

Excel工作簿对象.方法 (“Close”, )
Excel工作簿对象.清除 ()
.如果真结束
Excel程序对象.方法 (“Quit”, )
Excel程序对象.清除 ()