VBA提取多个网页中src值后并显示该照片

gcho

我手里有一个微信程序导出的excel表，里面手写签名的那一列数据为网页链接，只能点击后只能通过打开网页查看，我想让这类数据直接显示签名的图片。
本人不会VBA，在网上看到很多VBA程序，都是介绍如何提取像.jpg/..png结尾的网页图片，查看我的那个网页源数据，发现真正的.jpg图片链接地址在src值后面。
我把问题描述、宏文件、网页源数据截图都放在测试文件.xlsx里了，麻烦大佬们下载后帮忙测试修改，万分感谢！

1. Public Sub GetImagesFromLinks()
   
2. 
   
3.     '作用: 根据图片链接地址，插入图片到 Excel 中，图片位置在链接单元格右侧的单元格中
   
4.     '代码运行中，若想要中断执行，可以在 VBA 界面按键盘快捷键[Ctrl] + [Pause Break]
   
5. 
   
6.     Dim link As Range, Links As Range, counter As Long
   
7.     Set Links = ActiveSheet.Range("B2:B8") '链接所在的单元格区域
   
8. 
   
9.     On Error Resume Next '忽略错误，如链接错误、网络问题、空单元格等
   
10.     Application.ScreenUpdating = False
    
11.     For Each link In Links
    
12.         With link.Offset(, 1) '图片存放于右侧的单元格中
    
13. 
    
14.             '插入图片
    
15.             ActiveSheet.Shapes.AddPicture(link.Value, 1, 1, .Left, .Top, _
    
16.                 .Width, .Height).Placement = xlMoveAndSize
    
17. 
    
18.             If Err.Number = 0 Then '记录反馈
    
19.                 .Offset(, 1).Value = "成功"
    
20.                 counter = counter + 1
    
21.             Else
    
22.                 .Offset(, 1).Value = Err.Description
    
23.                 Err.Clear
    
24.             End If
    
25. 
    
26.         End With
    
27.     Next
    
28. 
    
29.     Application.ScreenUpdating = True
    
30.     MsgBox "图片链接共 " & Links.Count & " 个，已成功获取 " & counter & " 个！", _
    
31.         vbOKOnly Or vbInformation, "温馨提示"
    
32. 
    
33. End Sub
    

复制代码

perfect131

看网址后面有没有后缀，没有后缀那说明图片从别的地方加载的
直接post 就能获取图片链接，可以搞

gcho

perfect131 发表于 2023-4-28 15:02
看网址后面有没有后缀，没有后缀那说明图片从别的地方加载的
直接post 就能获取图片链接，可以搞

谢谢回复，具体如何操作，教教我，完整代码可以附上吗，再次谢谢！