Code: Alles auswählen
Zellwert B8
REM Objekt des aktiven Blatts
oBlatt = ThisComponent.Sheets.getByName("Seite 1")
REM Zellen des Blatts, Spalte/Zeile NULL-basiert !
REM B8
sTeil1 = oBlatt.getCellByPosition(1,7).getString()
Code: Alles auswählen
REM Hilfsfunktionen
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
sPfadtrenner = GetPathSeparator()
REM Pfad des gespeicherten !!! Dokuments
sAktPfad = _
DirectoryNameoutofPath( ThisComponent.URL,sPfadtrenner)
Nachrichtenfenster mit Ja/Nein Schaltflächen
Code: Alles auswählen
iButton = Msgbox( "Ja oder Nein", 4, "Fragen....")
REM 6: JA gedrückt
Code: Alles auswählen
Dim oParms(0) As New com.sun.star.beans.PropertyValue
oParms(0).Name = "FilterName"
oParms(0).Value = "Microsoft Excel 97/2000/XP (.xls)"
ThisComponent.StoreToURL( ConvertToURL( sDeinName ) , oParms() )
Die Code-Beispiele sind alle "aus der Hand" - sprich: ungetestet !
Ein anständiges Fehler-Checking fehlt!
Weisst Du nun mehr?