Visual Basic para Aplicaciones - Error 438

Life is soft - evento anual de software empresarial
 
Vista:

Error 438

Publicado por Valeria Martinez (2 intervenciones) el 10/06/2018 02:20:07
Hola que tal, al querer ejecutar esta macro me manda un error 438 en tiempo de ejecución, no se a que se deba, ojala puedan ayudarme por favor.



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub ObtenerDatosDesdeLaWeb()
 
    'Obtener HTML tras hacer una llamada a la web
 
    Dim htmlDeRespuesta As Object
    ' Contadores
    Dim contadorFilas As Long
    Dim contador As Long
 
    Set htmlDeRespuesta = CreateObject("htmlFile")
 
    With CreateObject("msxml2.xmlhttp")
        .Open "GET", "http://crm.grupotabar.net/abpro/index.php?module=Cases&action=index&parentTab=Soporte", False
        .send
        htmlDeRespuesta.body.innerhtml = .responsetext
 
     MsgBox (htmlDeRespuesta.body.innerhtml)
 
    End With
    With htmlDeRespuesta.GetElementsByTagName("table")(0)
    For contadorFilas = 0 To .Rows.Length - 1
        For contador = 0 To .Rows(contadorFilas).Celis.Length - 1
 
    Sheets(1).Celis(contadorFilas + 1, contador + 1).Value = .Rows(contadorFilas).Celis(contador).innertext
     Next
 
Next
     End With
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Error 438

Publicado por Yamil Bracho (2 intervenciones) el 10/06/2018 03:38:22
Este error indica que el obejto no admite la propiedad o metodo que se esta usando. Ahora tienes CreateObject asi que tienes que ver en cual de los objetos que estas creando no se esta ejecutando por que quizas te falta agregar alguna referencia
Vas atener que ejecutar paso a paso para ver cual es la linea donde tienes el error
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Error 438

Publicado por Valeria (2 intervenciones) el 10/06/2018 03:49:47
Hola Yamil, la línea en donde me marca el error es en la de For contador = 0 To .Rows(contadorFilas).Celis.Length - 1
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Norberto
Val: 61
Ha aumentado 1 puesto en Visual Basic para Aplicaciones (en relación al último mes)
Gráfica de Visual Basic para Aplicaciones

Error 438

Publicado por Norberto (22 intervenciones) el 11/06/2018 13:08:55
Hola.

¿Celis? For contador = 0 To .Rows(contadorFilas).Cells.Length - 1

Un saludo,

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar