OpenOffice.info

Ich bin es selbst nochmal:

Ich benutze Windows7 und wenn ich im Explorer ein Calc-File doppelt klicke, damit es von OO aufgemacht wird, kriege ich ständig "Runtime-Fehler"...???

Kann das die Ursache für das Nichfunktionieren meiner Programmierung sein?

Hallo,
ich habe in VB.net programmiert und um zu erreichen, dass ein Calc-File in OO geladen wird:
Dim oDesk, oDoc AS Object
Dim ladeZustand(0)
oDesk = oSM.createInstance("com.sun.star.frame.Desktop") 'Erstelle den ersten & wichtigsten Dienst
ladeZustand(0) = oSM.Bridge_GetStruct("com.sun.star ...

Hallo,
ich habe die Version OO 2.4 installiert und benutze Calc innerhalb eines eigenen VB2008 Programms.
Bisher habe ich die Version 2.3 vewendet und zwar habe ich den Beginn des Zugriffs auf eiune Calctabelle folgendermaßen programmiert:
oSM = CreateObject("com.sun.star.ServiceManager ...

Danke turtle47!

Das ists.
Nur noch eine Frage:
Ich habe selbst natürlich intensiv gesucht nach Lösung. Allerdings bin ich OO Neuling und es ist bisschen mühsam als Autodidakt
Wo kann man gerade solche Eigenschaftswerte nachlesen? Hast du evtl. nen Link parat...

Gruß aus Salzburg
Dietrich

Hallo,

leider gibts wohl nicht den Celltyp für Datum-Werte in OO-Basic. Wenn ich aber Zellinhalte aus Calc in bspw. anderes Programm übernehmen will, kann ich nicht feststellen, ob der Inhalt der Zelle ein datum ist.
Datumswerte werden als Zahl übergeben, also als Long. Alle anderen Zahlen werden ...

Hallo Karolus,

danke dir für die Mitarbeit! Mit der letzten Korrektur funktioniert alles!

Mein Code oben ist nur ein Ausschnitt aus meinem Programm. Nachdem die Werte für letzteSpalte und letzteZeile festgestellt sind, werde ich die Zellwerte auslesen, in ein Array speichern und dann in einem ...

Danke für den Tipp!

Aber bei mir im VB2005-Programm funktioniert es nicht. Ich mache Folgendes:
Dim oSM As Object 'Hauptobjekt fuer den Zugriff auf OpenOffice von VB.Net aus (SM: ServiceManager)
Dim oDesk, oDoc, oSheet, oRange, oCell, oCursor As Object 'Objekte von der OpenOffice-Schnittstelle ...

Hallo zusammen,

bei Excel kann man bspw. mit solchen Befehlen
LetzteSpalte = ActiveSheet.Cells(6, Columns.Count).End(xlToLeft).Column
LetzteZeile = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row
die letzte Spalte bzw. letzte Zeile des Sheets ermitteln, wobei leere Sp. oder leere Z. mit ...

Gleicher Effekt: es wird immer nur 453 (in meinem Falle) als immer die gleiche Zeilenhöhe ausgegeben...

Dim prozess1() As Process
Dim prozess2() As Process
Dim procId As Integer = 0
Dim oSM As Object 'Hauptobjekt fuer den Zugriff auf OpenOffice von VB.Net aus (SM: ServiceManager)
Dim oDesk, oDoc, oSheet, oRange, oCell, oNames, oRow As Object 'Objekte von der OpenOffice-Schnittstelle (API ...

danke für den tipp!

hatte es gerade selbst ausprobiert- no effect.

im moment weiß ich kein mittel mehr, wie ich das problem lösen könnte....

dietrich

Kann es sein, dass es daran liegt, dass durch
oCell = oSheet.getCellByPosition(1, zz)
die entsprechende Zelle im Sheet nicht markiert wird?
Ich habe mir das mal schrittweise angesehen. zz wird zwar erhöht, aber in der Tabelle wird die aktuelle Zelle nicht markiert.
Vielleicht kann dann die ...

Das thisComponent.sheets(0) kann ich überhaupt nicht anwenden im VB2005, da kommt Fehlermeldung.
Allerdings kann ich bspw. Tabelle ausfüllen indem ich vorher mache:
oSheet = oDoc.getSheets().getByIndex(0)

Das Ausfüllen wird auch bestens in meinem Programm erledigt, also der Zugriff auf die Tabelle ...

Nein, leider nicht.

Habe mittlerweile mal OO 2.3. installiert, habe damit aber den gleichen Effekt...

Gleich noch was dazu:
Ich habe, um das zu testen Folgendes gemacht:
Habe ne Calc Tabelle geöffnet, die in den Anfangszeilen mit Daten gefüllt ist und die unterschiedlichsten Zeilenhöhen aufweist.
Dann: For zz As Integer = 1 To 22
oRow = oSheet.Rows(zz)
Debug.Print(oRow.Height)
Next
(ist VB2005 ...