Wie kann ich über die tabellen nummer den Tabellen namen ermiteln
Name der Tabelle = Document.Sheet(nummer) ?????
gruß Frank
Heute ist morgen schon gestern
Tabellen Namen und Nummern
Moderator: Moderatoren
Hey Frank,
ganz einfach:
mit setName() kannst du den Namen auch setzen.
Eine andere Methode ist:
Also, viele Wege führen zum Ziel.
Gruss
Thomas
ganz einfach:
Code: Alles auswählen
Sub Main
myDoc=thisComponent
mySheetName=mydoc.sheets(0).getName()
msgbox mySheetName
End Sub
Eine andere Methode ist:
Code: Alles auswählen
mySheetName=mydoc.sheets(0).LinkDisplayName
Gruss
Thomas
Unterstützer LibreOffice, zertifizierter Trainer und Berater
Bücher: LibreOffice 6- Einstieg und Umstieg
Makros Grundlagen - LibreOffice / OpenOffice Basic
Bücher: LibreOffice 6- Einstieg und Umstieg
Makros Grundlagen - LibreOffice / OpenOffice Basic
Re: Tabellen Namen und Nummern
Hallo,
Noch ein Weg der bei mir funktioniert:
Aufruf der Funktion (Beispiel):
oder
Gruß Wolf
Noch ein Weg der bei mir funktioniert:
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