Obtener código java Script de atributo onclick con macro de Excel
Publicado por Dantte (3 intervenciones) el 09/02/2017 13:29:38
Tengo la siguiente macro, con la que pretendo acceder a un html almacenado en algun directorio del PC, mediante la macro, recorro las tablas que hay en este, y extraigo la informacion, para almacenarla en un una hoja, presento la macro reducida, pues en lo unico que me queda duda es lo siguiente:
En la Columna 0 de cada fila de la Tabla, aparecen iconos, "Btn Descarga", lo que deseo es que mediante la ejecusion del bucle, obtener el codigo de dicho boton, pero francamente no se como hacerlo, espero puedan ayudarme, la macro es esta:
Adjunto html
En la Columna 0 de cada fila de la Tabla, aparecen iconos, "Btn Descarga", lo que deseo es que mediante la ejecusion del bucle, obtener el codigo de dicho boton, pero francamente no se como hacerlo, espero puedan ayudarme, la macro es esta:
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
31
32
Sub ObtenerDatosDesdeLaWeb()
'Obtener html tras hacer una llamada a la web
Dim htmlDeRespuesta As Object
'Dos contadores para los bucles For correspondientes
Dim contadorFilas As Long
Dim contadorColumnas As Long
Dim contadorTablas As Byte
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
Set htmlDeRespuesta = CreateObject("htmlFile")
With CreateObject("msxml2.xmlhttp")
'Conexion http
.Open "GET", "C:\Users\Reptile\Desktop\EXCEL\Teo\Consultas CFDI\1.html", False
.SendhtmlDeRespuesta.body.innerHTML = .responsetext
End With
'Recorrer el html(Tabla) y por cada fila y colomna actualizar nuestra hoja 1
For contadorTablas = 3 To (htmlDeRespuesta.getElementsByTagName("table").Length - 3) 'Tablas
With htmlDeRespuesta.getElementsByTagName("table")(contadorTablas)
For contadorFilas = 0 To .Rows.Length - 1 'Filas
For contadorColumnas = 0 To .Rows(contadorFilas).Cells.Length - 1
'Debug.Print .Rows(contadorFilas).Cells(0).getElementByid("BtnDescarga").Onclick
Next
Next
End With
Next
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
Adjunto html
- 1.rar(220,7 KB)
Valora esta pregunta
0