获取属性值在VBA属性、VBA

由网友(归去如风)分享简介：我需要做一个VBA文件，将读取网页并返回IMG标签的SRC属性的值。我无法使最后一步的工作。你们可以帮我吗？I need to make a VBA file that will read a webpage and return the value of the SRC attribute of the IMG t...

我需要做一个VBA文件，将读取网页并返回IMG标签的SRC属性的值。我无法使最后一步的工作。你们可以帮我吗？

I need to make a VBA file that will read a webpage and return the value of the SRC attribute of the IMG tag. I wasn't able to make the last step work. Can you guys help me?

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

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

===Edit=== I managed to return the attribute object. Now I need to return its value

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

这就是我目前所面对的。

That's what I have at the moment.

推荐答案

有没有一种方法被称为getElementByTagName - 这就是所谓的的getElementsByTagName （注意在取值，因为它是一家集）

There is no method called "getElementByTagName" -- it's called getElementsByTagName (note the s because it is a collection)

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

The Document Object returns a collection of all the img tags in the source. So you can iterate it like this:

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

阅读全文

相关专题：属性；VBA ；发布时间：2023-09-08 11:03:06