ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

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

[求助] 如何把URL转换成图片显示

[复制链接]

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-27 23:08 | 显示全部楼层
vbexcelhome 发表于 2019-12-27 22:40
临时改造了一个下载工具,把你的数据整理一下,然后复制、粘贴,点下载就行了

你好,谢谢。 我刚下载看了下,但是这是下载到了本地,我想直接在表格里自动转化呢? 我经常需要下载表格,然后url变成图片然后筛选数据,不需要的删掉

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-28 08:49 | 显示全部楼层
EXCELLMY 发表于 2019-12-27 10:29
明天联系我吧,明天双休

大佬,起来没呢?

TA的精华主题

TA的得分主题

发表于 2019-12-28 10:17 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-12-28 12:43 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2019-12-28 13:30 | 显示全部楼层
凌空子 发表于 2019-12-28 08:49
大佬,起来没呢?

先把你的数据源整理好先吧,一个单元格 2个链接。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-29 08:28 | 显示全部楼层
Q155133209 发表于 2019-12-28 13:30
先把你的数据源整理好先吧,一个单元格 2个链接。。

你好,我把url那列全部改成了只有一个图片链接,您有空了帮忙看下,谢谢!

Keepa_ASIN_Export.2019_12_14.22_products.rar

33.9 KB, 下载次数: 18

TA的精华主题

TA的得分主题

发表于 2019-12-29 13:51 | 显示全部楼层
凌空子 发表于 2019-12-29 08:28
你好,我把url那列全部改成了只有一个图片链接,您有空了帮忙看下,谢谢!

试试:
  1. Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
  2.         
  3. Sub DownLoadPicture()
  4. Dim r, rr, url, Pn, Rng
  5. On Error Resume Next
  6. Application.ScreenUpdating = False
  7. Application.DisplayAlerts = False
  8. Call Delshp
  9. rr = [B65536].End(xlUp).Row
  10. For r = 2 To rr
  11.     url = Range("B" & r).Value
  12.     If url <> "" Then
  13.        On Error Resume Next
  14.        Pn = Split(url, "/")(UBound(Split(url, "/")))
  15.        URLDownloadToFile 0, url, ThisWorkbook.Path & "" & Pn, 0, 0
  16.        Set Rng = Range("C" & r)  '设定插入目标图片的位置
  17.        With ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "" & Pn)  '插入链接地址中的图片
  18.             If .Height / .Width > Rng.Height / Rng.Width Then  '判断图片纵横比与单元格纵横比的比值以确定针对单元格缩放的比例
  19.                 .Top = Rng.Top
  20.                 .Left = Rng.Left + (Rng.Width - .Width * Rng.Height / .Height) / 2
  21.                 .Width = .Width * Rng.Height / .Height
  22.                 .Height = Rng.Height
  23.             Else
  24.                 .Left = Rng.Left
  25.                 .Top = Rng.Top + (Rng.Height - .Height * Rng.Width / .Width) / 2
  26.                 .Height = .Height * Rng.Width / .Width
  27.                 .Width = Rng.Width
  28.             End If
  29.         End With
  30.         Kill ThisWorkbook.Path & "" & Pn
  31.     End If
  32. Next
  33. Application.DisplayAlerts = True
  34. Application.ScreenUpdating = True
  35. MsgBox "OK,图片下载完成!"
  36. End Sub

  37. Sub Delshp()
  38. Application.DisplayAlerts = False
  39. On Error Resume Next
  40.     Dim shp As Shape
  41.     For Each shp In Worksheets("Sheet0").Shapes
  42.         'If shp.Type = msoPicture Then
  43.             shp.Delete
  44.         'End If
  45.     Next
  46. Application.DisplayAlerts = True
  47. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2019-12-29 13:53 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-12-30 10:55 | 显示全部楼层

谢谢。

我这边打开是有个报错,您看下附件截图。  我微信是 lingkongzi123, 可以加我微信聊下吗?谢谢
微信图片_20191230105346.png
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-3-29 23:35 , Processed in 0.049266 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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