Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Código Fuente » Visual Basic para Aplicaciones » Código de Visual Basic para Aplicaciones - Macro para importar información de un servicio API desde la hoja de cálculo

Código de Visual Basic para Aplicaciones - Macro para importar información de un servicio API desde la hoja de cálculo

Volver
Agregar Código Fuente
<<>>
sin imagen de perfil

Macro para importar información de un servicio API desde la hoja de cálculográfica de visualizaciones


Visual Basic para Aplicaciones

Publicado el 13 de Febrero del 2023 por Izcoatl Inzunza (4 códigos)
822 visualizaciones desde el 13 de Febrero del 2023
Programación de macro que ayudará a importar información directamente desde excel desde una API, la estructura se puede aplicar para consultas a diversas fuentes como los servicios que brinda el gobierno. la finalidad es ahorrarse tiempo de proceso y dedicar más tiempo al análisis. Para efectos prácticos se ha divido en 2 partes, la primera parte es la consulta al servicio API y en un segundo video se explicará como acomodar la información obtenida en la consulta en formato JSON. en el video siguiente se explica su programación: https://youtu.be/LiuOkhCZeJ0

Requerimientos

Activar el componente "Microsoft HTML Object Library" desde el IDE de programación en el menú de "Herramientas" - "Referencias"

1

Publicado el 13 de Febrero del 2023gráfica de visualizaciones de la versión: 1
823 visualizaciones desde el 13 de Febrero del 2023
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

https://youtu.be/LiuOkhCZeJ0
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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Sub consultaURL()
 
    Dim url_1, url_2, url_3, token, indicador, url_consulta As String
    Dim fechaIni, fechaFin As Date
    Dim fechaIniStr, fechaFinStr As String
    Dim consulta As Object
 
    url_1 = Sheets("Consulta").Cells(3, 3)
    url_2 = Sheets("Consulta").Cells(4, 3)
    url_3 = Sheets("Consulta").Cells(4, 5)
    fechaIni = Sheets("Consulta").Cells(6, 3)
    fechaFin = Sheets("Consulta").Cells(7, 3)
    token = Sheets("Consulta").Cells(5, 3)
    indicador = Sheets("Consulta").Cells(8, 3)
    fechaIniStr = getFechaStr(CDate(fechaIni))
    fechaFinStr = getFechaStr(CDate(fechaFin))
 
    url_consulta = url_1 & indicador & url_2 & fechaIniStr & "/" & fechaFinStr & url_3 & token
 
    Set consulta = CreateObject("MSXML2.XMLHTTP")
 
    With consulta
        .Open "GET", url_consulta, False
        .send
    End With
 
    Sheets("Consulta").Cells(11, 1) = consulta.responseText
 
 
End Sub
 
Function getFechaStr(dato As Date) As String
 
    Dim mes As String
    If (Month(dato) <= 9) Then
        mes = "0" & Month(dato)
    Else
        mes = Month(dato)
    End If
 
    Dim dia As String
    If (Day(dato) <= 9) Then
        dia = "0" & Day(dato)
    Else
        dia = Day(dato)
    End If
 
    getFechaStr = Year(dato) & "-" & mes & "-" & dia
 
End Function



Comentarios sobre la versión: 1 (0)


No hay comentarios
 

Comentar la versión: 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad
Acepto las políticas de privacidad

http://lwp-l.com/s7338