Descargar información página web a excel

[sretamalb]

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!

[Abraham Valencia]

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

[sretamalb]

@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. 

[Gerson Pineda]

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! 

[sretamalb]

@avalencia si elimino la fila on error resume next me arroja el siguiente error:

 

@Gerson Pineda si sacó coloco después del ciclo la variable precio1= empty no me arroja ningún resultado en la hoja de cálculo.

Como se podrá solucionar?

Muchas Gracias por la ayuda de ambos.

[Abraham Valencia]

Pues da la impresión que no existe ese objeto/elemento en todas las páginas por las cuales "navegas", envía el archivo para probar.

Abraham Valencia

[José_Santos]

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.

[sretamalb]

@José_Santos Muchas gracias por tu ayuda, lo revisaré y te comento.

 

Saludos

[sretamalb]

@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

Ojalá me puedas ayudar.

Gracias!

[José_Santos]

@sretamalb

Casi todo es posible, solo lleva su tiempo. Te he adjuntado el archivo para que lo modifiques a tus necesidades.