网页 图片另存为

apptestleo apptestleo 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
我想通过创建一个IE实例,打开某网页,然后将网页上的图片进行“图片另存为”保存为BMP格式(不能直接访问图片链接进行下载图片,另外电脑缓存文件夹也找不到这网页的图片缓存),在网上搜了很多文章。自己也参考写了一下代码。发现vba 不支持 Clipboard.GetData的使用,不知道能否用其它方式实现呢?例如api 的OleCreatePictureIndirect可以吗?请大家帮忙,谢谢。

Dim ie As Object
dim url As String
url="http://xxxxxxxx"
Set ie = CreateObject("InternetExplorer.application")
ie.Navigate url
Do While ie.busy Or ie.ReadyState <> 4
DoEvents
Loop

Dim CtrlRange As Object
Set CtrlRange = ie.Document.body.createControlRange
CtrlRange.Add ie.Document.images(0)

Dim Pic As StdPicture
Set Pic = Clipboard.GetData '运行时候这里出错,提示“要求对象”
SavePicture Pic, ThisWorkbook.path & "\img.bmp"
MsgBox "完成"
...全文

相关推荐

评论 4
收藏 已收藏
分享
返回顶部
apptestleo
VBA 2,506 成员 10,830 内容