Jump to content
dogwall

Actualizar datos externos en libro compartido

Recommended Posts

Buenos días,

Trabajo con un libro compartido con macros al que he tenido que conectar una lista de datos externa (lista Sharepoint). La conexión la tengo configurada para que se actualicen los datos cada vez que se abra el fichero pero no funciona. Si el libro deja de estar compartido la conexión se actualiza sin problemas pero al estar compartido no funciona.

Cómo alternativa se me había ocurrido esto:

 

Sub Actualiza_Datos_Promos()

Application.DisplayAlerts = False
If ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.ExclusiveAccess
End If

'Actualizo los datos
ActiveWorkbook.Connections("Conexión").Refresh
Application.Wait (Now + TimeValue("00:00:05"))            ‘Aquí incluso he dejado unos segundos por si la conexión tarda en actualizarse, pero la lista son pocos registros y no debería.

Application.DisplayAlerts = True

'Lanzo la rutina principal
Call Carga_Fichero

Application.DisplayAlerts = False

If Not ActiveWorkbook.MultiUserEditing Then
    ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, _
        accessMode:=xlShared
End If

Application.DisplayAlerts = True

MsgBox "Proceso Finalizado"

End Sub

El caso es que sigue sin funcionar... Tengo que volver a dejar el libro sin compartir y actualizar la conexión a mano para que se actualicen los datos...

¿Alguna idea de lo que pasa? ¿Puede solucionarse?


Gracias.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png