Laufzeitfehler 1004
ThomB
Ich habe ein leidiges Problem mit dem Aktualisieren von externen Verknüpfungen.
Daher will ih jetzt in der betreffenden Arbeitsmappe ein Makro beim Öffnen
ausführen.
Leider bekomme ich beim Ausführen den Laufzeifehler '1004', sobald eine
der verknüpften Mappen geöffnet ist.
Ist nur die Ziel-Mappe auf klappt es wunderbar...
Hier der Quelltext:
Sub UpdateLinks(oWbk)
Dim i As Integer
Dim aLinks
aLinks = oWbk.LinkSources(xlExcelLinks)
If Not IsEmpty(aLinks) Then
For i = 1 To UBound(aLinks)
If VarType(aLinks(i)) = vbString Then
oWbk.UpdateLink aLinks(i)
End If
Next i
End If
End Sub
Bin für jede Hilfe dankbar!
ThomB