关于excel文件导入超级列表框，大师帮忙解决一下，谢谢

陈先生的

请问一下怎么样把我前面导出的excel文件    下次打开软件自己读取excel内容到超级列表框里面呢   

现在其它都全部写好了   差个打开软件读取

cobi

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

导入Excel (超级列表框1, “1号机.xls”)
导入Excel (超级列表框2, “2号机.xls”)
导入Excel (超级列表框3, “3号机.xls”)
导入Excel (超级列表框4, “4号机.xls”)

子程序名	返回值类型	公开	备 注
导入Excel
参数名	类 型	参考	可空	数组	备 注
超级列表框名	超级列表框
Excel文件名	文本型

变量名	类 型	静态	数组	备 注
文件路径	文本型
工作簿对象	对象
单元格对象	对象
范围	对象
行对象	对象
总行数	整数型
A列内容	文本型
B列内容	文本型
C列内容	文本型
D列内容	文本型
E列内容	文本型
F列内容	文本型
G列内容	文本型
i	整数型
s	整数型

文件路径 ＝ 取运行目录 () ＋ “\” ＋ Excel文件名
如果真 (文件是否存在 (文件路径))
Excel程序1.创建 ()
Excel程序1.显示 ＝ 假
Excel工作簿1.置程序 (Excel程序1)
如果真 (Excel工作簿1.打开 (文件路径))
Excel工作簿1.激活工作簿 ()
Excel工作簿1.激活表格 ()
Excel工作簿1.表格序号 ＝ 0
工作簿对象 ＝ Excel工作簿1.取表格对象 ()
范围 ＝ 工作簿对象.读对象型属性 (“UsedRange”, )
行对象 ＝ 范围.读对象型属性 (“Rows”, )
总行数 ＝ 行对象.读数值属性 (“Count”, )
计次循环首 (总行数, i)
如果真 (i ＞ 1)
Excel工作簿1.首单元格 ＝ “A” ＋ 到文本 (i)
Excel工作簿1.尾单元格 ＝ “A” ＋ 到文本 (i)
单元格对象 ＝ Excel工作簿1.取单元格对象 ()
A列内容 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “B” ＋ 到文本 (i)
Excel工作簿1.尾单元格 ＝ “B” ＋ 到文本 (i)
单元格对象 ＝ Excel工作簿1.取单元格对象 ()
B列内容 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “C” ＋ 到文本 (i)
Excel工作簿1.尾单元格 ＝ “C” ＋ 到文本 (i)
单元格对象 ＝ Excel工作簿1.取单元格对象 ()
C列内容 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “D” ＋ 到文本 (i)
Excel工作簿1.尾单元格 ＝ “D” ＋ 到文本 (i)
单元格对象 ＝ Excel工作簿1.取单元格对象 ()
D列内容 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “E” ＋ 到文本 (i)
Excel工作簿1.尾单元格 ＝ “E” ＋ 到文本 (i)
单元格对象 ＝ Excel工作簿1.取单元格对象 ()
E列内容 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “F” ＋ 到文本 (i)
Excel工作簿1.尾单元格 ＝ “F” ＋ 到文本 (i)
单元格对象 ＝ Excel工作簿1.取单元格对象 ()
F列内容 ＝ 单元格对象.读文本属性 (“Value”, )
Excel工作簿1.首单元格 ＝ “G” ＋ 到文本 (i)
Excel工作簿1.尾单元格 ＝ “G” ＋ 到文本 (i)
单元格对象 ＝ Excel工作簿1.取单元格对象 ()
G列内容 ＝ 单元格对象.读文本属性 (“Value”, )
s ＝ 超级列表框名.插入表项 (, , , , , )
超级列表框名.置标题 (s, 0, A列内容)
超级列表框名.置标题 (s, 1, B列内容)
超级列表框名.置标题 (s, 2, C列内容)
超级列表框名.置标题 (s, 3, D列内容)
超级列表框名.置标题 (s, 4, E列内容)
超级列表框名.置标题 (s, 5, F列内容)
超级列表框名.置标题 (s, 6, G列内容)

计次循环尾 ()
Excel工作簿1.关闭 ()
Excel工作簿1.释放 ()
Excel程序1.退出 ()
Excel程序1.释放 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
eExcel2000	EXCEL2000支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eExcel2000<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 导入Excel (超级列表框1, “1号机.xls”)<br /> 导入Excel (超级列表框2, “2号机.xls”)<br /> 导入Excel (超级列表框3, “3号机.xls”)<br /> 导入Excel (超级列表框4, “4号机.xls”)<br /> <br /> .子程序 导入Excel<br /> .参数 超级列表框名, 超级列表框<br /> .参数 Excel文件名, 文本型<br /> .局部变量 文件路径, 文本型<br /> .局部变量 工作簿对象, 对象<br /> .局部变量 单元格对象, 对象<br /> .局部变量 范围, 对象<br /> .局部变量 行对象, 对象<br /> .局部变量 总行数, 整数型<br /> .局部变量 A列内容, 文本型<br /> .局部变量 B列内容, 文本型<br /> .局部变量 C列内容, 文本型<br /> .局部变量 D列内容, 文本型<br /> .局部变量 E列内容, 文本型<br /> .局部变量 F列内容, 文本型<br /> .局部变量 G列内容, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 s, 整数型<br /> <br /> 文件路径 ＝ 取运行目录 () ＋ “\” ＋ Excel文件名<br /> .如果真 (文件是否存在 (文件路径))<br />     Excel程序1.创建 ()<br />     Excel程序1.显示 ＝ 假<br />     Excel工作簿1.置程序 (Excel程序1)<br />     .如果真 (Excel工作簿1.打开 (文件路径))<br />         Excel工作簿1.激活工作簿 ()<br />         Excel工作簿1.激活表格 ()<br />         Excel工作簿1.表格序号 ＝ 0<br />         工作簿对象 ＝ Excel工作簿1.取表格对象 ()<br />         范围 ＝ 工作簿对象.读对象型属性 (“UsedRange”, )<br />         行对象 ＝ 范围.读对象型属性 (“Rows”, )<br />         总行数 ＝ 行对象.读数值属性 (“Count”, )<br /> <br />         .计次循环首 (总行数, i)<br />             .如果真 (i ＞ 1)<br />                 Excel工作簿1.首单元格 ＝ “A” ＋ 到文本 (i)<br />                 Excel工作簿1.尾单元格 ＝ “A” ＋ 到文本 (i)<br />                 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />                 A列内容 ＝ 单元格对象.读文本属性 (“Value”, )<br /> <br />                 Excel工作簿1.首单元格 ＝ “B” ＋ 到文本 (i)<br />                 Excel工作簿1.尾单元格 ＝ “B” ＋ 到文本 (i)<br />                 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />                 B列内容 ＝ 单元格对象.读文本属性 (“Value”, )<br /> <br />                 Excel工作簿1.首单元格 ＝ “C” ＋ 到文本 (i)<br />                 Excel工作簿1.尾单元格 ＝ “C” ＋ 到文本 (i)<br />                 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />                 C列内容 ＝ 单元格对象.读文本属性 (“Value”, )<br /> <br />                 Excel工作簿1.首单元格 ＝ “D” ＋ 到文本 (i)<br />                 Excel工作簿1.尾单元格 ＝ “D” ＋ 到文本 (i)<br />                 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />                 D列内容 ＝ 单元格对象.读文本属性 (“Value”, )<br /> <br />                 Excel工作簿1.首单元格 ＝ “E” ＋ 到文本 (i)<br />                 Excel工作簿1.尾单元格 ＝ “E” ＋ 到文本 (i)<br />                 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />                 E列内容 ＝ 单元格对象.读文本属性 (“Value”, )<br /> <br />                 Excel工作簿1.首单元格 ＝ “F” ＋ 到文本 (i)<br />                 Excel工作簿1.尾单元格 ＝ “F” ＋ 到文本 (i)<br />                 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />                 F列内容 ＝ 单元格对象.读文本属性 (“Value”, )<br /> <br />                 Excel工作簿1.首单元格 ＝ “G” ＋ 到文本 (i)<br />                 Excel工作簿1.尾单元格 ＝ “G” ＋ 到文本 (i)<br />                 单元格对象 ＝ Excel工作簿1.取单元格对象 ()<br />                 G列内容 ＝ 单元格对象.读文本属性 (“Value”, )<br /> <br />                 s ＝ 超级列表框名.插入表项 (, , , , , )<br />                 超级列表框名.置标题 (s, 0, A列内容)<br />                 超级列表框名.置标题 (s, 1, B列内容)<br />                 超级列表框名.置标题 (s, 2, C列内容)<br />                 超级列表框名.置标题 (s, 3, D列内容)<br />                 超级列表框名.置标题 (s, 4, E列内容)<br />                 超级列表框名.置标题 (s, 5, F列内容)<br />                 超级列表框名.置标题 (s, 6, G列内容)<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />         Excel工作簿1.关闭 ()<br />     .如果真结束<br />     Excel工作簿1.释放 ()<br />     Excel程序1.退出 ()<br />     Excel程序1.释放 ()

加上试试吧，希望能帮到你！我觉得直接用edb数据库更方便，毕竟Excel容易被别人修改。

haoren1212

保存文件路径到配置项

lufanjingyi

判断 导出的excel文件是否存在   存在就读取

走一回

如果是纯文本的，还是导出到文本文件更通用，EXCEL文件特别是高版本的，需要系统引擎支持才行的。