[XL2010] Externe Excel-Links per VBA prüfen

29/01/2014 - 23:30 von Jörg Eisenträger | Report spam
Hallo NG,

wie kann ich per VBA prüfen, ob eine Verknüpfung zu einer externen
Excel-Datei aktualisiert werden kann, um ihn dann zu löschen?

Also etwa so:

vAllLinks = ThisWorkbook.LinkSources(xlExcelLinks)

For ii = UBound(vAllLinks) To 1 Step -1
If IstKaputt(vAllLinks(ii)) Then
ThisWorkbook.BreakLink vAllLinks(ii), xlExcelLinks
End If
Next ii

Ich finde die Funktion "IstKaputt" nicht. :-(


Gruß
Jörg
"One of the best ways to boost your Excel efficiency is also one of the best ways to shoot yourself in the foot."
(Susan Harkins auf www.techrepublic.com/blog/10things/10-mistakes-to-avoid-when-working-with-multiple-worksheets/1961 )
 

Lesen sie die antworten

#1 Claus Busch
30/01/2014 - 08:02 | Warnen spam
Hallo Jörg,

Am Wed, 29 Jan 2014 23:30:03 +0100 schrieb Jörg Eisentràger:

wie kann ich per VBA prüfen, ob eine Verknüpfung zu einer externen
Excel-Datei aktualisiert werden kann, um ihn dann zu löschen?



du könntest das z.B. mit einer Funktion prüfen:

Function FileExists(myCell As Range) As Boolean
Dim strFile As String

strFile = Replace(myCell.Hyperlinks(1).Address, "File///", "")
FileExists = IIf(Dir(strFile) <> "", True, False)
End Function

Wenn die Hyperlnks in A sind, dann die Funktion im Blatt aufrufen mit
=FileExists(A1) und runter ziehen.


Mit freundlichen Grüßen
Claus
Win XP Prof SP3 / Vista Ultimate SP2
Office 2003 SP3 /2007 Ultimate SP3

Ähnliche fragen