有没有EXCEL高手,求助

  • L
    Longinus_ac
    用腾讯文档收集了一些图片数据,EXCEL导出到本地后发现图片都是超链接,如何可以进行批量下载哇?吴彦祖们。
  • y
    yrrehc
    转换成链接文本然后直接复制到迅雷?
  • j
    jimmy203308
    left,right一串操作,拉出真实地址,用下载软件下
  • L
    Longinus_ac
    ..这要死人的
  • y
    yrrehc
    主要是批量下载这个功能超出excel 的功能范畴了,公式提取个链接又不难
  • a
    anyun73
    python requests
  • a
    assassin
    转成网页用迅雷下载全部链接?
  • 黑郁金香
    迅雷有批量下载功能的
  • L
    Longinus_ac
    最后用了这个,但是呢,下载后对不上号了。。。
  • 六花
    用Python或者VBA
    下面是网上扒下来的一个url下载图片的vba,选中所有的url,运行vba,再批量保存图片就好
    用Python写更精简干净,建议自己学学,挺简单的

    Sub 链接转图片()

    For Each Rng In Selection '循环活动工作表中的各个超链接
    If UCase(Rng.Value) Like "*.JPG" Or UCase(Rng.Value) Like "*.JPEG" Or UCase(Rng.Value) Like "*.PNG" Or UCase(Rng.Value) Like "*.GIF" Then '如果链接的位置是jpg或gif图片(此处仅针对此两种图片类型,更多类型可以通过建立数组或字典或正则来判断)
    'Set Rng = HLK.Parent.Offset(, 0) '设定插入目标图片的位置
    With ActiveSheet.Pictures.Insert(Rng.Value) '插入链接地址中的图片
    If .Height / .Width > Rng.Height / Rng.Width Then '判断图片纵横比与单元格纵横比的比值以确定针对单元格缩放的比例
    .Top = Rng.Top
    .Left = Rng.Left + (Rng.Width - .Width * Rng.Height / .Height) / 2
    .Width = .Width * Rng.Height / .Height
    .Height = Rng.Height
    Else
    .Left = Rng.Left
    .Top = Rng.Top + (Rng.Height - .Height * Rng.Width / .Width) / 2
    .Height = .Height * Rng.Width / .Width
    .Width = Rng.Width
    End If
    End With
    Rng.Value = "" '删除单元格的图片链接
    End If
    Next
    End Sub
  • 六花
    或者实在不会写代码,干脆用按键精灵也行…