Imprimir página | Cerrar ventana

acceder a una carpeta en sharepoint

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86171
Fecha de impresión: 29/Marzo/2024 a las 07:55


Tema: acceder a una carpeta en sharepoint
Publicado por: usuario222
Asunto: acceder a una carpeta en sharepoint
Fecha de publicación: 17/Noviembre/2021 a las 13:07
Buenas, 
Quiero acceder a una carpeta en sharePoint utilizando un usuario y contraseña para subir un archivo a esa carpeta, pero me da un error en el método SaveAs. "Error en el métodoSaveAs".

Adjunto copia de parte del código

ruta = "https://sitiolcom.sharepoint.com/sites/Backupvehculo/Shared%20Documents/General/Copia/"
    ServerShare = "\\sitiocom.sharepoint.com\sites\Backupvehculo\Shared%20Documents\General\Copia"
    UserName = "xxxxx"
    password = "yyyyy"

    Set NetworkObject = CreateObject("WScript.Network")
    NetworkObject.MapNetworkDrive "", ruta, False, UserName, password

    nombrearchivo = Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 5) & VBA.Format(VBA.Now, "_dd-mm-yyyy-hh:mm:ss")
            
    ActiveWorkbook.SaveAs filename:= _
        ruta & nombrearchivo & ".xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
            
    
    Set NetworkObject = Nothing



Respuestas:
Publicado por: Mihura
Fecha de publicación: 17/Noviembre/2021 a las 13:15
Yo daría los siguientes pasos:
- en la ventana inmediato de Excel, lanzaría el comando SaveAs en una carpeta local del equipo hasta comprobar que furule como Dios manda
- una vez hecho esto, probaría con la ruta del SharePoint




-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: usuario222
Fecha de publicación: 17/Noviembre/2021 a las 13:18
Hola! Ya he intentado.
Si utilizo el método "SaveAs" con la ruta de sharepoint tambien me hace la copia si tengo acceso a esa carpeta.
El problema está en si otro usuario intenta realizar la copia que, como no tiene acceso a la carpeta, tengo que acceder (por código) a ella previamente y luego hacer la copia (save As). Esto es lo que no consigo que funcione y no me pone un error específico que yo pueda intentar arreglar.


Publicado por: Mihura
Fecha de publicación: 17/Noviembre/2021 a las 13:41
Lo que tienes que solventar es el problema de los permisos, para ello lo mejor es que te pongas en la barra de direcciones del explorador y empieces a trastear con el formato adecuado, para que a ese usuario le deje 'ver' la carpeta ... una vez lo tengas ya puedes 'clavar' la dirección en el VBA de Excel.




-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: usuario222
Fecha de publicación: 17/Noviembre/2021 a las 13:48
El problema está en que yo quiero que entren con mi usuario y contraseña en esa carpeta, para que fuera del excel solo yo pueda acceder a ella y los demás solo puedan "acceder" sin darse cuenta al ejecutar esos comandos. Por eso tengo que acceder con código.


Publicado por: Mihura
Fecha de publicación: 17/Noviembre/2021 a las 13:52
Se puede acceder con formato especifico, en la línea del explorador se pone algo así como:

Ruta@password\contraseña

o algo parecido. Tendrás que hacer las pruebas con un equipo que no esté autorizado hasta que lo consigas, o bien quitas momentáneamente tu autorización.

Ya te advierto que entrar así al sharepoint es una ñoca, además de un agujero de seguridad, en realidad empresas grandes lo tienen 'capado', obligan al 'mapeo' de unidades por tema de seguridad.






-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: usuario222
Fecha de publicación: 17/Noviembre/2021 a las 14:02
Ya intento realizar el mapeo con el método:

NetworkObject.MapNetworkDrive "Z:", ServerShare, False, UserName, password

Ahora por ejemplo me salta este error cuando sí tengo el usuario registrado:



Publicado por: usuario222
Fecha de publicación: 17/Noviembre/2021 a las 14:03


Publicado por: usuario222
Fecha de publicación: 17/Noviembre/2021 a las 14:04
"Se ha producido el error '-2147023652(800704dc) en tiempo de ejecución:
No se autenticó la operación solicitada porque el usuario no ha sido autenticado."


Publicado por: Mihura
Fecha de publicación: 17/Noviembre/2021 a las 15:15
En el explorador, algo así como:

http(s)://username:password@server/resource.ext




-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: Mihura
Fecha de publicación: 17/Noviembre/2021 a las 15:19
No abras hilos nuevos, sigue con este.

-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: usuario222
Fecha de publicación: 17/Noviembre/2021 a las 15:23
Perdón, era porque ya en el "SaveAs" no está el error. Lo que intento es acceder a la carpeta.

Probé poner la ruta como me dijiste: ruta = " http(s)://xxx.xxx@xx.xxx:yyyy@xxx.sharepoint.com/sites/Backupvehculo/Shared%20Documents/General/Copia.ext"


Pero nada. Se me ejecuta todo y no me salta ningún error pero no me hace la copia





Publicado por: Mihura
Fecha de publicación: 17/Noviembre/2021 a las 15:41
Probablemente tengas que hacerlo con FTP.



-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: usuario222
Fecha de publicación: 17/Noviembre/2021 a las 15:50
De acuerdo investigaré como hacerlo por FTP.
¡Muchas Gracias!


Publicado por: Juanmasp
Fecha de publicación: 18/Noviembre/2021 a las 14:45
Hola, solo un comentario, cuando generas el nombre del Archivo, en esta parte VBA.Format(VBA.Now, "_dd-mm-yyyy-hh:mm:ss")  creo que el carácter ':' no está permitido.

Puede que no te deje por eso.

Saludos.


Publicado por: Mihura
Fecha de publicación: 18/Noviembre/2021 a las 17:44
Publicado originalmente por Juanmasp Juanmasp escribió:

que el carácter ':' no está permitido.

Bien visto.


-------------
Jesús Mansilla Castells.
Saludos desde Móstoles.

http://www.accessaplicaciones.com" rel="nofollow - Access Aplicaciones
http://www.tecsys.es" rel="nofollow - Tecsys.es


Publicado por: usuario222
Fecha de publicación: 19/Noviembre/2021 a las 11:40
Hola! Eso no me da error, pero gracias por la aportación.

Una pregunta, ¿saben si con el microsoft Jet se puede acceder a las bases de datos de sharePoint?





Imprimir página | Cerrar ventana