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


0