Obtendo valores de atributo no VBA

Question

Nov 21, 2011, 04:03 PM

Obtendo valores de atributo no VBA

Preciso criar um arquivo VBA que leia uma página da Web e retorne o valor do atributo SRC da tag IMG. Não consegui fazer o último passo funcionar. Vocês podem me ajudar

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

=== Edit === Consegui retornar o objeto de atributo. Agora preciso retornar seu valor

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

É o que tenho no momento.