AW: externe Verknüpfungen aktualisieren
11.07.2007 13:39:59
Wolli
Hallo Jörg, zum Updaten (oder Lösen) von Links gibt mein Code-Sammelsurium folgendes:
Dim astrLinks As Variant
' Define variable as an Excel link type.
astrLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
' Break the first link in the active workbook.
ActiveWorkbook.BreakLink _
Name:=astrLinks(1), _
Type:=xlLinkTypeExcelLinks
'(kann auch in eine for..each-schleife, denke ich)
ActiveWorkbook.UpdateLink Name:="Q:\Auswertung\2007-07-02_Auswertung.xls", _
Type:=xlExcelLinks
Vielleicht ist ja für Dich was dabei! Gruß, Wolli