Pasar datos de google sheets a EXCEL (usando MACROS)

[@59201959]

Uffff son unos monstruos... Que alegría ver como manejan el tema. De verdad los admiro mucho, tomándose el tiempo de sus vidas para enseñarnos todo lo que saben. Que Dios los bendiga siempre y los proteja siempre.

[@mundobinariobyaxel]

¡Qué alegría leer tu mensaje! Nos llena de satisfacción saber que nuestro trabajo es útil. Gracias por tus buenos deseos y por tomarte el tiempo para escribir. Te deseamos lo mejor y que todo te vaya genial 🤩

[@sgi3784]

Impresionante Axel! Gran colaborador te has buscado!! Buenísimo!! Lo voy a implantar para vincularlo con aplicaciones Access que tengo.

[@mundobinariobyaxel]

Está buenísimo este tuto 🚀, hicimos buen match 🤜🏻🤛🏻 . ¿Me comentas cómo te fue? Saludos bin 🚀

[@fjnmorenod]

Hola Estimado pudiste adaptarlo:::

[@sgi3784]

@@fjnmorenod Buenas tardes, aún no lo he conseguido porque me daba un error al complicar el modelo. Pero dedicándole tiempo lo haré

[@fjnmorenod]

Estoy verificando a ver si alguien pudo hacer el tutoríal

[@Benito-MExcel]

Hola Axel y Adam, gran tip para la comunidad, saludos a los dos👍👍

[@mundobinariobyaxel]

¡Gracias por el apoyo🤩🚀! Me alegra que hayas encontrado útil el tutorial. Bienvenido al canal y cualquier duda me lo puedes dejar en los comentarios. 😎

[@cprosistema7603]

Hola amigo buenisimo el contenido, he estado buscando la manera de hacer ese tipo de conexion y en internet no existe documentacion, queria consultarle como se haria algo Bidireccional y claro en el caso de axel con tus conocimientos de sql hacerlo con conexion a GAS Muchas Gracias estimado

[@mundobinariobyaxel]

Hola, voy a seguir explorando e investigando, si encuentro algo, seguro regreso a compartirlo.

[@cprosistema7603]

@@mundobinariobyaxel hola estimado en mi caso particular no me esta funcionando el formato JSON, mi duda es hay que habilitar alguna Referencia de Excel estoy Usando Excel 2016; los datos que copia a excel tienen este formato inicia con en el ejemplo usar {"status","success","data"}

[@JORDAN-T]

Q tal tengo el mismo problema

[@renemejiaguerrero3693]

@@cprosistema7603 Tengo el mismo problema, lo solucionaste?

[@fjnmorenod]

@@mundobinariobyaxel no me funciono queria consultar ser la version del office...

[@acurripropiedades4267]

Que magnifico material maestro Axel. Lamentablemente no me funciona en OSX. Me arroja error 429, que por creacion de objeto. :(

[@mundobinariobyaxel]

Hola, he dejado el recurso en github por si quieres ver el código github.com/mundobinario/AppSheet/blob/main/ScriptVB.txt 👾👾 Me gustaría tenerte en instagram instagram.com/_mundobinario

[@erikatrujillo3885]

Hola, mucgas gracias por compartir esta informacion. Estoy tratando de hacer el procedimiento pero al tratar de ejecutar la macro me sale el error 429, el componente ActiveX no puede crear el objeto. Como lo puedo solucionar?

[@mundobinariobyaxel]

Ese error puede ser causado por: - Hay error en la aplicación - ⁠hay error en una configuración del sistema. - ⁠falta un componente (librería ). - ⁠hay un componente dañado. Al ser provocado por cuatro factores posibles es complicado dar la solución, ¿En qué línea marca el error?

[@ricardomartinmantelli2002]

Buen día, en mi caso hice todo tal cual y tampoco funciona el formato JSON, con el Modulo Creartabla() no se puede apreciar bien que simbolos utiliza por la calidad del video. estaria bueno que deje un txt con todo el codigo compilado. Muchas gracias.

[@mundobinariobyaxel]

Hola, te dejo el script y me dices si te funciona github.com/mundobinario/AppSheet/blob/main/ScriptVB.txt

[@ricardomartinmantelli2002]

En el modulo Creartabla() para ordenar la informacion está correcto? Sub creartable() Dim respuesta As String Dim hoja As Worksheet Dim DATOS As Variant Dim i As Long, j As Integer Dim PRIMER_DATO As String PRIMER_DATO = Mid(ThisWorkbook.Sheets("Virtual").Range("A1").Value, 28) respuesta = PRIMER_DATO respuesta = Replace(respuesta, """", "") respuesta = Replace(respuesta, "[[", "") respuesta = Replace(respuesta, "]]", "") respuesta = Replace(respuesta, "}", "") DATOS = Split(respuesta, "},[") For i = LBound(DATOS) To UBound(DATOS) Dim fila As Variant fila = Split(DATOS(i), ",") For j = LBound(fila) To UBound(fila) Hoja3.Cells(i + 1, j + 1).Value = fila(j) Next j Next i End Sub

[@mundobinariobyaxel]

Hola, aquí te dejo el libro en github para que lo descargues y compares. 🚀🚀👾👾 github.com/mundobinario/AppSheet/blob/main/colaboracion%20mundo%20binario%20y%20conociendo%20excel%20(SHeets%20%26%20Excel).xlsm

[@mundobinariobyaxel]

🚀🚀 Me gustaría tenerte en instagram para crecer la comunidad instagram.com/_mundobinario