Error 91 en tiempo de ejecución

1 post / 0 nuevos
braian Sebastian
Imagen de braian Sebastian
Offline
última acción: Hace 3 semanas 3 días
alta: 05/09/2020 - 19:01
Puntos: 35
Error 91 en tiempo de ejecución

Buenas gente de Necesitomas! Gente que quiere y va a crecer.

Busco solucionar el problema que al ejecutar una macro da  error 91 en tiempo de ejecucion.

Estaba viendo el video https://youtu.be/txctDNUOxIc donde te enseñan a extraer texto de pagina web y en la descripcion dejan el archivo excel del tutorial el cual es https://drive.google.com/file/d/1Jxu-nt3HbazrDwhriFYOP-kIEcJwvqk4/view.

El problemame surgió es que a los 2,42 min del video ejecutan una macro que se ejecuta perfectamente, y yo, que tengo el mismo archivo (supuestamente) cuando ejecuto la macro me sale un cartel diciendo "Se ha producido un error 91 en tiempo de ejecucion: variable de objeto o bloque With no establecido".

La macro que me produce (y las otras tambien) el error 91 es:

Sub ie_getElementById()

[a19] = ie.document.getElementById("pt-anontalk").innerText

End Sub

Eh leido este articulo https://www.necesitomas.com/error-91-tiempo-ejecucion-variable-objeto-o-bloque-with-no-establecido donde el usuario "pacomegia" recomendó poner un "set"  pero a mi no me funcionó o lo hice mal.

 

Quiero solucionar el problema pero no sé nada de programacíon.

Les agradezco si me dicen como es que tengo que editar el codigo.

 

 

 

En archivo de excel que se maneja en el video todas las macros son:

Dim ie As Object

 

Sub cciexploc()

Set ie = CreateObject("INTERNETEXPLORER.APPLICATION")

ie.NAVIGATE "https://es.wikipedia.org/wiki/Anexo:Pa%C3%ADses_de_Am%C3%A9rica_por_supe..."

ie.Visible = True

End Sub

 

Sub ie_getElementById()

[a19] = ie.document.getElementById("pt-anontalk").innerText

End Sub

 

Sub ie_getElementsByTagName()

[a20] = ie.document.getElementsByTagName("li")(2).innerText

End Sub

 

Sub ie_getElementsByClassName()

Debug.Print ie.document.getElementsByClassName("firstHeading")(0).innerText

End Sub

 

Sub ie_id_tag()

Debug.Print ie.document.getElementById("mw-content-text").getElementsByTagName("tr")(4).innerText

End Sub

 

Sub etiqueta_td_tr()

Debug.Print ie.document.getElementById("mw-content-text").getElementsByTagName("tr")(2).getElementsByTagName("td")(2).innerText

End Sub

 

Sub contar_tr()

Debug.Print ie.document.getElementById("mw-content-text").getElementsByTagName("tr").Length

End Sub

 

Sub contar_td()

Debug.Print ie.document.getElementById("mw-content-text").getElementsByTagName("td").Length

End Sub

 

Sub contar_tdtr()

Debug.Print ie.document.getElementById("mw-content-text").getElementsByTagName("tr")(1).getElementsByTagName("td").Length

End Sub

 

Sub etiqueta_td_for()

For i = 0 To 3

Debug.Print ie.document.getElementById("mw-content-text").getElementsByTagName("tr")(i).innerText

Next

End Sub

 

Sub ie_td_tr_for()

For i = 0 To 3

For j = 0 To 3

Set Cells(i + 1, j + 1) = ie.document.getElementById("mw-content-text").getElementsByTagName("tr")(i).getElementsByTagName("td")(j).innerText

Next

Next

End Sub

 

Sub todo()

Set ie1 = CreateObject("INTERNETEXPLORER.APPLICATION")

ie1.Visible = True

ie1.NAVIGATE "https://es.wikipedia.org/wiki/Anexo:Pa%C3%ADses_de_Am%C3%A9rica_por_supe..."

        While ie1.ReadyState <> 4

            DoEvents

        Wend

[a26] = ie1.document.getElementById("pt-anontalk").innerText

ie1.Quit

End Sub

 

 

 

 

 

Etiquetas: