Saltar al contenido

Ayuda: actualizar vinculos externos sin que se abra automaticamente el libro

publicado

Hola a todos, 

Es mi primera vez aqui espero que puedan ayudarme:

Tengo un excel central con varios vínculos (formulas) a otros archivos excel donde estan los datos. Copie una macro en el excel central para que los datos se actualicen solos sin necesidad de abrir los excels de datos uno a uno. Hasta aqui todo bien, se actualiza todo perfecto.

Mi problema es que ahora los resultados de ese excel central los necesito vincular a otro excel nuevo. Cuando lo vinculo y abro el excel central, tras ejecutar la macro ahora se me abre el archivo excel nuevo y ademas la macro deja de ejecutarse correctamente porque ya no me muestra bien los datos.

 

Es decir que el excel central recoge todos los datos bien con la macro, pero tras vincular los datos del excel central a otro excel nuevo tengo dos problemas que me gustaria resolver:

1. Que se me abra automaticamente el excel nuevo

2. Que la macro siga funcionando correctamente

Muchas gracias de antemano!!!!

Esta es la macro que tengo:

Sub ActualizarLinks()
Dim res As Long
 
 On Error Resume Next
 Application.ScreenUpdating = False
   With ThisWorkbook
     res = ActLink(.LinkSources)
       If res = 0 Then
         .UpdateLink Name:=.LinkSources
       End If
    End With
 Application.ScreenUpdating = True
End Sub
 
Private Function ActLink(lSource As Variant) As Long
Dim objWB As Workbook, intC As Integer, res As Long
   
  If Not IsEmpty(lSource) Then
    For intC = 1 To UBound(lSource)
     Set objWB = Workbooks.Open(lSource(intC))
     res = ActLink(objWB.LinkSources)
      If res = 0 Then
        objWB.UpdateLink Name:=objWB.LinkSources
        objWB.Close True
      End if
    Next
     ActLink = -1
  End If
 End Function

Featured Replies

No posts to show

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas