Jump to content
muyayito

ANSWERED Formato fecha cambiado

Recommended Posts

Buenas noches foro.

Extraigo datos de una pagina web, y al extraer una fecha, por ejemplo la de hoy, en la pagina web esta bien puesta, pero al trasladarla a una celda me la copia estilo ingles, o sea, al reves. Hya alguna forma de que se extraiga en formato dd/mm/aaaa en vez de mm/dd/aaaa?

Sub Sorteos()

Application.DisplayAlerts = False
Dim IE As Object
Set IE = CreateObject("InternetExplorer.application")
IE.Navigate "https://www.loteriasyapuestas.es/es/resultados"
Do
    DoEvents
Loop Until IE.ReadyState = 4
fecbon = IE.Document.getElementById("qa_ultResult-BONO-fecha").innerHTML
Hoja1.[a1].Value = fecbon: Hoja1.[a1].NumberFormat = "dd/mm/yyyy"
End Sub

 

 

Nuevo Hoja de cálculo de Microsoft Office Excel.xlsm

Edited by muyayito

Share this post


Link to post
Share on other sites

Sustituye:

Hoja3.[a1].Value = fecbon: Hoja3.[a1].NumberFormat = "dd/mm/yyyy"

por

Hoja3.[a1].Value = Cdate(fecbon)

 

Share this post


Link to post
Share on other sites
Ahora mismo, JSDJSD dijo:

Hoja3.[a1].Value = Cdate(fecbon)

Hola JSDJSD, gracias por la respuesta. Me extrae seis de enero, cuando la fecha que consta en la web es 1 de junio

El codigo de la pagina esta bien...

<p class="c-ultimo-resultado__fecha" id="qa_ultResult-BONO-fecha">01/06/2020</p>

 

Share this post


Link to post
Share on other sites

Hola

Ojo que, como se ha dicho muchas veces por aquí,  usar el objeto IE es más lento que otros, pero dado que lo usas, haz estos cambios:

Sub Sorteos()


Dim IE As Object
Dim fecbon As Date

Application.ScreenUpdating = False

Set IE = CreateObject("InternetExplorer.application")

IE.Navigate "https://www.loteriasyapuestas.es/es/resultados"

Do
    DoEvents
Loop Until IE.ReadyState = 4

fecbon = Format(IE.Document.getElementById("qa_ultResult-BONO-fecha").innerText, "dd/mm/yyyy")

Hoja1.[A1] = fecbon

IE.Quit

End Sub

Saludos

Share this post


Link to post
Share on other sites

Genial Abrahám, ahora extrae perfectamente.

Por interés didáctico a que otro objeto que no es IE  te refieres?

P.D. Gracias por la solución.

Share this post


Link to post
Share on other sites



×
×
  • Create New...

Important Information

Privacy Policy