Links im Excel auflösen

[eagle]

Hallo zusammen,

im Excel kann ich auf ein anderes Excel-File referenzieren.
Weiss jemand wie ich diese Referenz per VBA auflösen kann, so dass nicht mehr auf das Orignial-File zugegrifen werden muss um die darstellung zu erhalten?

habe schon volgendes Probiert:

  Dim ShapeObj
  Dim shapeCounter As Integer
  For counter = 1 To ActiveWorkbook.Sheets.Count
    'ActiveWorkbook.Sheets(counter).Ungroup
    For shapeCounter = 1 To ActiveWorkbook.Sheets(counter).Shapes.Count
      Set ShapeObj = ActiveWorkbook.Sheets(counter).Shapes(shapeCounter)
      If Not (ShapeObj Is Nothing) Then
        If ActiveWorkbook.Sheets(counter).ProtectDrawingObjects Then
          Call ActiveWorkbook.Sheets(counter).Unprotect
        End If
        ShapeObj.Ungroup
      End If
      ShapeObj = Nothing
    Next shapeCounter
  Next counter

klappt leider nicht, da direkt referenzen vom typ ='C:\WINNT\Profiles\B020546\Desktop\tmp-test\[1-15.xls]Tabelle1'!A4
nicht als Shape gellten, daher werden diese nicht erkannt.

Hier erhalte ich zwar den Link auf das File aber aufheben kann ich ihn irgendwie nicht

  Dim alinks
  Dim i As Integer
  alinks = ActiveWorkbook.LinkSources(xlOLELinks)
  If Not isEmpty(alinks) Then
    For i = 1 To UBound(alinks)
      ' wirft fehler
      '  alinks(i).Ungroup
    Next i
  End If

hat jemand eine Idee wie ich das bewerkstelligen könnte oder einen Typ was ich bei den jetztigen Versuchen falschgemacht oder übersehen habe?

grüsse und allen ein schönes Wocheende