Problema (¿Macro?) para guardar Excel en SharePoint

[njnsp]

Buenos días,
A ver si me podéis ayudar porque por mas que busco y leo no encuentro la solución. Igual la explicación es un poco farragosa.
Tengo este tozo de código VBA generado por un script de SAP que básicamente lo que hace es abrir una Tx de SAP, cargar los datos de búsqueda y generar un informe. 

Cita

Sub Export_To_ZMMLX02()

Dim SapGuiAuto As Object
Dim Application As Object
Dim Connection As Object
Dim session As Object

   Set SapGuiAuto = GetObject("SAPGUI")
   Set Application = SapGuiAuto.GetScriptingEngine
   Set Connection = Application.Children(0)
   Set session = Connection.Children(0)
   

session.findById("wnd[0]").maximize
session.findById("wnd[0]/tbar[0]/okcd").Text = "/nzmmlx02"
session.findById("wnd[0]").sendVKey 0
session.findById("wnd[0]/usr/ctxtP_LGNUM").Text = "200"
session.findById("wnd[0]/usr/ctxtS_LGTYP-LOW").Text = "028"
session.findById("wnd[0]/usr/ctxtS_LGTYP-LOW").SetFocus
session.findById("wnd[0]/usr/ctxtS_LGTYP-LOW").caretPosition = 3
session.findById("wnd[0]/tbar[1]/btn[8]").press
session.findById("wnd[0]/tbar[1]/btn[33]").press
session.findById("wnd[1]/usr/cntlGRID/shellcont/shell").currentCellRow = 4
session.findById("wnd[1]/usr/cntlGRID/shellcont/shell").selectedRows = "4"
session.findById("wnd[1]/usr/cntlGRID/shellcont/shell").clickCurrentCell
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").setCurrentCell 6, "MAKTX"
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectedRows = "6"
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").contextMenu
session.findById("wnd[0]/usr/cntlGRID1/shellcont/shell").selectContextMenuItem "&XXL"
session.findById("wnd[1]/tbar[0]/btn[0]").press
session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "https://NombreEmpresa.sharepoint.com/teams/ocupacion/Shared%20Documents/Datos%20Base"
session.findById("wnd[1]/usr/ctxtDY_FILENAME").Text = "export.XLSX"
session.findById("wnd[1]/usr/ctxtDY_FILENAME").caretPosition = 6
session.findById("wnd[1]/tbar[0]/btn[11]").press

' con esta ruta si funciona "..\..\..\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI"

End Sub

Luego ese informe lo exporta a Excel, y por ultimo lo guarda en la ubicación elegida. Hasta aquí todo correcto. El problema es que solo funciona si la ruta de guardado es local, pero no si es un SharePoint, me explico. 
La idea es que haga todo lo anterior y guarde directamente en un SharePoint donde están configurados los permisos para guardar.
No se si alguno trabajáis con SAP y Excel, pero cuando tu le indicas a SAP, que guarde algo en formato Excel, te abre una ventana para elegir la ruta de guardado, automáticamente lo guarda y lo abre. Si la tuta es local, lo hace con normalidad, y si la ruta es de SharePoint, hay que tener mapeada la ruta en el explorador de Windows porque su GUI no muestra rutas SharePoint, solo locales.
El caso es que la macro, si la ruta es local, funciona correctamente, pero si la ruta es de SharePoint, no guarda el archivo, sino que abre el archivo que ya existe en SharePoint (si existe, si no, tira un error). El asunto es que parece que lo guarda, pero he comparado el archivo que se abre una vez finalizado el proceso (el que debería surgir del informe) y el alojado en SharePoint y no son iguales.
Lo que necesito es si vosotros habéis hecho algo similar o si hay alguna manera mejor de codificar el guardado, ya que yo de VBA voy muy justito, teniendo en cuenta que este código se ejecuta desde otro archivo, ya que el que el archivo que se genera, no "existe" hasta que lo genera SAP.

Como aclaración alguno me podría decir que usara la ruta mapeada de SharePoint, pero no puedo, porque el archivo se va a usar en una empresa donde todos los usuarios Windows tienen su perfil "guardado" en OneDrive (para que cualquiera pueda usar cualquier ordenador) y cada usuario tiene un ID Windows diferente, con lo que las rutas son únicas para cada usuario, del tipo...

