OpenOffice.info

Code: Alles auswählen

Sub Main
	myDoc=thisComponent
	mySheetName=mydoc.sheets(0).getName()
	msgbox mySheetName
End Sub

Code: Alles auswählen

mySheetName=mydoc.sheets(0).LinkDisplayName

Code: Alles auswählen

Function TabName (TNr as Integer) as String
'**************************************************************************
' Die Funktion gibt den Tabellennamen entsprechend der Nummer in TNr wieder und 
'gibt eine Fehlermeldung aus, wenn die vorgegebene Nummer 
' einen bestimmten Bereich überschreitet.
' ----------------------------------------------------------------------------------------------
' hin:
'     TNr...Nummer der Tabelle (0 ist die erste Tabelle)
' zurück
'     TabName...Name der Tabelle
'**************************************************************************
Dim Doc as Object
Dim Sheet as Object
Dim mldg as String

Doc = StarDesktop.CurrentComponent

' ---- die Fehlermeldung .....................................................................................
If TNr>TabCount-1 or TNr<0 then
        mldg="Die Angegebene Tabellennummer ist größer/kleiner als "+chr(13)
        mldg=mldg +"die tatsächliche Anzahl von Tabellen." +chr(13)
        mldg=mldg +"Die Nummern der Tabellen beginnen mit 0 !!!"+chr(13)
        mldg=mldg +"Die maximale Anzahl von Tabellen ist:"+str(TabCount)+chr(13)
        mldg=mldg +"..also ist die letzte Tabelle "+str(TabCount)+"-1 = "+str(TabCount-1)+" !"+chr(13)
        mldg=mldg +"Die minimale Anzahl ist: 0"+chr(13)
        mldg=mldg +"Die vorgewählte Nr. ist:"+str(TNr)+chr(13)
        msgbox mldg,0+48,"Fehler in Funktion >Lib_Calc.WZ.TabName"	
        exit function
End if

'.........Der Befehl zur Ermittlung des Tabellennamens ---------------------------
        TabName=Doc.Sheets(TNr).Name

End Function

Code: Alles auswählen

msgbox TabName (1)

Code: Alles auswählen

Dim sText as String

sText= TabName (1)

msgbox sText