OpenOffice.info

Code: Alles auswählen

....
msgbox (lastSp & "     " & lastZe )

Code: Alles auswählen

        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 (API)
...
            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
...
        Dim ladeZustand(0)
        ladeZustand(0) = oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
        ladeZustand(0).Value = True
...
        Dim str As String = fName   'das ist der Dateiname der OO-Calc
        str = str.Replace("\", "/")
        str = "file:///" + str.Replace(":", "|")
        oDoc = oDesk.loadComponentFromURL(str, "_blank", 0, ladeZustand)
...
        oSheet = oDoc.getSheets().getByName("Tabelle1")     'Bezugspunkt: 1.Blatt der Mappe
        ocursor = oSheet.createCursor()
        ocursor.gotoStart()
        oCursor.gotoEnd()         'letzte Zelle des Bereiches
        lastSp = oCursor.getRangeAddress.endColumn   'index letzte Spalte des Bereichs
        lastZe = oCursor.getRangeAddress.endRow       'index letzte Zeile des Bereichs
...

Code: Alles auswählen

Sub letzte_nichtleere_Spalte_und_Zeile
	oSheet = thisComponent.sheets(0) '1.Blatt
	ocursor = oSheet.createCursor()
	ocursor.gotoStart()	
	ocursor.gotoEndofUsedArea(false)			'letzte Zelle des Bereiches
	letzteSpalte = ocursor.getRangeAddress.endColumn   'index letzte Spalte des Bereichs
	letzteZeile = ocursor.getRangeAddress.endRow   'index letzte Zeile des Bereichs
End Sub