OpenOffice.info

[quote="Frank88"]Ich hatte mit einem anderen Code-Beispiel versucht, das ich hier im Forum gefunden hatte,[/quote]
Das Prinzip ist das gleiche.
Fehlermeldungen kommen z.B. bei noch nicht gespeicherten Dateien, neewaar?

[quote="Frank88"]Über BASIC öffnen, ja, das wär's. Das müßte dann so aussehen, oder?[/quote]
So in etwa (ausprobieren)!

Tipps:
* setze den Dateinamen ausserhalb des Aufrufs zusammen,
* verwende [color=#008000]ConvertToURL()[/color] Laufzeitfunktion
* verwende die [undokumentierte] Funktion [color=#008000]getPathSeparator() [/color] zum Ermitteln des Pfadtrenners
Mit den letzten beiden Punkten bist Du plattform-unabhängig 8) .

   GlobalScope.BasicLibraries.LoadLibrary("Tools")
   oComponents = StarDesktop.getComponents()
   oDocs = oComponents.createEnumeration()
   do while oDocs.hasMoreElements()
      oDoc = Odocs.nextElement()
      datei = odoc.geturl()
      'IF ... Then
           odoc.Sheets(0).GetCellByPosition(0,0).string
      'End If
      msgbox datei
   loop

    NewWorkbook = StarDesktop.loadComponentFromURL _
       ("file:///" & DirectoryName & "/My2ndWorkbook.sxc", _
       "_blank",0 ,NoArgs() )

MeineZelle=NewWorkbook.Sheets(0).GetCellByPosition(0,0).string

Hallo,

ja, das hilft.

Ich hatte mit einem anderen Code-Beispiel versucht, das ich hier im Forum gefunden hatte,
[code] GlobalScope.BasicLibraries.LoadLibrary("Tools")
oComponents = StarDesktop.getComponents()
oDocs = oComponents.createEnumeration()
do while oDocs.hasMoreElements()
oDoc = Odocs.nextElement()
datei = odoc.geturl()
'IF ... Then
odoc.Sheets(0).GetCellByPosition(0,0).string
'End If
msgbox datei
loop[/code]
aber damit bekomme ich hin und wieder nicht ganz nachvollziehbare Fehlermeldungen.

Über BASIC öffnen, ja, das wär's. Das müßte dann so aussehen, oder?
[code] NewWorkbook = StarDesktop.loadComponentFromURL _
("file:///" & DirectoryName & "/My2ndWorkbook.sxc", _
"_blank",0 ,NoArgs() )[/code]
Und sollte dann mit
[code]MeineZelle=NewWorkbook.Sheets(0).GetCellByPosition(0,0).string[/code]
den Inhalt bekommen?

Grüße, Frank

Holst Dir halt zunächst das Objekt der anderen Calc-Datei.

Wenn Du über BASIC öffnest hast Du es ja, ansonsten über den [url=http://de.openoffice.info/viewtopic.php?f=18&t=12721&p=50889&hilit=component+walker#p50889]Component Walker[/url] rausfinden.


Hilft das?

MeineZelle=ThisComponent.Sheets..getbyindex(a).getcellbyposition(x,y).string

NochNeZelle=TheOtherComponent.Sheets.getbyindex(b).getcellbyposition(m,n).string

Hallo,

kann mir jemand sagen, wie ich die Zellen eines anderen Spreadsheet anspreche. Also statt
[code]MeineZelle=ThisComponent.Sheets..getbyindex(a).getcellbyposition(x,y).string[/code]
brauche ich
[code]NochNeZelle=TheOtherComponent.Sheets.getbyindex(b).getcellbyposition(m,n).string[/code]
Nur so klappt's halt nicht. Gesucht ist der richtige Ausdruck für "TheOtherComponent".
Beide Dateien sind dabei geöffnet (zumindest ThisComponent, weil da ja der Code drin stehen soll). Ziel soll sein, den Inhalt der Zellen einer Datei in die Zellen einer anderen Datei zu übertragen.

Grüße, Frank