gpt4 book ai didi

ms-access - 在 VBA 中获取属性值

转载 作者:行者123 更新时间:2023-12-04 14:22:08 29 4
gpt4 key购买 nike

我需要制作一个 VBA 文件来读取网页并返回 IMG 标签的 SRC 属性值。我无法完成最后一步。你们能帮帮我吗?

<html>
<body>
<img src="image.jpg">
</body>
</html>

===编辑===我设法返回了属性对象。现在我需要返回它的值

Option Compare Database

Sub AcessaPagina()
Dim ie As InternetExplorer
Dim test As String
Dim obj As Object

Set ie = New InternetExplorer
ie.Navigate "http://www.google.com.br"
MsgBox ie.Document.getElementsByTagName("img").Item(0).Attributes("src")
ie.Visible = True
End Sub

这就是我目前所拥有的。

最佳答案

没有名为“getElementByTagName”的方法——它被称为getElementsByTagName(注意s,因为它是一个集合)

文档对象返回源中所有 img 标签的集合。所以你可以像这样迭代它:

Sub AcessaPagina()
Dim ie As Object ' InternetExplorer
Dim images As Object ' MSHTML.IHTMLElementCollection
Dim image As Object ' MSHTML.IHTMLElement

Set ie = CreateObject("InternetExplorer.Application")
ie.navigate "http://www.google.com.br"
Set images = GetAllImages(ie)

For Each image In images
Debug.Print image.getAttribute("src")
Next image

End Sub

Function GetAllImages(ie As Object) As Object
Set GetAllImages = ie.document.images
End Function

关于ms-access - 在 VBA 中获取属性值,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/8213850/

29 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com