ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 41908|回复: 79

[原创] 一个可以批量抓取网页图片的工具

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-5-19 14:31 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:网页交互
文件下载 WebImg.rar (111.58 KB, 下载次数: 2541)
用  途
本程序可以抓取指定IE窗口中已下载完毕的网页中的全部或部分图片(可根据图片文件后缀和图片所属站点的域名过滤,也可以对单个图片进行选取),对于选中的图片,可以:
1)抓取文件URL列表,可以转换为UBB代码或HTML代码,便于将选中的图片批量转贴到支持UBB的论坛
2)另存图片到指定的本地文件夹,另存时可沿用原来的文件名,也可批量重命名(类似于ACDSee);对于相同文件名已存在的情况,可以选择跳过、覆盖、重命名或提示;因为是从Internet临时文件夹中复制,所以感觉会很快
操作演示
11.gif
5月24日更新:
1。修正正了不能正确保存文件名类似“http://club.excelhome.net/attachment.php?aid=514469&k=f27186493954b6d23ebfc45bbccf63f0&t=1243169921&noupdate=yes”的图片的错误。
2。修正了原来的提示对话框中没有“重命名”按钮的错误。
msgbox.jpg

[ 本帖最后由 小fisher 于 2009-5-25 00:00 编辑 ]

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2009-5-19 15:18 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
不错,很好的工具。

TA的精华主题

TA的得分主题

发表于 2009-5-19 15:31 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-5-19 16:29 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2009-5-19 16:58 | 显示全部楼层
我打开了不是excelhome的网址,怎么过滤选项里没有此网站的图片呢?不可能一张也没有吧?还是我操作有问题呀?

  (重新启动电脑以后,这个问题却没有了。)

[ 本帖最后由 fdd 于 2009-5-19 17:32 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-5-19 17:09 | 显示全部楼层
如图..............
1.JPG

Private Sub cmdNext_Click()
On Error Resume Next'用这一句就解决了
....
End Sub

[ 本帖最后由 987654321 于 2009-5-19 17:53 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-5-19 17:44 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
预览功能仍有可改进的地方。主要是选择多个后,以及取消选择时。

TA的精华主题

TA的得分主题

发表于 2009-5-19 18:22 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
真的值得學習!!

TA的精华主题

TA的得分主题

发表于 2009-5-19 18:36 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-5-19 18:59 | 显示全部楼层
原帖由 fdd 于 2009-5-19 16:58 发表
我打开了不是excelhome的网址,怎么过滤选项里没有此网站的图片呢?不可能一张也没有吧?还是我操作有问题呀?

  (重新启动电脑以后,这个问题却没有了。)  

这个问题我在调试时已经发现了,重现过程:
1。打开几个IE窗口
2。从任务管理器中结束Explorer进程
3。重新启动Explorer之后,虽然能在任务栏中看到之前的几个IE窗口,但是列表中不会显示
解决办法:新建IE窗口将之前的地址重新在新窗口中打开就可以了(这也算办法?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-3-29 13:55 , Processed in 0.050341 second(s), 14 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表