Hast du dir einmal den Link angeschaut?
https://www.ms-office-forum.net/forum/showthread.php?t=311584
Dort wird erklärt, wie man über Changelink den aktuellen Link in den von der neuen Datei umschreiben kann:
ZITAT:
So wie ich dich verstehe geht es einfacher mit der ChangeLink Methode. Ich verstehe das nicht, wie ich die Verknüpfung löschen soll
Laut der hilfe
Code:
ActiveWorkbook.ChangeLink "c:\excel\book1.xls", _ "c:\excel\book2.xls", xlExcelLinks
____________________________________________________________________
Hallo,
ich habe es bei mir einmal aufgezeichnet und es sieht etwa so aus:
Code:
ActiveWorkbook.ChangeLink Name:="C:\Pfad\der\alten\Mappe.xls", NewName _ :="NameDerNeuenMappe.xls", Type:=xlExcelLinks
Anschließend sind bei mir alle Verlinkungen auf die aktuelle Mappe geändert.
Ich würde also nachdem ich die Datei neu mit dem Namen gespeichert habe mit AktiveWorkbook.Fullname den Pfad auslesen und die Links mit Changelink ändern und danach nochmal speichern.
Ich würde es nach der Speicherung machen, damit du nicht die Originaldatei beschädigst.
Andere würden es vieleicht anders machen.
Ich hoffe du kommst jetzt weiter.
Mehr kann ich nicht.
|