Cuando escribo dirección de página WEB me devuelve un archivo json

Tengo el siguiente código que va a una dirección web, y hace una consulta sobre la validez del documento que estoy escribiendo, el problema es que me genera un documento .json y lo que necesito es que la generación de esta pagina web grabe en una variante la información que está dentro de este documento.

Cuando abro el documento desde una navegador como por ejemplo chrome, no genera el archivo .json sino que abre la dirección web con la información que necesito.

No se si con algún método Post o Get se puede extraer la información, con el código que estoy colocando.

Favor su ayuda

Sub ValidaInfo()
Dim ie As Object
Dim ele As Object
Dim doc As HTMLDocument
Dim LoginForm As HTMLFormElement
Dim FechaBase As Date
FechaBase = #1/1/2018#
'Clave = (((Range("C2").Value - FechaBase) * 86400000) + 1514782800000#) & "-" & Range("E2").Value & "-" & Range("B2").Value & "-" & Mid(Range("A2").Value, 1, 3) & "-" & Mid(Range("D2").Value, 1, 3) & "-" & Mid(Range("D2").Value, 4, 3) & "-" & Mid(Range("D2").Value, 8, 10)
Clave = "1539320400000-1123071575-1791834372001-FAC-001-001-8781"
Range("g2").Value = Clave
Set ie = CreateObject("InternetExplorer.application")
ie.Visible = True
ie.Navigate "https://declaraciones.sri.gob.ec/movil-servicios/api/web/documentoValidoWeb/consultaDocumento?datos=" & Clave

Añade tu respuesta

Haz clic para o