网络超链接转成图片

jin2001h

网络超链接批量转成图片，谢谢各位大神！

jin2001h

把B1中网络链接的网络图片复制到C1，如表二中。要批量的能复制成千上万条的

3190496160

下载超链接的网页图片到单元格中，这种帖子回过的太多了，自己搜搜看看呗

3190496160

Sub DownLoadPicture()
Dim pn
Application.ScreenUpdating = False
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = CreateObject("scripting.dictionary")
With Sheets("sheet1")
    For Each shp In .Shapes
        If shp.TopLeftCell.Column = 3 Then
            shp.Delete
        End If
    Next shp
    ar = .[a1].CurrentRegion
    For i = 2 To UBound(ar)
        If .Range("b" & i).Value <> "" Then
            pn = .Range("b" & i).Value
            Set t = .Range("c" & i)
            cellL = t.Left + 3
            cellT = t.Top
            Set shpPic = ActiveSheet.Shapes.AddPicture(pn, msoFalse, msoTrue, cellL, cellT, 1, 1)
            shpPic.Top = .Cells(i, 3).Top + 1
            shpPic.Left = .Cells(i, 3).Left + 1
            shpPic.Width = .Cells(i, 3).Width - 1
            shpPic.Height = .Cells(i, 3).Height - 1
           Set shpPic = Nothing
        End If
    Next i
End With
Application.ScreenUpdating = True
MsgBox "OK，图片下载完成!"
End Sub

3190496160

商品.rar (81.23 KB, 下载次数: 71)

2022-8-16 21:58 上传

点击文件名下载附件

zpy2

select *,'<img src='||链接||' >' 图片 from 网络图片链接显示为图片;