【易语言】将超级列表框中的数据导出到excel

需要精益模块

.版本 2
.支持库 iext
.支持库 shell

.子程序 _按钮1_被单击
.局部变量 局_表项索引, 整数型
.局部变量 局部_列表, 外部超级列表框

局_表项索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (局_表项索引, 0, “11”)
超级列表框1.置标题 (局_表项索引, 1, “22”)
局部_列表.初始化 (超级列表框1.取窗口句柄 ())
局部_列表.导出Excel (取特定目录 (3) + “精准搜索.xlsx”, 真)
  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
易语言是一款简单易学的编程语言,对于初学者或小项目来说,易语言可以快速实现许多应用程序的开发。其超级列表框易语言程序常用的控件之一,它可以方便地呈现表格数据。 在实际开发过程,有时候需要将超级列表框数据导出Excel表格,以便于数据的处理和查看。这时候,我们可以借助易语言Excel COM组件来实现。 具体操作步骤如下: 1. 首先,在易语言程序添加Excel COM组件,可以通过导入“Microsoft Excel x.x Object Library”来实现。 2. 在超级列表框选择需要导出数据行,将数据复制到剪贴板。 3. 创建一个Excel对象,并在其新建一个工作表(Worksheet)。 4. 将剪贴板数据粘贴到Excel表格。 5. 将Excel表格保存到本地磁盘。 完整代码如下: ``` '添加Excel COM组件 $comobj = NEWOBJECT("Excel.Application") $comobj.Application.Workbooks.Add() $comobj.Visible = 1 '在超级列表框选择需要导出数据行并复制到剪贴板 $sCopyData = "" FOR i = 0 TO lbxListtBox.RowData(0, -1) IF lbxListtBox.RowSelect(i) THEN $sCopyData += lbxListtBox.RowData(0, i) + "\t" + lbxListtBox.RowData(1, i) + "\r\n" END IF NEXT i $sCopyData = TRIM($sCopyData) MESSAGEBOX($sCopyData) '创建Excel对象,并新建工作表 $combook = $comobj.Workbooks(1) $comsheet = $combook.Worksheets(1) '将剪贴板数据粘贴到Excel表格 $comsheet.Range("A1:B1").Select() $comsheet.Paste() '保存Excel表格 $combook.SaveAs("D:\Data.xlsx") ``` 通过以上操作,我们可以轻松地将超级列表框数据导出Excel表格,方便进行后续的数据处理和分析。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

干瘪的兔子

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值