C:\Users\IDWindows\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI\export.XLSX

 

Espero haberme explicado bien. Si necesitáis alguna aclaración mas no dudéis en solicitarla.

Gracias  por vuestra ayuda
 

[Abraham Valencia]

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")
 

[njnsp]

Gracias @Abraham Valencia lo probaré mañana en el trabajo, en casa no tengo acceso a SAP.

Ya que te has interesado de cuento un poco mas del proceso.

La idea original es que desde un archivo Excel, se capture una serie de datos de SAP, sin que la gente tenga que usar SAP. Para ello tengo en archivo "plantilla" guardado en una ubicación SharePoint; el archivo ejecuta la macro, se conecta a SAP, y este genera el archivo "informe" (al que llamaremos export.xlsx por aclarar).  Lo ideal, seria que la macro que he puesto, guardara el archivo export.xlsx en SharePoint, porque después el propio archivo plantilla se conectaría a través de Powerquery a export.xlsx y haría las transformaciones necesarias. Todo se tiene que hacer en SharePoint, porque lo tienen que usar varios usuarios (en distintos ordenadores) y no hay carpeta de red ni NAS o similares.

Como la opción 1, que es conseguir que la macro guardara el export en SharePoint no me funciona ni a tiros, pensé en la opción 2, a saber.

Guardo el export de manera local en el ordenador de cada usuario que ejecute la macro, en la ruta (relativa)  "..\..\..\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI",  que se salta el ID de Windows (C:\Users\IDWindows\) y hasta aqui perfecto; he conseguido que cada usuario guarde el export (el informe que genera SAP) en una ruta local de cada usuario.

EL PROBLEMA es que ahora PowerQuery NO me deja conectarme a rutas relativas, no puedo ponerle que se conecte al archivo (literal) "..\..\..\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI\export.xlsx". PowerQuery exige rutas absolutas de conexión, ya sea por conexión "directa" o por parámetros.

Por otro lado no me vale el "truquito" de poner la ruta del archivo en una celda y capturarlo con PowerQuery, porque yo necesitaría capturar la ruta del export, pero la macro se ejecuta desde "plantilla"; además export no existe hasta que no lo genera SAP.

Cuanto todo esto por si a alguien se le ocurre otra manera de hacerlo, pero no creo, porque no es el típico caso de conectarse desde un archivo Excel a otro archivo Excel, sino conectarse desde un Excel a otro "temporal" que se genera ex profeso para capturarle unos datos.

Saludos

 

[njnsp]

Vale, ahora que lo pienso, tu solución no me vale; bueno no es que no me valga es que  me soluciona un problema que ya tengo resuelto. La macro me guarda bien el archivo en local de cada usuario con la sentencia 

Cita

session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "..\..\..\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI"

Mi problema es que si guardo el export en rutas locales relativas, PowerQuery no me deja conectarme a esas rutas, y si "guardo" el export en sharePoint con 

Cita

session.findById("wnd[1]/usr/ctxtDY_PATH").Text = "https://NombreEmpresa.sharepoint.com/teams/ocupacion/Shared%20Documents/Datos%20Base"

El archivo no se guarda, que es como debería funcionar todo el proyecto.

La solución pasa por conseguir que el export se guarde en SharePoint, porque hasta donde yo se, PowerQuery NO deja conectase a rutas relativas (en local) pero si podría conectarme a una ruta de SharePoint.

[Israel Cassales]

Hace 1 hora, njnsp dijo:

Cuanto todo esto por si a alguien se le ocurre otra manera de hacerlo, pero no creo, porque no es el típico caso de conectarse desde un archivo Excel a otro archivo Excel, sino conectarse desde un Excel a otro "temporal" que se genera ex profeso para capturarle unos datos.

Bueno, como dijera el Jack el destripador "vámonos por partes", ese temporal tiene un origen que es SAP.

Hay algunos puntos que no están quedando claro y parece que el único medio que dispones es la WEB para que los usuarios tomen de ahí los datos de SAP ¿Qué versión de SAP tienes?

Hace 1 hora, njnsp dijo:

Todo se tiene que hacer en SharePoint, porque lo tienen que usar varios usuarios (en distintos ordenadores) y no hay carpeta de red ni NAS o similares.

