Jump to content
sretamalb

Descargar información página web a excel

Recommended Posts

Buenas tardes,

Estoy tratando de armar un archivo donde al escribir los códigos de ciertos productos este los busque en páginas web y me traiga los precios asociados, la macro funciona ahora como esta pero el problema ocurre cuando un código no lo encuentra en la página me escribe el precio del código anterior. Alguien me puede ayudar a que si no encuentra ese código en la página el valor quede en blanco?

Este es el código que estoy usando.

Sub test()
 
Dim IE As New InternetExplorer
Dim precio1, precio2 As Variant
Dim doc As HTMLDocument

Range("B2:C1000").Clear

Cantfila = Sheets("Hoja1").Range("A" & Rows.Count).End(xlUp).Row

For i = 2 To Cantfila
 
IE.Visible = False
IE.navigate "https://www.elcorteingles.es/electronica/ofertas-electronica/tv/" & Range("A" & i).Text & "/"
Range("B6").Text
 
Do
DoEvents
Loop Until IE.readyState = READYSTATE_COMPLETE

Set doc = IE.document
    
    On Error Resume Next
    precio1 = doc.getElementsByClassName("fb-price")(0).innerText
            If Right(precio1, 1) = ")" Then
                largo = Len(precio1)
                Range("B" & i) = Mid(precio1, 1, largo - 9)
            Else
                Range("B" & i) = precio1
            End If
    
    precio2 = doc.getElementsByClassName("fb-price")(1).innerText
    If Mid(precio2, 1, 1) = "A" Then
    Range("C" & i) = ""
    Else
    Range("C" & i) = precio2
    End If

Next i

MsgBox "Proceso Terminado"

IE.Quit
End Sub
 

Gracias!

Share this post


Link to post
Share on other sites

Hola

El dilema es que no es que busques valores, propiamente dicho, sino que asignas valores de objetos/elementos de internet a tus variables, entonces no necesariamente se entiende  cuando dices "si no encuentra ese código". Por cierto, es una mala costumbre usar "On Error Resume Next" a menos que sea estrictamente necesario, sugiero comenzar quitando esa línea, probar y volver a comentar.

Abraham Valencia

Share this post


Link to post
Share on other sites

@avalencia el problema es que si no le coloco “on error resume next” la macro me queda con error. 

Queria tratar de colocar algo como la formular de Excel si.error(), cosa que si no encuentra el código buscado en la web me lo dejé en blanco. Pero intente con la función “IsError” pero no funciono. 

Me recomiendas otra forma?

muchas gracias. 

Share this post


Link to post
Share on other sites

Hola a ambos

¿Y si simplemente limpias las variables, después de usarlas? 

Precio = Empty

Además como menciona Avalencia, usar esa línea, podría traer ciertas inconsistencias, se recomiemda usarla en tramos específicos de los procedimientos, pero al final del mismo, desactivarla, con on error goto 0 "cero" 

 

Saludos! 

Share this post


Link to post
Share on other sites

Extrae los artículos y precios de la url https://www.elcorteingles.es/electronica/ofertas-electronica/tv/:

Sin utilizar Internet Explorer, lo cual hace el proceso mucho más rápido.

Puedes descargarte el archivo desde:

https://1drv.ms/x/s!Als2txeYXMfbgZlrqIXj7Kwlhzg4aQ

Saludos.

Edited by José_Santos

Share this post


Link to post
Share on other sites

@José_Santos está súper bueno el archivo, pero existe alguna forma que yo pueda ingresar por ejemplo los SKU que quiero que se descargue la información?

Por ejemplo: que en la columna A escriba el código del producto y en la B me arroje la descripción, en la C precio con descuento 449e, en la D 549e y en la E el -18%. Se puede? Lo ideal sería que uno pudiera buscar cualquier SKU en la página no solamente de tv

image.png.ec46e3ded43ccb6f4d926b138b19c8d0.png

Ojalá me puedas ayudar.

Gracias!

Share this post


Link to post
Share on other sites

×
×
  • Create New...

Important Information

Privacy Policy