如何将超级列表框中的图片导出到EXCEL中

topzjw

问题：导出代码中如何添加导出第三列图片的代码呢？目前代码只能导出文本，图片项空白

  

子程序名	返回值类型	公开	备 注
超级列表框保存为EXCEL
参数名	类 型	参考	可空	数组	备 注
通用对话框	通用对话框
Excel程序	Excel程序
Excel工作簿	Excel工作簿
超级列表框	超级列表框

变量名	类 型	静态	数组	备 注
EXCEL文件名	文本型
x
y
文本	文本型
保存结果	逻辑型

通用对话框.类型 ＝ 1
通用对话框.过滤器 ＝ “excel文件（*.xlsx）|*.xlsx”
通用对话框.默认文件后缀 ＝ “.xlsx”
如果真 (通用对话框.打开 () ＝ 假)
返回 ()
EXCEL文件名 ＝ 通用对话框.文件名
Excel程序.创建 ()
Excel工作簿.置程序 (Excel程序)
Excel工作簿.表格序号 ＝ 1
Excel工作簿.激活 ()
变量循环首 (1, 超级列表框.取表项数 (), 1, x)
处理事件 ()
变量循环首 (1, 超级列表框.取列数 (), 1, y)
处理事件 ()
文本 ＝ 字符 (96 ＋ y)
Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (1)
Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (1)
Excel工作簿.内容格式 ＝ “@”
Excel工作簿.内容 ＝ 超级列表框.取列标题 (y － 1)
Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)
Excel工作簿.内容格式 ＝ “@”
Excel工作簿.内容 ＝ 超级列表框.取标题 (x － 1, y － 1)
变量循环尾 ()
变量循环尾 ()
Excel工作簿.保存 (EXCEL文件名)
Excel工作簿.释放 ()
Excel工作簿.关闭 ()
Excel程序.退出 ()

i支持库列表	支持库注释
eExcel2000	EXCEL2000支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 eExcel2000<br /> .支持库 iext<br /> <br /> .子程序 超级列表框保存为EXCEL<br /> .参数 通用对话框, 通用对话框<br /> .参数 Excel程序, Excel程序<br /> .参数 Excel工作簿, Excel工作簿<br /> .参数 超级列表框, 超级列表框<br /> .局部变量 EXCEL文件名, 文本型<br /> .局部变量 x<br /> .局部变量 y<br /> .局部变量 文本, 文本型<br /> .局部变量 保存结果, 逻辑型<br /> <br /> 通用对话框.类型 ＝ 1<br /> 通用对话框.过滤器 ＝ “excel文件（*.xlsx）|*.xlsx”<br /> 通用对话框.默认文件后缀 ＝ “.xlsx”<br /> .如果真 (通用对话框.打开 () ＝ 假)<br />     返回 ()<br /> .如果真结束<br /> EXCEL文件名 ＝ 通用对话框.文件名<br /> Excel程序.创建 ()<br /> Excel工作簿.置程序 (Excel程序)<br /> Excel工作簿.表格序号 ＝ 1<br /> Excel工作簿.激活 ()<br /> .变量循环首 (1, 超级列表框.取表项数 (), 1, x)<br />     处理事件 ()<br />     .变量循环首 (1, 超级列表框.取列数 (), 1, y)<br />         处理事件 ()<br />         文本 ＝ 字符 (96 ＋ y)<br />         Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (1)<br />         Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (1)<br />         Excel工作簿.内容格式 ＝ “@”<br />         Excel工作簿.内容 ＝ 超级列表框.取列标题 (y － 1)<br />         Excel工作簿.首单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)<br />         Excel工作簿.尾单元格 ＝ 文本 ＋ 到文本 (x ＋ 1)<br />         Excel工作簿.内容格式 ＝ “@”<br />         Excel工作簿.内容 ＝ 超级列表框.取标题 (x － 1, y － 1)<br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> Excel工作簿.保存 (EXCEL文件名)<br /> Excel工作簿.释放 ()<br /> Excel工作簿.关闭 ()<br /> Excel程序.退出 ()

易易语

求一个支持office2016 的excel操作模块
http://bbs.125.la/forum.php?mod=viewthread&tid=14180146
(出处: 精易论坛)