lista imagenes

28/06/2006 - 16:56 por fredy | Informe spam
hola.. tengo la siguiente duda..
puedo hacer mediante codigo vba un listado de las imagenes jpg que se
encuentran en una pagina web
muchas gracias

fredy
 

Leer las respuestas

#1 Vinchenzo vinç
28/06/2006 - 17:44 | Informe spam
"fredy" escribió en el mensaje news:
hola.. tengo la siguiente duda..
puedo hacer mediante codigo vba un listado de las imagenes jpg que se
encuentran en una pagina web
muchas gracias



Hola fredy,
suponiendo que tienes un control 'WebBrowser' en tu formulario, y quieres extraer las direcciones de las imágenes 'jpg' en él
contenidas, podrías usar una función similar a la siguiente:

'***************
Public Function ObtenerImgs(ByVal objDoc As Object) As Collection
Dim objImg As HTMLImg

Set ObtenerImgs = New Collection
For Each objImg In Wb.Document.images
If LCase$(Right$(objImg.href, 3)) = "gif" Then ObtenerImgs.Add objImg
Next
End Function
'***************

Añades al libro la referencia a la librería "Microsoft HTML Object Library".

Y para listar las imágenes, por ejemplo en el evento '_DocumentComplete' del WebBrowser:
'*******
Private Sub Wb_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim colImgs As Collection, objImg As HTMLImg

Set colImgs = ObtenerImgs(pDisp)
For Each objImg In colImgs
Debug.Print objImg.href
Next
End Sub
'*******


Saludos
( ! ) Respuestas precedentes en Google:
http://tinyurl.com/rkce5
( i ) Temperancia en el foro:
http://tinyurl.com/mawnn

Preguntas similares