Question

我需要制作一个将读成网页的VBA文件,并回去IMG tag的SRC属性的价值。我无法完成最后一步的工作。你们能够帮助我吗?

<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

这符合我目前的情况。

Answer 1

没有任何称为“植被”的方法,即:getElementsByTagName。页: 1 因为它是一种收集。

页: 1

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

友情链接