怎么execl表格A、B、C列的数据，导入到超级列表框3、5、7列中

csdyic

请教大神，点击按钮导入数据，把execl表格里面A、B、C列的数据，导入到超级列表框第3、第5、第7列中，然后再计算超级列表框第6列的值，第6列的值等于超级列表框7的值除以超级列表框第5列的值

现在只能导入到超级列表框第1、2、3列中，请大神帮忙修改指点，感谢！

.版本 2

.支持库 eExcel2000

.支持库 iext

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

.局部变量 列, 整数型

.局部变量 行, 整数型

.局部变量 i, 整数型

.局部变量 i1, 整数型

.局部变量 索引, 整数型

Excel程序1.创建 ()

Excel工作簿1.置程序 (Excel程序1)

Excel工作簿1.打开 (取运行目录 () ＋ “\1.xlsx”)

行 ＝ Excel工作簿1.取表格对象 ().读对象型属性 (“UsedRange”, ).读对象型属性 (“rows”, ).读数值属性 (“count”, )

列 ＝ Excel工作簿1.取表格对象 ().读对象型属性 (“UsedRange”, ).读对象型属性 (“columns”, ).读数值属性 (“count”, )

.计次循环首 (行, i)

    索引 ＝ 超级列表框1.插入表项 (, , , , , )

    .计次循环首 (列, i1)

        Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ 到文本 (i ＋ 1)

        Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ 到文本 (i ＋ 1)

        超级列表框1.置标题 (索引, i1 － 1, Excel工作簿1.内容)

    .计次循环尾 ()

.计次循环尾 ()

Excel工作簿1.关闭 ()

Excel程序1.释放 ()

杰西卡技术传媒

看到抖号想到一个事

青梅

.版本 2 .支持库 iext  .计次循环首 (行, i)     索引 ＝ 超级列表框1.插入表项 (, , , , , )     .计次循环首 (列, i1)         Excel工作簿1.首单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ 到文本 (i ＋ 1)         Excel工作簿1.尾单元格 ＝ 多项选择 (i1, “A”, “B”, “C”) ＋ 到文本 (i ＋ 1)         超级列表框1.置标题 (索引,i1 + 2 , Excel工作簿1.内容)     .计次循环尾 ()     超级列表框1.置标题 (索引, 5, 到文本 (到数值 (超级列表框1.取标题 (索引, 6)) ÷ 到数值 (超级列表框1.取标题 (索引, 4)))) .计次循环尾 ()

补充内容 (2024-4-24 16:58):
计次循环改一下就行

补充内容 (2024-4-24 17:02):
最后插入的位置是4不是5 你改下就是

csdyic

青梅 发表于 2024-4-24 16:58
.版本 2 .支持库 iext  .计次循环首 (行, i)     索引 ＝ 超级列表框1.插入表项 (, , , , , )     .计次循 ...

这个好像连续插入在超级列表框第3、4、5列的，那怎么把表格中的B列插入到第5列，C列插入到7列中啊 ？

csdyic

csdyic 发表于 2024-4-25 09:04
这个好像连续插入在超级列表框第3、4、5列的，那怎么把表格中的B列插入到第5列，C列插入到7列中啊 ？ ...

(索引, i1 × 2, Excel工作簿1.内容) 即可

我的yyy123

学习学习