wie dynamische Verknüpfungen erstellen vba

Question

mit schreiben kann nicht wirklich so viel in vba, Aufzeichnung und nachfolgende Änderungen bisher nur verwendet - bitte sanft sein :)

Ich versuche, eine ‚dynamische‘ Verbindung zwischen bekommen Datei A und eine Datei, deren Name ich in einer Zelle angeben möchte.

Bisher habe ich eine Verknüpfung zu einer Datei erstellt und versucht, ein Makro zu erstellen, das es ändern würde (d. H. Die in der Verknüpfung angegebene Quelldatei), basierend auf einem in einer Zelle angegebenen Wert. Versagte kläglich ... irgendeinen Rat?

Sub Macro1() 

    Worksheets("aaa").Activate 

    Dim FTW As String 

    FTW = Cells(1, "A").Value 

    ActiveWorkbook.ChangeLink Name:= _ 
     "FTW", NewName:= _ 
     "FTW", Type:=xlExcelLinks 

End Sub 

Answer 1

Sub ChangeLink() 
Dim OldLink As String 
Dim NewLink As String 
Dim wks As Worksheet 
Set wks = ThisWorkbook.Worksheets("aaa") 

OldLink = "SPECIFY OLD HERE" 
NewLink = wks.Range("A1").Value 
ThisWorkbook.ChangeLink Name:=OldLink, NewName:=NewLink, Type:=xlExcelLinks 
End Sub