Scraping VBA

[sretamalb]

Hola Buenas Noches,

Tengo un problema ya que estoy haciendo scraping a una página la cuál contiene sólo eventos Class para descargar la información y no me permite descargar nada queda la hoja en blanco.

He probado con todos los class y aún así no puedo obtener la descripción y URL de los productos que es lo que ando buscando. Alguien me podría ayudar a obtener dicha información. Adjunto el archivo.

Muchas Gracias.Prueba.xlsm

Prueba.xlsm

[Luis paz]

Por lo que veo, el problema proviene de la confiabilidad de la página. Estoy haciendo pruebas y en google chrome puedo ver la pg con el url que usas, pero en el navegador de mi pc no, lo cual quiere decir que está siendo bloqueada o algo por el estilo... Seguiré intentando un poco más para ver que se puede hacer, y te informo

[sretamalb]

Gracias por tu ayuda @Luis paz, como te comenté yo probé con todos las clases y no pude obtener información.

 

[Luis paz]

Es que el tema no son las clases, sino siento que es la página web, porque he utilizado otro código usando tu URL, pero no abre la página correctamente.. Queda en blanco, lo cual me hace creer que el problema no es tu código, sino que la página ha de tener algún plugin que detecta la automatización... En realidad no sé si exista un plugin que detecte eso...

Adjunto la prueba que he realizado...

Prueba.xlsm

[José_Santos]

@Luis paz    No solo no lo has arreglado sino que encima le has cambiado los objetos al código de Origen. El trabajar con IE está más que obsoleto, salvo en muy contadas ocasiones, además falla más que una escopeta de feria. Aparte de tener que esperar 5 segundos a ver si se carga la página tienes que chequear si se ha cargado con el readyState y demás...

Como tengas que acceder a 100 url´s por 5 segundos, al menos cada una...

@sretamalb   Este es un caso parecido al que te resolví de Falabella, trata el RESPONSETEXT como texto y podrás extraer bastante información. Ahí te pongo algo de código para que veas que, por lo menos, puedes extraer los precios.

    texto = Split(XMLPage.responseText, "cardPrice")
    
    For x = 1 To UBound(texto)
        MsgBox texto(x)
    Next
 

[sretamalb]

Gracias @José_Santos por tu ayuda!!!!
al utilizar el código me arroja este mensaje:

Será correcto?

[José_Santos]

Al principio te sale el precio, trata la cadena de caracteres porque eso es un JSON

[sretamalb]

@José_Santos porque no me aparece el apartado de Red en mi navegador?

[José_Santos]

En cual?

[sretamalb]

@José_Santos estaba en Chrome, ahora viéndolo bien en Firefox aparece.

Revisaré y te comento.

Muchísimas gracias nuevamente.

[José_Santos]

Yo siempre uso Firefox para hacer Web Scraping, nunca el Chorme

[sretamalb]

@José_Santos revisando en red debe salir explicitamente que la información es de tipo JSON? Porque estoy analizando la web pero no viene ningún formato tipo json o puede ser otro?

[sretamalb]

@José_Santos es normal que aparezcan todos los dominios con un candado?

En tipo no encuentro ninguno con el nombre de JSON