lista imagenes

"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

"Vinchenzo vinç" escribió en el mensaje news:%

Public Function ObtenerImgs(ByVal objDoc As Object) As Collection
...
For Each objImg In Wb.Document.images

Perdón:

For Each objImg In objDoc.Document.images


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

Vinchenzo vinç gracias por tu atencion
mira lo que tengo simplemente es una direccion :
www.emdepa.com
donde a diario me ponen unas imagenes y necesito descargarlas
lo que yo pense fue tener el nombre de las imagenes y con una aplicacion
descargarlas asi:

For i = 15 To 15

Ssource = Archivo_fuente' cada una de las fotos desde la direccion web

sDest = "E:\imagenes\" & i & ".jpg"



Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Set oHTTP = CreateObject("Microsoft.XMLHTTP")
oHTTP.Open "GET", Ssource, False
oHTTP.send


Set oStream = CreateObject("adodb.stream")
oStream.Type = adTypeBinary
oStream.Open
oStream.write oHTTP.responseBody
oStream.savetofile sDest, adSaveCreateOverWrite
oStream.LoadFromFile sDest
Imagen = oStream.Read
'Response.BinaryWrite imagen
'Response.Write "Done!"


Set oStream = Nothing
Set oHTTP = Nothing


Next i



"Vinchenzo vinç" wrote:

"Vinchenzo vinç" escribió en el mensaje news:%
> Public Function ObtenerImgs(ByVal objDoc As Object) As Collection
> ...
> For Each objImg In Wb.Document.images

Perdón:

For Each objImg In objDoc.Document.images


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

Vinchenzo vinç, lo que quiero es en una hoja de excel porner el listado de
los nombres de las imagenes que colocaron en la pagina

muchas gracias

"fredy" escribió:

Vinchenzo vinç gracias por tu atencion
mira lo que tengo simplemente es una direccion :
www.emdepa.com
donde a diario me ponen unas imagenes y necesito descargarlas
lo que yo pense fue tener el nombre de las imagenes y con una aplicacion
descargarlas asi:

For i = 15 To 15

Ssource = Archivo_fuente' cada una de las fotos desde la direccion web

sDest = "E:\imagenes\" & i & ".jpg"



Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
Set oHTTP = CreateObject("Microsoft.XMLHTTP")
oHTTP.Open "GET", Ssource, False
oHTTP.send


Set oStream = CreateObject("adodb.stream")
oStream.Type = adTypeBinary
oStream.Open
oStream.write oHTTP.responseBody
oStream.savetofile sDest, adSaveCreateOverWrite
oStream.LoadFromFile sDest
Imagen = oStream.Read
'Response.BinaryWrite imagen
'Response.Write "Done!"


Set oStream = Nothing
Set oHTTP = Nothing


Next i



"Vinchenzo vinç" wrote:

> "Vinchenzo vinç" escribió en el mensaje news:%
> > Public Function ObtenerImgs(ByVal objDoc As Object) As Collection
> > ...
> > For Each objImg In Wb.Document.images
>
> Perdón:
>
> For Each objImg In objDoc.Document.images
>
>
> Saludos
> ( ! ) Respuestas precedentes en Google:
> http://tinyurl.com/rkce5
> ( i ) Temperancia en el foro:
> http://tinyurl.com/mawnn
>
>
>