如何获取目标网页中图片的超链接网址

逆天修炼

各位大神
我打开目标网页，点击网页中的某个图片会重新跳出一个新网页，要求获取这个图片代表的超链接，先谢谢各位大神了！

以下是我百度找到并修改了的代码，执行后却无法找到目标图片的超链接。
假设目标图片第一次打开网址中的“文明住建”和“标准查询"等等多个

Sub GetImgUrl()
Dim Http As Object, url As String
url = "http://zjt.jiangxi.gov.cn/col/col40728/index.html" ’目标网页
Set Http = CreateObject("MSXML2.XMLHTTP")
Http.Open "GET", url, False
Http.Send
Dim Html As Object
Set Html = CreateObject("HTMLDocument")
Html.body.innerHTML = Http.responseText
Dim ImgElements As Object
Set ImgElements = Html.getElementsByTagName("img")
Dim ImgUrl As String
Dim img As Object
For Each img In ImgElements
    ImgUrl = img.getAttribute("src")
    Debug.Print ImgUrl  ‘在目标网网中打开目标图片后获得的网址
Next
End Sub

逆天修炼

有哪位大神路过，拜托看看

shiruiqiang

这种python很容易。但是不敢搞

逆天修炼

shiruiqiang 发表于 2024-1-15 19:29
这种python很容易。但是不敢搞

我电脑没安装python,用python搞的程序，我的电脑也运行不了啊，请问有没有用VB代码搞出来呢？

perfect131

shiruiqiang 发表于 2024-1-15 19:29
这种python很容易。但是不敢搞

不要误导学子

这种用 浏览器控制台js 最适合 ，其次 就是 vba ,vbs (毕竟系统自带）

perfect131

逆天修炼 发表于 2024-1-15 19:34
我电脑没安装python,用python搞的程序，我的电脑也运行不了啊，请问有没有用VB代码搞出来呢？

根本不需要 py
vba 就能搞定

vba CDATAandhtml解析


vba 正则

逆天修炼

perfect131 发表于 2024-1-16 11:10
根本不需要 py
vba 就能搞定

你好，高人兄，你这个代码没有完全显示出来，可否把完整代码贴出来？

逆天修炼

哎，俺们是乞丐，没钱，请哪位路过的高人兄再次帮我看看这个贴子有没有办法解决？下次一定再深入学学这个VBA

perfect131

逆天修炼 发表于 2024-1-16 15:38
你好，高人兄，你这个代码没有完全显示出来，可否把完整代码贴出来？

直接用 上面的 控制台js
vba 需要钞能力