Jump to content
pneox

Seleccionar nuevo libro origen de datos

Recommended Posts

Tengo un libro excel (archivo destino) con una vinculación a otro libro. El archivo origen se actualiza cada 3 días y cambia de nombre, si bien se guarda en la misma carpeta que la versión anterior. Me gustaría poner un botón en el libro de destino, para que me salga la ventana de cambio de origen, y que yo sea yo el que pueda seleccionar el archivo que quiero. Es decir, sería como ir a "datos/editar vínculos/cambiar origen", y que se quede abierto el seleccionador de archivos de windows (si puede ser, en la ruta que siempre tengo los archivos actualizados).

Gracias.

 

Share this post


Link to post
Share on other sites

Gracias por la respuesta. Perdona mi ignorancia, pero he intentado meterlo tal cual en una macro y no me funciona, ¿me podrías detallar un poco más como debo ponerlo?

Gracias de nuevo por tu ayuda.

Share this post


Link to post
Share on other sites
Hace 41 minutos , pneox dijo:

Gracias por la respuesta. Perdona mi ignorancia, pero he intentado meterlo tal cual en una macro y no me funciona, ¿me podrías detallar un poco más como debo ponerlo?

Gracias de nuevo por tu ayuda.

En este tema se utiliza, solo adapta al tuyo

 

Saludos

Share this post


Link to post
Share on other sites

No consigo adaptarlo a mi caso.

He grabado la macro de lo que quiero hacer y me da lo siguiente:

Sub Macro1()
Macro1 Macro
ActiveWorkbook.ChangeLink Name:="C:\Users\Carpeta1\Archivo1.xlsx", NewName:= _
        "C:\Users\Carpeta1\Archivo3.xlsx", Type:=xlExcelLinks
End Sub

Pero lo que quiero es que en lugar de que siempre me actualice con datos del Archivo3.xlsx, se quede abierto el seleccionador de archivos para que yo pueda elegir el archivo que yo quiera (por ejemplo cuando se cambie a Archivo4.xlsx). No lo consigo hacer grabando macro, porque no me deja detener la grabación mientras tengo el cuadro de selección de archivo abierto.

Disculpa, seguro que es más bien mi desconocimiento, que no consigo adaptar la otra.

Gracias de nuevo.

 

Share this post


Link to post
Share on other sites

@pneox , una simple búsqueda en internet te lo habría solucionado

Dim directorio As String
    ' Abre el explorador'
    With Application.FileDialog(msoFileDia'logFolderPicker)
        .InitialFileName = "C:\" 'Directorio por defecto donde se abrirá el explorador'
        If .Show = -1 Then 'Al presionar OK'
            directorio = .SelectedItems(1)
        End If
    End With
    
    If directorio <> "" Then 'Si has seleccionado un archivo
        ' *********************
        ' tu código
        ' *********************
    End If

 

Share this post


Link to post
Share on other sites

Debería ser algo parecido a esto:

Sub CambiarLinks()
ChDir "C:\Users\Carpeta1"
Archivo = Application.GetOpenFilename("Archivos Excel (*.xls*), *.xls*")
If Archivo <> False Then
   With ActiveWorkbook
      .ChangeLink .FullName, Archivo, xlExcelLinks
   End With
End If
End Sub

 

Share this post


Link to post
Share on other sites

Gracias a todos por las respuestas. Antoni, creo que lo tuyo se va acercando a lo que necesito, lo que pasa es que el libro que quiero actualizar tiene vínculos con varios libros distintos. No consigo que con la macro se actualice la vinculación de un archivo concreto. Es decir, tengo el "archivobase.xls" que tiene vínculos con los libros "datosA", "datosB", "datosC". Cada uno de los archivos de datos se va actualizando cada cierto tiempo, lo que conlleva un cambio de nombre, por ejemplo "datosA Agosto19" el mes que viene pasaría a llamarse "datosA Sept19". Lo que busco es una macro que me permita seleccionar el "datosA Sept19", actualizando los vínculos, y sustituyendo al "datosA Agosto19" (que tienen la misma estructura).

Lo mismo me pasaría con el resto de libros que se vinculan con el "archivobase.xls", pero sabiendo hacer la macro para uno, podría replicar la macro para el resto.

Gracias igualmente por el esfuerzo.

 

Share this post


Link to post
Share on other sites

Lo mismo, pero con selección múltiple de archivos.

Sub CambiarLinks()
Dim Archivos As Variant
ChDir "C:\Users\Carpeta1"
Archivos = Application.GetOpenFilename("Archivos Excel (*.xls*), *.xls*", MultiSelect:=True)
If IsArray(Archivos) Then
   For i = 1 To UBound(Archivos)
      With ActiveWorkbook
         .ChangeLink .FullName, Archivos(i), xlExcelLinks
      End With
   Next
End If
End Sub

 

Share this post


Link to post
Share on other sites

¿Tengo que introducir en alguna parte del código el nombre del archivo que quiero actualizar? Poniéndolo tal cual, me sale el selector de archivos de windows, pero al elegir el nuevo archivo que quiero vincular se me desbarajusta todo. Es como si no supiese realmente cual es el archivo concreto que quiero actualizar, y sustituirlo por el nuevo.

Gracias.

 

Share this post


Link to post
Share on other sites

Guau!! Antoni, funciona a la perfección y es justo lo que necesitaba. Voy a probarlo un poco más con archivos reales, pero en principio funciona bien. Muchisimas gracias por tu ayuda.

Share this post


Link to post
Share on other sites

Antoni, perdona que te vuelva a molestar. ¿Sabes si puedo hacer que tu formulario se quede totalmente integrado en mi libro, sin que tenga que abrir el archivo que tú me has mandado? Gracias de nuevo.

Share this post


Link to post
Share on other sites
Hace 2 horas, Antoni dijo:

Creo que ahora si.

Importa el formulario Links del adjunto a tu archivo y pruébalo a ver que tal.

Para importar el formulario a tu libro, abre el adjunto y tu archivo y arrastra el formulario.

 

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

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