Verknüpfung lösen

[MarcoB]

Hi alle zusammen,

ich habe folgendes Problem mit dem ich bis jetzt nicht weitergekommen bin:

ich habe in meiner Tabelle eine externe Tabelle als Link eingefügt (über Einfügen -> Tabelle aus Datei, und dann "Verknüpfen" ausgewählt).
Ich möchte diese Verknüpfung per Makro wieder lösen können. Der manuelle Weg ist über Bearbeiten -> Verküpfungen -> Lösen.

Mit dem Aufzeichnungsmanager bekomme ich folgenden Code:

Code: Alles auswählen

rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:EditLinks", "", 0, Array())

Das öffnet mir allerdings nur den Dialog, und ich müsste "Lösen" nochmal extra anklicken.

Kann mir jemand sagen, wie ich das automatisieren kann?

Vielen Dank im voraus,
Marco

[komma4]

Du bist im falschen Forum ("gehe sofort nach BASIC, gehe nicht über LOS, ...")


Ein verknüpftes Tabellenblatt hat die Eigenschaft .LinkMode, setze diese auch "keinen"

Code: Alles auswählen

oBlatt = ThisComponent.Sheets.getByName( "Tabelle1_2" )
oBlatt.LinkMode = _
	com.sun.star.sheet.SheetLinkMode.NONE 

Hilft das?

[MarcoB]

Vielen vielen Dank,

das hilft mir weiter. Das war genau das, wonach ich gesucht habe.
Und sorry für ins falsche Forum posten.

Gruß,
Marco.