Extraer datos de una web a excel con Macros
Publicado por cesarCenturion (1 intervención) el 27/11/2018 20:38:19
Buenas, me podrían ayudar con esta macros, ya la tengo hecha solo necesito mejorar. Extrae el contenido completo de una url. especifica: necesito hacer consultas masivas de datos mediante numeros de id. especificos.-
lo que se es como extraer solo el contenido de una celda especifica dentro de la tabla.-
adjunto codigo.-
saludos.-
lo que se es como extraer solo el contenido de una celda especifica dentro de la tabla.-
adjunto codigo.-
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
33
34
35
Sub Descargar_Cotizaciones()
Dim Abrir_ie As Object
Dim sFilme As String
Dim celda As String
Dim fila As Integer, col As Integerconta = 1y = 0Set Abrir_ie = CreateObject("internetexplorer.application")
celda = "B" & conta
sFilme = Replace(Range(celda).Text, " ", "+")
Do While sFilme <> ""
With Abrir_ie
.Top = 1
.Left = 1
.Width = 600
.Height = 400
.Visible = False
.navigate "http://servicios.ips.gov.py/consulta_asegurado/comprobacion_de_derecho_externo.php?nro_cic=" & sFilme & "&bandera=1&envio=ok"
End With
Do While Abrir_ie.busyDoEvents
Loop
Application.Wait (Now + TimeValue("0:00:01"))
Dim Registros As Object
Set Registros = Abrir_ie.Document.getelementsbyname("vesbrbacnorc")
For Each formelement In Registros
ThisWorkbook.Sheets("hoja1").Cells(y + 1, 1).Value = formelement.innertext
conta = conta + 1
y = y + 1
Next formelement
celda = "B" & conta
sFilme = Replace(Range(celda).Text, " ", "+")
Loop
End Sub
Valora esta pregunta
0
