Leer xml desde https con access
Tengo una duda y es que yo disponía de modulo de access para calcular distancias con google maps
Actualmente han cambiado y hay que añadir la KEY privada.
Este es el modulo que uso
Function G_DISTANCIA(ORIGEN As String, DESTINO As String) As String
Dim MyRequest As XMLHTTP60
Dim mydomdoc As DomDocument60
Dim distanceNode As ixmldomnode
G_DISTANCIA = 0
On Error GoTo exitRoute
ORIGEN = Replace(ORIGEN, " ", "%20")
DESTINO = Replace(DESTINO, " ", "%20")
Set MyRequest = New XMLHTTP60
MyRequest.Open "GET", "Set MyRequest = New XMLHTTP60"
MyRequest.Open "GET", "https://maps.googleapis.com/maps/api/distancematrix/xml?origins=" _
& ORIGEN & "&destinations=" & DESTINO & "&mode=driving&language=es-ES&key=KEY_PRIVADA"
MyRequest.send
Set mydomdoc = New DomDocument60
mydomdoc.LoadXML MyRequest.responseText
Set distanceNode = mydomdoc.SelectSingleNode("//leg/distance/value")
If Not distanceNode Is Nothing Then G_DISTANCIA = (distanceNode.Text / 1000) & " km"
exitRoute:
Set distanceNode = Nothing
Set mydomdoc = Nothing
Set MyRequest = Nothing
End Function
EL problema es que antes cuando el xml era en HTTP no había problema, ahora es HTTPS y me da error en la lectura.
Llevo intentando solucionar el error varios días pero no hay manera, alguien con alguna solución.