有超级列表框内容是url内容导出表格后，以图片显示的办.....

枫叶成霜

有超级列表框内容是url内容导出表格后，以图片显示的办法吗？

导出后的表格，内容的url以图片显示



补充内容 (2024-3-26 21:32):
导出，是导出，导出后的表格内容，有url，想以图片的形式显示

赤璃琴殇

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1
变量名	类 型	数组	备 注
集_链接组	文本型	0

子程序名	返回值类型	公开	备 注
_窗口1_创建完毕

变量名	类 型	静态	数组	备 注
i	整数型
索引	整数型

加入成员 (集_链接组, “https://gd-hbimg.huaban.com/9fcd42d7cd7495c74d3b67bd160092a99912dbdaa3cd6-AKx8qT_fw658webp”)
加入成员 (集_链接组, “https://gd-hbimg.huaban.com/124f7309a34a535ff1c2c38c290ff30c3b93071b7260c-TD62jp_fw1200”)
计次循环首 (取数组成员数 (集_链接组), i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))
超级列表框1.置标题 (索引, 1, 集_链接组 [i])
计次循环尾 ()

子程序名	返回值类型	公开	备 注
_按钮_导出_被单击

变量名	类 型	静态	数组	备 注
程序对象	对象
工作簿集	对象
工作簿	对象
表格集	对象
表格	对象
i	整数型
工作表索引	整数型
图片	字节集
单元格	对象
图片对象	对象
插入区域	对象

判断 (程序对象.创建 (“ket.application”, ) ＝ 真)  ' Wps程序对象
工作簿集 ＝ 程序对象.读对象型属性 (“Workbooks”, )
判断 (程序对象.创建 (“Excel.application”, ) ＝ 真)  ' 微软Excel程序对象
工作簿集 ＝ 程序对象.读对象型属性 (“Workbooks”, )
调试输出 (“系统未安装excel或注册表无效”)

程序对象.写属性 (“Visible”, 假)  ' 是否可视
工作簿集.方法 (“OPEN”, “C:\Users\Administrator\Desktop\例子.xlsx”)  ' 打开工作簿
' 各种获取对象
工作簿 ＝ 程序对象.读对象型属性 (“ActiveWorkbook”, )
表格集 ＝ 程序对象.读对象型属性 (“Worksheets”, )
表格 ＝ 程序对象.读对象型属性 (“ActiveSheet”, )
单元格 ＝ 程序对象.读对象型属性 (“Cells”, )
' 下面是导出文件
工作表索引 ＝ 1  ' 第一个表
计次循环首 (超级列表框1.取表项数 (), i)
表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).读对象型属性 (“Range”, “A” ＋ 到文本 (i)).写属性 (“Value”, 超级列表框1.取标题 (i － 1, 0))  ' 写入内容
图片 ＝ 网页_访问_对象 (超级列表框1.取标题 (i － 1, 1), 0, , , , , , , , , , , , , , , , , )  ' 下载图片
图片_转换 (图片, 2, , 图片, )
写到文件 (取运行目录 () ＋ “\1.jpg”, 图片)
插入区域 ＝ 表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).读对象型属性 (“Range”, “B” ＋ 到文本 (i))  ' 读取插入区域
图片对象 ＝ 表格.读对象型属性 (“Pictures”, ).对象型方法 (“Insert”, 取运行目录 () ＋ “\1.jpg”)  ' 插入图片
' 设置图片属性
图片对象.写属性 (“Width”, 插入区域.读数值属性 (“Width”, ))  ' 宽度
图片对象.写属性 (“Height”, 插入区域.读数值属性 (“Height”, ))  ' 高度
图片对象.写属性 (“Top”, 插入区域.读数值属性 (“Top”, ))  ' 顶边
图片对象.写属性 (“Left”, 插入区域.读数值属性 (“Left”, ))  ' 底边
图片对象.写属性 (“Placement”, 1)  ' 嵌入图片
计次循环尾 ()
程序对象.写属性 (“DisplayAlerts”, 假)
工作簿.方法 (“Save”, )  ' 保存
程序对象.写属性 (“DisplayAlerts”, 真)
工作簿集.方法 (“Close”, )  ' 关闭工作簿
程序对象.方法 (“Quit”, )  ' 关闭excel
程序对象.清除 ()

i支持库列表	支持库注释
iext	扩展界面支持库一
spec	特殊功能支持库

