Macro base de datos en las nubes

[Jarour]

Buenas,

Actualmente estoy haciendo una macro, y estoy trabajando con su base de datos. Un amigo me mostro que podía hacer una base de datos con google drive pero la misma solo registra el tiempo y fecha en la cual se subieron los datos (esto lo hace solo). Quisiera saber si alguien tiene experiencia en el asunto y me ayuda con los códigos a ver qué hago mal.

Gracias de ante mano.

 Dim resultado As String

    Dim url As String, datometodopost As String

    Dim winhttpsolicitud As Object

    Set winhttpsolicitud = CreateObject("WINHTTP.winhttprequest.5.1")


    url = "https://docs.google.com/forms/d/1PJ2RzhSLjli6VQthfnO_2W3ydw7qmc6KXI2N1bIRmFA/formResponse"


    datometodopost = "entry.245101986=" & OT.Value

    datometodopost = "entry.1626708284=" & Estado.Value

    datometodopost = "entry.2112856562=" & Linea.Value

    datometodopost = "entry.1947277416=" & Estacion.Value

    datometodopost = "entry.1382377022=" & fecha.Value

    datometodopost = "entry.1497709892=" & HoraReportada.Value

    datometodopost = "entry.186456227=" & HoraInicio.Value

    datometodopost = "entry.1189931416=" & HoraFinal.Value

    datometodopost = "entry.1278786628=" & Circuito.Value

    datometodopost = "entry.1120951957=" & ResumenDeTarea.Value

    datometodopost = "entry.158390878=" & Breaker.Value

    datometodopost = "entry.528958308=" & Diferencial.Value

    datometodopost = "entry.2013371733=" & Materiales.Value

    datometodopost = "entry.383615774=" & Turno.Value

    datometodopost = "entry.1661087250=" & coordinador.Value

    datometodopost = "entry.358499376=" & Operador.Value

    datometodopost = "entry.855119574=" & Supervisor.Value

    datometodopost = "entry.285006571=" & Tecnico1.Value

    datometodopost = "entry.2049416469=" & Tecnico2.Value

    datometodopost = "entry.19253404=" & Tecnico3.Value

    datometodopost = "entry.781530876=" & Tecnico4.Value

    datometodopost = "entry.1158284465=" & Impacto.Value



    winhttpsolicitud.Open "post", url, False

    winhttpsolicitud.setRequestHeader "coment-type", "aplication/x-www-form-urlencoded"

    winhttpsolicitud.Send (datometodopost)

    resultado = winhttpsolicitud.responsetext[/CODE]