易语言读取EXCEL表格并互相转换

丰晨软件

获取表格后根据表格名称判断将要复制表格中的哪几列文本。
复制以后点击组合框，一共有多个选项，用来实现在超级列表框1插入标题，
插入标题以后判断刚才复制的那几列文本将粘贴到超级列表框1哪几列里面。
最后导出表格。

比如说：读取表格以后，判断表格文件名称为“ABC.xls”，这时候将会复制“ABC.xls”表格中的A/B/C这三列内容，然后点击组合框现行选中项=1，将会在超级列表框1中生成标题，随后把的A/B/C这三列内容复制到超级列表框1中的D/E/F列里面。最后点击导出按钮导出指定格式文档。

我已经把标题方面写完了，也就是点击组合框生成标题，目前就差读取表格判断名称来复制某几列内容并写到超级列表框里面并生成新的表格文件。

源码.zip (2.14 MB, 下载次数: 29)

2024-11-3 22:03 上传

点击文件名下载附件

真IKUN

用这个模块

花间一壶酒

被遮住的两行  上面的后面写的是区域 “A1:P3000”

下面的是  变体.易_取文本型（i,n）

花间一壶酒

抱歉  上面附件带错了

丰晨软件

  

判断 (文件名 ＝ “XXXXXXX”)
已用行数 ＝ 单元格.取已用行数 ()
单元格数据 ＝ 单元格.极速_取文本值 (1, “A1:AE” ＋ 到文本 (已用行数), )  ' 批量读取区域数据
变体.易_置数组变量 (单元格数据)
高级表格_数据列表.清空数据 ()
高级表格_数据列表.表头列数 ＝ 0
高级表格_数据列表.行数 ＝ 已用行数
高级表格_数据列表.列数 ＝ 6
计次循环首 (已用行数, i)  ' 将指定列数据放入高级表格
高级表格_数据列表.置数据 (i － 1, 0, 1, 到文本 (i))
高级表格_数据列表.置数据 (i － 1, 1, 1, 变体.易_取文本型 (i, 1))  ' 名称
高级表格_数据列表.置数据 (i － 1, 2, 1, 变体.易_取文本型 (i, 2))  ' 分类
高级表格_数据列表.置数据 (i － 1, 3, 1, 变体.易_取文本型 (i, 5))  ' 售价
高级表格_数据列表.置数据 (i － 1, 4, 1, 变体.易_取文本型 (i, 6))  ' 会员价
高级表格_数据列表.置数据 (i － 1, 5, 1, 变体.易_取文本型 (i, 10))  ' 单位
计次循环尾 ()
Excel.关闭所有工作簿 ()

i支持库列表	支持库注释
eGrid	高级表格支持库

.版本 2<br /> .支持库 eGrid<br /> <br />     .判断开始 (文件名 ＝ “XXXXXXX”)<br />         已用行数 ＝ 单元格.取已用行数 ()<br />         单元格数据 ＝ 单元格.极速_取文本值 (1, “A1:AE” ＋ 到文本 (已用行数), )  ' 批量读取区域数据<br />         变体.易_置数组变量 (单元格数据)<br />         高级表格_数据列表.清空数据 ()<br />         高级表格_数据列表.表头列数 ＝ 0<br />         高级表格_数据列表.行数 ＝ 已用行数<br />         高级表格_数据列表.列数 ＝ 6<br />         .计次循环首 (已用行数, i)  ' 将指定列数据放入高级表格<br />             高级表格_数据列表.置数据 (i － 1, 0, 1, 到文本 (i))<br />             高级表格_数据列表.置数据 (i － 1, 1, 1, 变体.易_取文本型 (i, 1))  ' 名称<br />             高级表格_数据列表.置数据 (i － 1, 2, 1, 变体.易_取文本型 (i, 2))  ' 分类<br />             高级表格_数据列表.置数据 (i － 1, 3, 1, 变体.易_取文本型 (i, 5))  ' 售价<br />             高级表格_数据列表.置数据 (i － 1, 4, 1, 变体.易_取文本型 (i, 6))  ' 会员价<br />             高级表格_数据列表.置数据 (i － 1, 5, 1, 变体.易_取文本型 (i, 10))  ' 单位<br />         .计次循环尾 ()<br />         Excel.关闭所有工作簿 ()

frozensy

感谢分享