表格问题

18168071181

xsl的表格文件内容导入到超级列表框怎么写？

丿Mrs°戮默

  

excel.线程_COM库取消 ()
excel.线程_创建双线程COM库 ()
excel.Excel_创建程序对象 ()
excel.Excel_程序是否可视 (假)
excel.Excel_打开工作簿 (“C:\Users\Administrator\Desktop\蜗牛空表.xlsx”)  ' 修改成自己的文件
总行数 ＝ excel.单元格_取已用行数 (1)
总列数 ＝ excel.单元格_取已用列数 (1)
调试输出 (总行数, 总列数)
计次循环首 (总列数, o)
超级列表框1.插入列 (, 到文本 (o), , , , )
计次循环尾 ()
计次循环首 (总行数, s)
sy ＝ 超级列表框1.插入表项 (, , , , , )
计次循环首 (总列数, i)
文本 ＝ excel.单元格_取单元格内容 (1, 数字转列数 (i) ＋ 到文本 (s))
超级列表框1.置标题 (sy, i － 1, 文本)
计次循环尾 ()
计次循环尾 ()
excel.Excel_保存 ()
excel.Excel_关闭程序 ()

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> excel.线程_COM库取消 ()<br /> excel.线程_创建双线程COM库 ()<br /> excel.Excel_创建程序对象 ()<br /> excel.Excel_程序是否可视 (假)<br /> excel.Excel_打开工作簿 (“C:\Users\Administrator\Desktop\蜗牛空表.xlsx”)  ' 修改成自己的文件<br /> 总行数 ＝ excel.单元格_取已用行数 (1)<br /> 总列数 ＝ excel.单元格_取已用列数 (1)<br /> 调试输出 (总行数, 总列数)<br /> .计次循环首 (总列数, o)<br />     超级列表框1.插入列 (, 到文本 (o), , , , )<br /> .计次循环尾 ()<br /> <br /> .计次循环首 (总行数, s)<br />     sy ＝ 超级列表框1.插入表项 (, , , , , )<br /> <br />     .计次循环首 (总列数, i)<br />         文本 ＝ excel.单元格_取单元格内容 (1, 数字转列数 (i) ＋ 到文本 (s))<br />         超级列表框1.置标题 (sy, i － 1, 文本)<br />     .计次循环尾 ()<br /> <br /> <br /> <br /> <br /> .计次循环尾 ()<br /> <br /> excel.Excel_保存 ()<br /> excel.Excel_关闭程序 ()

丿Mrs°戮默

导入数据更新.e (1004.74 KB, 下载次数: 0)

前天 10:46 上传

点击文件名下载附件

附件忘记上传了

花间一壶酒

数据量多大  数据量不大就按他们说的那样写  数据量大就不能一格一格读了  会很慢  应该区域读取到变量型  

补充内容 (2026-4-18 15:46):
到变体型变量 分割成数组

yb139

可以参考楼上提供的代码示例，主要步骤是：
1. 使用 COM 库创建 Excel 对象
2. 打开 XSL 文件
3. 读取行数和列数
4. 循环插入列和表项
5. 逐个单元格读取内容并设置到超级列表框
6. 最后关闭 Excel 程序

如果数据量较大，建议使用区域读取到变量型数组后再分割处理，这样效率会更高。