El problema que tengo, es que necesito extraer de una pagina web, una tabla. La misma tabla tiene opciones de Dia-mes-año, los cuales se los indico yo mediante tres celdas . Lo que necesito es bajar esa tabla a mi documento, con los datos actualizados cada vez que lo desee.
Les paso la web:
http://www.loteriasmundiales.com.ar/
Como veran hay una tabla que le pode cambiar la fecha y te trae los datos de los ganadores de ese dia.
Entonces yo necesito desde mi macro cambiar esas fechas y traer el dia que yo quiera:
La macro que tengo es la siguiente, pero no funciona:
Código: Seleccionar todo
Sub probemosesto()
Dim IE As Object, doc As Object, i As Integer
Application.ScreenUpdating = False
Dim row As Long
Dim col As Long
Dim Dia As String
Dim Mes As String
Dim año As String
Dia = Range("k2")
Mes = Range("l2")
año = Range("m2")
Set IE = CreateObject("internetexplorer.application")
IE.Visible = True
IE.navigate "http://www.loteriasmundiales.com.ar/"
Do While IE.readystate <> 4: DoEvents: Loop
Set doc = CreateObject("htmlfile")
Set doc = IE.document
With doc
.getelementsbyname("cDia")(0).Value = Dia
.getelementsbyname("cMes")(0).Value = Mes
.getelementsbyname("cAno")(0).Value = año
End With
With doc
.getElementbyid("Submit1").Click
End With
Application.Wait Now + TimeSerial(0, 0, 2)
Do While IE.readystate <> 4
DoEvents
Loop
Set doc = IE.document
With doc.getelementsbytagname("table")(7)
For row = 0 To .Rows.Length - 1
For col = 0 To .Rows(row).Cells.Length - 1
Cells(row + ActiveCell.row, ActiveCell.Column + col) = tbl.Rows(row).Cells(col).innerText
Next col
Next row
Set tbl = Nothing
Set doc = Nothing
'Set IE = Nothing
IE.Quit
Application.ScreenUpdating = True
End With
End Sub
Si alguno me puede ayudar lo agradeceria mucho!