Lo anterior también es confuso ¿tienen diferentes segmentos de VLAN o cómo? siempre hay una forma de poder comunicarse entre los equipos. ¿Mínimo están conectados al mismo Internet?

Antes de usar herramientas externas a SAP, éste tiene sus propias soluciones ¿Qué datos son los que necesitan los demás usuarios? Entiendo que no quieran gastar licencias por el tema comercial pero si solo es leer podrías usar una API de SAP dependiendo de la versión que tengas, como el Service Layer, también está SAP WEB y otras. Si en tu lugar de trabajo tienen SAP (bajo licencia) debes tener un partner quien puede ofrecerte soluciones.

Haciendo de lado la integridad de la información porque una vez exportados de SAP se vuelven editables y pierden confianza, además considerando que estás usando power query ¿por qué no usar el power BI? Este también se puede conectar con SAP.

Identifica que software es el responsable de la información, origen y destino, eso debe facilitar el medio.

¡Saludines!

 

 

[njnsp]

Hola @Israel Cassales

Es todo mucho mas "complicado". Estamos hablando de una multinacional, los ordenadores están "capados", la detección de redes esta desactivada, y solo funcionan los servicios de red necesarios, web, servidores de impresión, etc. Lo usuarios no podemos hacer nada de configuración en los ordenadores porque no tenemos privilegios de administración.

Todos los usuarios tenemos Sap, (con diferentes perfiles, según los departamentos), office 365 (también con perfiles según funciones), y todo el software básico solo lo podemos instalar desde nuestro propio Software Center. Cualquier cosa que se salga de ahí, hay que solicitarla y cruzar los dedos para que te la aprueben.  En los departamentos de análisis, claro que tienen SAP BW,  SAP BI (yo mismo he solicitado perfiles y estoy a la espera) pero solo soy un simple SGA que lo único que intenta es automatizar al máximo mi trabajo diario, y estas cosas no deberíamos hacerlas, por perfil, capacidades y posibilidades técnicas.

[njnsp]

A falta de una solución mas adelante, seguiré como hasta ahora, copiando y pegando el export en la plantilla. A mi me vale, pero quería evitar que el resto de usuarios (tampoco lo vamos a usar tantos!!) tuvieran que intervenir en nada del export y la transformación de datos de la plantilla. Mas o menos saben hacerlo, pero quería que todo estuviera automatizado.

Si encuentro una solución os la pondré por aqui.

Saludos.

[Abraham Valencia]

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.

[njnsp]

Perdona @Abraham Valencia pero he estado liado estos días.

En realidad todo el problema se reduce a estos dos problemas:

Problema 1: El script que "fabrica" SAP y que luego "pego" en la macro, no es capaz de  guardar archivos en SharePoint. He estado buscando, y en realidad muchas personas tienen ese problema (no poder guardar un Excel en SAP a través de VBA). Eso muy probablemente sean problemas de permisos, que no puedo cambiar (no soy administrador de nada).

Como no puedo solucionarlo así, paso al plan B, que es guardar en Excel que me genera SAP en el ordenador de cada usuario que ejecute la plantilla (y que sí está guardada en SharePoint), para después con PowerQuery llamar a ese Excel (el export).

Para ello, pretendo guardar el export, en la ruta relativa "C:\..\..\..\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI" donde los \..\..\..\ saltan las rutas personales de cada usuario (tipo C:\users\IDusuario\). Eso lo hace bien, y el archivo se guarda en la ruta de cada usuario que lo usa, pero surge el problema 2

Problema 2: PowerQuery no trabaja con rutas relativas del tipo  "C:\..\..\..\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI" necesita que sea del tipo fija "C:\users\IDusuario\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI" pero claro, IDusuario es diferente para cada usuario.

 

Pero escribiendo todo esto, creo que he dado con una posible solución, no grabar el export en una ruta de usuario, sino en una en la raiz de C:, que siempre será igual para todos los usuarios, del tipo C:\Sap\export.xlsx que seria igual en todos los ordenadores. Asi sí podría decirle a PowerQuery que vaya siempre a la ruta C:\Sap\ que existirá en todos los ordenadores.

Mañana intentaré hacer pruebas, aunque mi solución ideal seria que se pudiera guardar en el SharePoint.

Saludos.

[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!