OpenOffice.info

Code: Alles auswählen

Sub NotizenOeffnen
Dim Dokument as Object
Dim sUrl as String
Dim Dummy()
sUrl = ConvertToUrl ("C:\Notizen.ods") ' Achtung: Pfad anpassen!
'Prüfungsroutine
  gefunden=false
  oComponents = StarDesktop.getComponents()
  oDocs = oComponents.createEnumeration()
  Do While oDocs.hasMoreElements()
    oDoc = oDocs.nextElement()
    datei=odoc.geturl()
     if datei=ConvertToUrl("C:\Notizen.ods") then ' Achtung: Pfad anpassen!
         Dokument=odoc
         gefunden=true
         msgbox "Die Datei ist bereits geöffnet!" ,64, "Datei öffnen"
     end if
  Loop
' Wenn nicht offen, dann öffnen
if gefunden=false then Dokument = StarDesktop.loadComponentFromURL   ( sUrl , "_blank", 0, Dummy() )
End Sub

Code: Alles auswählen

oCell = oSheet.getCellByPosition(1, zz)

Code: Alles auswählen

getCellByPosition

Code: Alles auswählen

For zz = 0 To 10
            oRow = oSheet.Rows(zz)
         .....

Code: Alles auswählen

        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)
...
        prozess1 = Process.GetProcesses()   'Alle Prozesse VOR dem Erstellen der Calc-Mappe
        Try
            oSM = CreateObject("com.sun.star.ServiceManager")        'OpenOffice instanziieren: Zwingend notwenig fuer die Kommunikation von VB.Net mit der OpenOffice API
            oDesk = oSM.createInstance("com.sun.star.frame.Desktop") 'Erstelle den ersten & wichtigsten Dienst
        Catch ex As Exception
            MessageBox.Show(ex.Message, "FEHLER OO", MessageBoxButtons.OK, _
                    MessageBoxIcon.Warning)
            Clipboard.SetText(ex.Message)
            Exit Sub
        End Try
        prozess2 = Process.GetProcesses()   'Alle Prozesse NACH dem Erstellen der Calc-Mappe, inklusive der Prozess-ID der Calc-Mappe
...
        'Um Calc im Hintergrund zu halten
        Dim ladeZustand(0)
        ladeZustand(0) = oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
        'ladeZustand(0).Name = "Hidden"
        ladeZustand(0).Value = True
...
        Dim str As String = pfad + fName + ".ods"
        str = str.Replace("\", "/")
        str = "file:///" + str.Replace(":", "|")     'der Dateiname inkl. Pfad für OOCalc
        oDoc = oDesk.loadComponentFromURL(str, "_blank", 0, ladeZustand)     'öffnen der Datei im Calc
...
        oSheet = oDoc.getSheets().getByIndex(0)     ' 1.Blatt der Mappe
        For zz As Integer = 0 To 22
            oCell = oSheet.getCellByPosition(1, zz)
            oRow = oSheet.Rows(zz)
            Debug.Print(oRow.Height)
        Next
...

Code: Alles auswählen

sub zeilenhoehe
odoc=thiscomponent
oSheet = oDoc.getSheets().getByIndex(0)
sumRH =0
For zz = 0 To 10
            oRow = oSheet.Rows(zz)
            Print(oRow.Height)
            sumRH=SumRH + (orow.Height)
        Next
        msgbox sumRH
end sub

Code: Alles auswählen

sub zeilenhoehe
osheet = thisComponent.sheets(0) '???    Index überprüfen
For zz = 1 To 10
            oRow = oSheet.Rows(zz)
            Print(oRow.Height)
        Next
end sub

Code: Alles auswählen

Sub ZeilenhoehenAuslesen
	myDoc = thisComponent
	mySheet = myDoc.Sheets(0)
	Rowheight = 0
	for i = 1 to 10
	myheight=mysheet.Rows(Rowheight).height
	msgbox myheight
	Rowheight = Rowheight +1
	next i
End Sub

Code: Alles auswählen

        For zz As Integer = 1 To 22
            oRow = oSheet.Rows(zz)
            Debug.Print(oRow.Height)
        Next