Zugriff zu 2 ODS-Dateien in einem Makro? [GELÖST]

[Rolf_V]

Ich will mit einem Makro eine zweite ODS-Datei öffnen und Zellinhalte aus einer Datei in die andere Datei kopieren. Das Öffnen funktioniert schon, aber es gibt keinen Zugriff auf die zweiten Datei.
Hier ist der relevante Teil des Makros, das von der ersten Datei gestartet wird:

Code: Alles auswählen

Sub Main
msgbox ReadCell("B6")
OpenFile("home/rolf/Downloads/New.ods")
msgbox ReadCell("A1")
' ...usw...
End Sub

sub OpenFile(Name as String)
Dim myProp(0) as new com.sun.star.beans.PropertyValue
myProp(0).name="MacroExecutionMode"
myProp(0).value = 0
url=converttourl(Name)
oDocument = StarDesktop.loadComponentFromURL(url, "_blank", 0, myProp() )
end sub

function ReadCell(Adr as String)
dim myString
oDocument = thisComponent
oSheet = oDocument.sheets(0)
oZelle = oSheet.getCellRangeByName(Adr)
myString=oZelle.string
ReadCell = myString
end Function

msgbox zeigt zunächst richtig den Inhalt der Zelle B6 an, aber nach dem Öffnen der zweiten Datei ist msgbox leer.
Wie kann ich den Zugriff abwechselnd auf beide Dateien einstellen, d.h. dass thisComponent auf die jeweilige geöffnete Datei zeigt?
FYI: LO läuft unter Linux

[Mondblatt24]

Hallo,

Fragen zu Makros stelle bitte in der Kategorie LibreOffice Programmierung

[Mondblatt24]

Da viewtopic.php?f=12&t=39484 geht's weiter.