acceder a una carpeta en sharepoint

   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

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
usuario222 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 17/Noviembre/2021 Localización: Las Palmas de G Estado: Sin conexión Puntos: 18	Opciones de entrada Responder Cita usuario222 Informar de mensaje Gracias(0) Cita Respuesta Tema: acceder a una carpeta en sharepoint Enviado: 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

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 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. Access Aplicaciones Tecsys.es

usuario222 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 17/Noviembre/2021 Localización: Las Palmas de G Estado: Sin conexión Puntos: 18	Opciones de entrada Responder Cita usuario222 Informar de mensaje Gracias(0) Cita Respuesta Enviado: 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.

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 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. Access Aplicaciones Tecsys.es

usuario222 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 17/Noviembre/2021 Localización: Las Palmas de G Estado: Sin conexión Puntos: 18	Opciones de entrada Responder Cita usuario222 Informar de mensaje Gracias(0) Cita Respuesta Enviado: 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.

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 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. Access Aplicaciones Tecsys.es

usuario222 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 17/Noviembre/2021 Localización: Las Palmas de G Estado: Sin conexión Puntos: 18	Opciones de entrada Responder Cita usuario222 Informar de mensaje Gracias(0) Cita Respuesta Enviado: 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:

usuario222 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 17/Noviembre/2021 Localización: Las Palmas de G Estado: Sin conexión Puntos: 18	Opciones de entrada Responder Cita usuario222 Informar de mensaje Gracias(0) Cita Respuesta Enviado: 17/Noviembre/2021 a las 14:03


usuario222 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 17/Noviembre/2021 Localización: Las Palmas de G Estado: Sin conexión Puntos: 18	Opciones de entrada Responder Cita usuario222 Informar de mensaje Gracias(0) Cita Respuesta Enviado: 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."

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 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. Access Aplicaciones Tecsys.es

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 17/Noviembre/2021 a las 15:19
	No abras hilos nuevos, sigue con este.
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es

usuario222 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 17/Noviembre/2021 Localización: Las Palmas de G Estado: Sin conexión Puntos: 18	Opciones de entrada Responder Cita usuario222 Informar de mensaje Gracias(0) Cita Respuesta Enviado: 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

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 17/Noviembre/2021 a las 15:41
	Probablemente tengas que hacerlo con FTP.
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es

usuario222 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 17/Noviembre/2021 Localización: Las Palmas de G Estado: Sin conexión Puntos: 18	Opciones de entrada Responder Cita usuario222 Informar de mensaje Gracias(0) Cita Respuesta Enviado: 17/Noviembre/2021 a las 15:50
	De acuerdo investigaré como hacerlo por FTP. ¡Muchas Gracias!

Juanmasp Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 21/Abril/2006 Estado: Sin conexión Puntos: 122	Opciones de entrada Responder Cita Juanmasp Informar de mensaje Gracias(0) Cita Respuesta Enviado: 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.

Responder	Página 12 >
Tweet