** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Excel
  Mensajes nuevos Mensajes nuevos RSS - acceder a una carpeta en sharepoint
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

acceder a una carpeta en sharepoint

 Responder Responder Página  <12
Autor
Mensaje Invertir el orden de clasificación
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13176
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
usuario222 Ver desplegable
Nuevo
Nuevo


Unido: 17/Noviembre/2021
Localización: Las Palmas de G
Estado: Sin conexión
Puntos: 18
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita usuario222 Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
 Responder Responder Página  <12
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable