3

我需要制作一个 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

这就是我目前所拥有的。

4

1 回答 1

6

没有名为“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
于 2011-11-21T15:27:50.930 回答