怎么将excel文件导入到超级列表框？

ARTFS

帮我改一下，我新手，不太懂，请帮我把修改过的地方标注一下，谢谢

寒潮

Excel数据整理.e (864.61 KB, 下载次数: 49)

2020-8-7 11:01 上传

点击文件名下载附件

够爱

伸伸手就能完成 挺不好的。 这种东西论坛搜索一大堆例子。

ARTFS

够爱 发表于 2020-8-7 10:58
伸伸手就能完成 挺不好的。 这种东西论坛搜索一大堆例子。

新手，学习中，没看懂别的

ARTFS

够爱 发表于 2020-8-7 10:58
伸伸手就能完成 挺不好的。 这种东西论坛搜索一大堆例子。

拉低智商了，不好意思

陌上人如玉

https://jingyan.baidu.com/articl ... bc8d946f132.html##1

够爱

https://bbs.125.la/search.php?mo ... 6%C1%D0%B1%ED%BF%F2

李泽勇2

直接用现成的吧。

  

子程序名	返回值类型	公开	备 注
Excel导入_超级列表框_工作簿	逻辑型
参数名	类 型	参考	可空	数组	备 注
超级列表框_	超级列表框
通用对话框_	通用对话框
打开的名称	文本型				通用对话框
Excel工作簿	Excel工作簿
Excel程序	Excel程序
表头	文本型
句柄	整数型

变量名	类 型	静态	数组	备 注
局部_计次1	整数型
局部_计次	整数型
局部_标志	文本型
局部_索引	整数型

判断 (Excel程序.创建 ())
通用对话框_.类型 ＝ 0
通用对话框_.过滤器 ＝ “xlsx|*.xlsx”
通用对话框_.文件名 ＝ 打开的名称
通用对话框_.初始目录 ＝ 取特定目录 ( #系统桌面 )
如果真 (通用对话框_.打开 ())
Excel工作簿.置程序 (Excel程序)
Excel工作簿.激活工作簿 ()
Excel工作簿.打开 (通用对话框_.文件名)
Excel工作簿.表格序号 ＝ 1
超级列表框_.全部删除 ()
局部_标志 ＝ “1”
局部_计次 ＝ 1
判断循环首 (删全部空 (局部_标志) ≠ “”)
处理事件 ()
局部_标志 ＝ “”
计次循环首 (取数组成员数 (表头), 局部_计次1)
Excel工作簿.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
Excel工作簿.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)
局部_标志 ＝ 局部_标志 ＋ Excel工作簿.内容
如果真 (删全部空 (局部_标志) ≠ “”)
如果真 (局部_计次1 ＝ 1)
局部_索引 ＝ 超级列表框_.插入表项 (, , , , , )
超级列表框_.置标题 (局部_索引, 局部_计次1 － 1, Excel工作簿.内容)

计次循环尾 ()
局部_计次 ＝ 局部_计次 ＋ 1
判断循环尾 ()
Excel工作簿.关闭 ()
Excel工作簿.释放 ()
Excel程序.退出 ()
Excel程序.释放 ()
返回 (真)

信息框_提示 (“你的计算机上没有安装Microsoft Excel表格，无法使用！找IT安装 Microsoft Office套件！”, , , #错误图标, 句柄)
返回 (假)

i支持库列表	支持库注释
iext	扩展界面支持库一
eExcel2000	EXCEL2000支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 eExcel2000<br /> .支持库 shell<br /> <br /> .子程序 Excel导入_超级列表框_工作簿, 逻辑型, 公开<br /> .参数 超级列表框_, 超级列表框<br /> .参数 通用对话框_, 通用对话框<br /> .参数 打开的名称, 文本型, 可空, 通用对话框<br /> .参数 Excel工作簿, Excel工作簿<br /> .参数 Excel程序, Excel程序<br /> .参数 表头, 文本型, 数组<br /> .参数 句柄, 整数型<br /> .局部变量 局部_计次1, 整数型<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 局部_标志, 文本型<br /> .局部变量 局部_索引, 整数型<br /> <br /> .判断开始 (Excel程序.创建 ())<br />     通用对话框_.类型 ＝ 0<br />     通用对话框_.过滤器 ＝ “xlsx|*.xlsx”<br />     通用对话框_.文件名 ＝ 打开的名称<br />     通用对话框_.初始目录 ＝ 取特定目录 (#系统桌面)<br />     .如果真 (通用对话框_.打开 ())<br />         Excel工作簿.置程序 (Excel程序)<br />         Excel工作簿.激活工作簿 ()<br />         Excel工作簿.打开 (通用对话框_.文件名)<br />         Excel工作簿.表格序号 ＝ 1<br />         超级列表框_.全部删除 ()<br />         局部_标志 ＝ “1”<br />         局部_计次 ＝ 1<br />         .判断循环首 (删全部空 (局部_标志) ≠ “”)<br />             处理事件 ()<br />             局部_标志 ＝ “”<br />             .计次循环首 (取数组成员数 (表头), 局部_计次1)<br />                 Excel工作簿.首单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)<br />                 Excel工作簿.尾单元格 ＝ 字符 (97 ＋ 局部_计次1 － 1) ＋ 到文本 (局部_计次 ＋ 1)<br />                 局部_标志 ＝ 局部_标志 ＋ Excel工作簿.内容<br />                 .如果真 (删全部空 (局部_标志) ≠ “”)<br />                     .如果真 (局部_计次1 ＝ 1)<br />                         局部_索引 ＝ 超级列表框_.插入表项 (, , , , , )<br />                     .如果真结束<br />                     超级列表框_.置标题 (局部_索引, 局部_计次1 － 1, Excel工作簿.内容)<br />                 .如果真结束<br /> <br />             .计次循环尾 ()<br />             局部_计次 ＝ 局部_计次 ＋ 1<br />         .判断循环尾 ()<br />         Excel工作簿.关闭 ()<br />         Excel工作簿.释放 ()<br />         Excel程序.退出 ()<br />         Excel程序.释放 ()<br />         返回 (真)<br />     .如果真结束<br /> <br /> .默认<br />     信息框_提示 (“你的计算机上没有安装Microsoft Excel表格，无法使用！找IT安装 Microsoft Office套件！”, , , #错误图标, 句柄)<br /> .判断结束<br /> 返回 (假)