Abraham Valencia

Hola nuevamente. Por eso la importancia de lo que mencionas tú como "ruta relativa". Tal cual comentas, y aún sin llegar a algunos detalles importantes para ayudarte, en realidad tal cual te comenté le día miércoles, pues sí podías hacer como comentabas, era cosa de obtener los Id de Windows (como tú los llamas) y la ruta de OneDrive en casa usuario y eso sí se puede obtener con VBA y luego pasarlo a PQ, pero medio que te cerraste en que "PQ no puede trabajar con rutas relativas", cosa cierta pero siempre hay formas. Si SAP puede o no guardar en OneDrive o SharePoint, pues si está mapeado en la PC ¡claro que se puede! Pero bueno, creo que si te es útil tu propia propuesta ¡avanza con eso!

Hola nuevamente, mi duda sigue siendo la ruta, o rutas, finales que quedan, esas que llamas "relativas"; igual por si acaso pon 3 o 4 de esas, tal cual son y/o se ven en el explorador de cada PC y, de ser posible, en cualquier otro "lado" en que las veas.

Hola, tal cual se plantea, solamente con macros (VBA); en todo caso, hacerlo a mano o con "CTRL + ;". Saludos.

Hola, no me queda tan claro el problema, pero parece que más que de SAP tu dilema es en dónde guarda la macro y cómo hacer para que, siendo finalmente rutas distintas para cada quien, pues que pueda guardarse en la PC de cada usuario en su ruta mapeada. De ser eso, aparentemente bastaría obtener el usuario de Windows y la ruta "raíz" de OneDrive y suponer que todos los usuarios tienen la misma ruta posterior a la carpeta sincronizada, es decir, que sean algo así: C:\Users\IDWindows2\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI C:\Users\IDWindows1\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI C:\Users\IDWindows3\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI Ojo a lo resaltado en negrita. De ser así debería bastar algo así para obtener la ruta: Environ("OneDriveCommercial") & "\Documentos\SAP\SAP GUI\export.XLSX" o quizás con Environ("OneDrive")

¡Bienvenido!

Te respondí en el otro lado. Saludos.

Para esa versión se me ocurre usar otra web y una UDF: Function InsertQRCode(celda As Range) As String Dim mirango As Range Dim QRCodeURL As String Set mirango = Application.Caller QRCodeURL = "https://quickchart.io/qr?text=" & celda.Value With ActiveSheet.Pictures.Insert(QRCodeURL) .Left = mirango.Left .Top = mirango.Top .Width = mirango.Width .Height = mirango.Height End With InsertQRCode = "" End Function

Hola. Ya no funciona hace un año aproximadamente, Google ya había informado, al menos hace una década, que consideraba obsoleto el uso de dicha API y ya apagaron los servidores. Las alternativas son acordes a la versión de Excel que usar ¿tienes la versión 2016 como dice en tu perfil o ya actualizaste?

Feliz año 2025 a los usuarios aún frecuentes del foro. Espero que en algún momento recuperemos el auge que alguna vez tuvo este foro.

Hola. No hay forma de evitar que un archivo de Excel se abra en otros programas que sean compatibles; asimismo, las macros de VBA no pueden ser usadas en web, solo funcionan en Excel de escritorio. Tal cual lo planteas al parecer quieres un archivo conectado mediante internet para lo que no te será útil Excel.

Hola. Da más detalles y/o especifica más si deseas recibir ayuda.

Hola. Tu archivo no tiene macros. Sobre las celdas combinadas, ya que no puedes evitar su uso al no ser tus archivos, lo mejor es "des combinarlas" previo a cualquier cosa, incluso en tu misma macro (que no envías).

Hola. O das muchos, pero muchos más detalles, o será casi imposible date una respuesta certera.

Hola. Ahora sí ya lo vi. Basta esta línea antes del Save: objJSO.FlattenPages Comentas