Problema (¿Macro?) para guardar Excel en SharePoint

njnsp · el miércoles a las 07:52

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 · el miércoles a las 17:15

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 · el miércoles a las 20:14

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 · el miércoles a las 20:25

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 · el miércoles a las 21:42

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 · hace 23 horas

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 · hace 23 horas

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.