Macro para cambiar un vínculo

KL escribió el 07/07/2005 00:59 :

Hola Gaditano,

¿Que cambios sugerís al código si los archivos que se
quiere vincular se
encuentran en otra carpeta, diferente a la que contiene el archivo con la
funcion buscarv?

1) Si la direccion de la carpeta es siempre la misma, podrias sustituir la
instruccion:

Ruta = .Path

por algo como lo siguiente:

Ruta = "C:Documents and SettingsGaditanoMy Documents"

2) Si no, podrias usar la funcion o el metodo InputBox

Ruta = InputBox("Introduzca la ruta: ")

o bien:

Ruta = Application.InputBox("Introduzca la ruta: ")

3) tambien podrias pedir al usuario que introduzca la ruta completa en
alguna celda, digamos [B1] y luego hacer algo asi:

Ruta = .ActiveSheet.Range("B1").Value

4) podrias incluso llamar el dialogo Abrir Archivo usando el metodo
GetOpenFileName para seleccionar el archivo en cuestion. Revisa este
ejemplo:

Sub Macro1()
Dim NomArchivo As Variant
With ThisWorkbook
NomArchivo = Application _
.GetOpenFilename("Archivos Excel (*.xls), *.xls")
If NomArchivo <> False Then
NomArchivo = Replace(NomArchivo, _
Dir(NomArchivo), "[" & Dir(NomArchivo) & "]")
For x = 4 To 15
.ActiveSheet.Range("B" & x).FormulaR1C1 = _
"=VLOOKUP(RC[-1],'" & NomArchivo _
& "Hoja1'!R1C1:R12C2,2,0)"
Next x
End If
End With
End Sub

Saludos,
KL

Hola, en el caso que deseo hacer una macro parecida pero en word, es decir que tengo pegadas algunas tablas vinculadas a un archivo de excel y deseo cambiar el archivo de origen con una macro, como lo hago?