| Startseite | Inhalt
StarBasic / OpenOffice.org Basic FAQ
Fragen und Infos: starbasic@dannenhoefer.de

Zurück Vor |
| 10.3.3 GetNameOfAllSheets
Sub GetNameOfAllSheets(NameOfSheets()) Die Prozedur gibt ein Array mit den Namen der Sheets zurück Der Aufruf erfolgt über: dim listall() GetNameOfAllSheets(listall()) Sub GetNameOfAllSheets(NameOfSheets()) Dim oDoc as Object Dim oSheets as Object Dim oSheet as Object Dim i as integer Dim iAnzahl as integer oDoc = CurrentComponent oSheets=odoc.sheets Anzahl = oSheets.count Anzahl = Anzahl - 1 Redim NameOfSheets(Anzahl) For i = 0 to Anzahl oSheet = oDoc.Sheets(i) NameOfSheets(i)=oSheet.name Next End Sub |
Seitenanfang |

2003 - 2009 von Michael Dannenhöfer |
Letzte Aktualisierung: 06.04.2009