.版本 2<br /> .支持库 iext<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1<br /> .程序集变量 集_链接组, 文本型, , "0"<br /> <br /> .子程序 _窗口1_创建完毕<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 加入成员 (集_链接组, “https://gd-hbimg.huaban.com/9fcd42d7cd7495c74d3b67bd160092a99912dbdaa3cd6-AKx8qT_fw658webp”)<br /> 加入成员 (集_链接组, “https://gd-hbimg.huaban.com/124f7309a34a535ff1c2c38c290ff30c3b93071b7260c-TD62jp_fw1200”)<br /> .计次循环首 (取数组成员数 (集_链接组), i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, 到文本 (索引 ＋ 1))<br />     超级列表框1.置标题 (索引, 1, 集_链接组 <i>)<br /> .计次循环尾 ()<br /> <br /> .子程序 _按钮_导出_被单击<br /> .局部变量 程序对象, 对象<br /> .局部变量 工作簿集, 对象<br /> .局部变量 工作簿, 对象<br /> .局部变量 表格集, 对象<br /> .局部变量 表格, 对象<br /> .局部变量 i, 整数型<br /> .局部变量 工作表索引, 整数型<br /> .局部变量 图片, 字节集<br /> .局部变量 单元格, 对象<br /> .局部变量 图片对象, 对象<br /> .局部变量 插入区域, 对象<br /> <br /> .判断开始 (程序对象.创建 (“ket.application”, ) ＝ 真)  ' Wps程序对象<br />     工作簿集 ＝ 程序对象.读对象型属性 (“Workbooks”, )<br /> .判断 (程序对象.创建 (“Excel.application”, ) ＝ 真)  ' 微软Excel程序对象<br />     工作簿集 ＝ 程序对象.读对象型属性 (“Workbooks”, )<br /> .默认<br />     调试输出 (“系统未安装excel或注册表无效”)<br /> .判断结束<br /> <br /> 程序对象.写属性 (“Visible”, 假)  ' 是否可视<br /> 工作簿集.方法 (“OPEN”, “C:\Users\Administrator\Desktop\例子.xlsx”)  ' 打开工作簿<br /> ' 各种获取对象<br /> 工作簿 ＝ 程序对象.读对象型属性 (“ActiveWorkbook”, )<br /> 表格集 ＝ 程序对象.读对象型属性 (“Worksheets”, )<br /> 表格 ＝ 程序对象.读对象型属性 (“ActiveSheet”, )<br /> 单元格 ＝ 程序对象.读对象型属性 (“Cells”, )<br /> ' 下面是导出文件<br /> 工作表索引 ＝ 1  ' 第一个表<br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).读对象型属性 (“Range”, “A” ＋ 到文本 (i)).写属性 (“Value”, 超级列表框1.取标题 (i － 1, 0))  ' 写入内容<br />     图片 ＝ 网页_访问_对象 (超级列表框1.取标题 (i － 1, 1), 0, , , , , , , , , , , , , , , , , )  ' 下载图片<br />     图片_转换 (图片, 2, , 图片, )<br />     写到文件 (取运行目录 () ＋ “\1.jpg”, 图片)<br />     插入区域 ＝ 表格集.读对象型属性 (“Item”, 工作表索引).读对象型属性 (“Cells”, ).读对象型属性 (“Range”, “B” ＋ 到文本 (i))  ' 读取插入区域<br />     图片对象 ＝ 表格.读对象型属性 (“Pictures”, ).对象型方法 (“Insert”, 取运行目录 () ＋ “\1.jpg”)  ' 插入图片<br />     ' 设置图片属性<br />     图片对象.写属性 (“Width”, 插入区域.读数值属性 (“Width”, ))  ' 宽度<br />     图片对象.写属性 (“Height”, 插入区域.读数值属性 (“Height”, ))  ' 高度<br />     图片对象.写属性 (“Top”, 插入区域.读数值属性 (“Top”, ))  ' 顶边<br />     图片对象.写属性 (“Left”, 插入区域.读数值属性 (“Left”, ))  ' 底边<br />     图片对象.写属性 (“Placement”, 1)  ' 嵌入图片<br /> .计次循环尾 ()<br /> 程序对象.写属性 (“DisplayAlerts”, 假)<br /> 工作簿.方法 (“Save”, )  ' 保存<br /> 程序对象.写属性 (“DisplayAlerts”, 真)<br /> 工作簿集.方法 (“Close”, )  ' 关闭工作簿<br /> 程序对象.方法 (“Quit”, )  ' 关闭excel<br /> 程序对象.清除 ()

照着我这个例子来


补充内容 (2024-3-27 00:09):
注释写错了  “Left” 是 左边

kirbysxh

可以用exui

鹏书

那就用http读文件夹把图片的内容读取回来

枫叶成霜

kirbysxh 发表于 2024-3-26 21:19
可以用exui

我是要导出的表格 里面的url 以图片显示呢

枫叶成霜

鹏书 发表于 2024-3-26 21:26
那就用http读文件夹把图片的内容读取回来

我是说导出后的表格呢，不是说导入

观音

导出的时候 读取图片的数据 再写入呗

枫叶成霜

观音 发表于 2024-3-26 21:33
导出的时候 读取图片的数据 再写入呗

我是说导出后的表格文件，谢谢。

观音

枫叶成霜 发表于 2024-3-26 21:41
我是说导出后的表格文件，谢谢。

我说的就是导出后  你导出之前的时候 就获取图片数据再导出就好了

枫叶成霜

卵了，都不会呀