大佬请教excel导入超级列表框，源文件在这

jjdd2 · 发表于 2021-1-29 20:47:57

各位大佬这个 excel 文件导入到超级列表框列表框我用了那个模块自动填写列名但是只能100列 ,帮忙帮我写个例子呢非常的谢谢各位大佬非常的谢谢

jjdd2 · 发表于 2021-1-29 20:55:57

.版本 2
.支持库 iext

超级列表框全部删除 ()
文件目录地址＝取运行目录 () ＋ “\Excel\” ＋ “1”＋ “.xls”

.如果真 (Excel.初始化_ (数据库连接1, 记录集1, 文件目录地址, 0, ))
超级列表框.报表列＝ {  }
Excel.枚举表名_ (表名组, , )
' 调试输出 (表名组)
.如果真 (取数组成员数 (表名组) ＜ 1)
      返回 ()
.如果真结束
Excel.枚举字段名_ (表名组 [1], 字段)

' 调试输出 (表名组 [1])
.计次循环首 (取数组成员数 (字段), i9)
      超级列表框.插入列 (, 字段 [i9].名称, 100, , , )
.计次循环尾 ()
Excel.打开表_ (表名组 [1], )
x ＝ Excel.取记录集行数_ ()
.计次循环首 (x, i9)

      y ＝超级列表框.插入表项 (, “”, , , , )
      .计次循环首 (超级列表框.取列数 (), n)
         Excel.读文本_ (到文本 (n － 1), sql)
         超级列表框.置标题 (y, n － 1, sql)
      .计次循环尾 ()
      Excel.到下一条_ ()
.计次循环尾 ()

这个代码只有取到100列  素材里表格列数比较多  到了250了模块用的是 excel文件导入导出模块

jjdd2 · 发表于 2021-1-29 20:58:17

下面是模块的地址谢谢各位大佬

jjdd2 · 发表于 2021-1-29 21:29:08

就是这个文件上面的可以不下载看这个例子咋改

走一回 · 发表于 2021-1-29 21:38:05

你是不是搞错了，100行？是100列吧

jjdd2 · 发表于 2021-1-29 21:43:11

走一回发表于 2021-1-29 21:38
你是不是搞错了，100行？是100列吧

嘿嘿是的是的我的表格是255列

jjdd2 · 发表于 2021-1-29 21:44:22

走一回发表于 2021-1-29 21:38
你是不是搞错了，100行？是100列吧

大佬的你荣誉点也忒高了吧膜拜

走一回 · 发表于 2021-1-30 13:00:45

jjdd2 发表于 2021-1-29 21:44
大佬的你荣誉点也忒高了吧膜拜

如果不插入数据，添加255列，很快的，大概1秒左右。

已注销251602 · 发表于 2021-3-11 13:14:29

做这个入门真好

yqx520 · 发表于 2022-3-27 10:19:20

看着不懂，新手，来学习的

		自动登录	找回密码
密码			注册

[易语言] 大佬请教excel导入超级列表框，源文件在这

点评