Supportnet / Forum / Tabellenkalkulation
Externe Verknüpfungen aktualisieren mit VBA
Frage
Hallo Allerseits,
ich möchte gerne über VBA externe Verknüpfungen aktualisieren.
Dabei muss ich den Namen der aktualisierten Datei auslesen, da sich dieser ständig ändert.
Leider funktioniert mein Code nicht:
Private Sub CommandButton1_Click()
Dim Verknüpfung$
Application.ScreenUpdating = False
Verknüpfung = Application.GetOpenFilename("Excel-Files (*.xls), *.xls", , "Bitte wählen Sie die aktuelle SHIP ADMINISTRATION-Datei aus:")
If Dir(Verknüpfung) = "" Then Exit Sub
If Dir(Verknüpfung) <> "" Then
aLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
ActiveWorkbook.ChangeLink "aLinks", "Verknüpfung"
End If
End Sub
Kann mir jemand helfen?
Vielen Dank.
Gruß
Daniel