OpenOffice.info

[quote="Uli, der Unwissende"]Wo kann ich denn Infos zum Übersetzen finden? [/quote]
Hier im Forum, siehe die [i]sticky threads[/i], dort finden sich weitere Fundstellen zum Thema Basic.
Komplette (?) Information im [url=http://api.openoffice.org/docs/DevelopersGuide/DevelopersGuide.xhtml]DevelopersGuide[/url]

[quote="Uli, der Unwissende"]Leider kann ich deinen Ausführungen nicht folgen.[/quote]Das ist Schade. Das sind Code-Beispiele für die von Dir gesuchten Anweisungen. Programmieren solltest Du können - oder lernen wollen, wenn Du Code einsetzen magst.

[url=http://de.openoffice.org/about-ooo/about-support.html]Hier[/url] findst Du professionelle HIlfe rund um OOo.

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()

REM Hilfsfunktionen
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
sPfadtrenner =  GetPathSeparator()
REM Pfad des gespeicherten !!! Dokuments
sAktPfad = _
 DirectoryNameoutofPath( ThisComponent.URL,sPfadtrenner) 

iButton = Msgbox( "Ja oder Nein", 4, "Fragen....")
REM 6: JA gedrückt

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() ) 

Wenn Dein VBA-Makro von Dir ist solltest Du keine Schwierigkeiten haben -nach ein bisschen Recherche- den Code zu übersetzen.

[code]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]
vom aktuellen Dokument den Pfad:[code]
REM Hilfsfunktionen
GlobalScope.BasicLibraries.LoadLibrary( "Tools" )
sPfadtrenner = GetPathSeparator()
REM Pfad des gespeicherten !!! Dokuments
sAktPfad = _
DirectoryNameoutofPath( ThisComponent.URL,sPfadtrenner) [/code]
REM

Nachrichtenfenster mit Ja/Nein Schaltflächen
[code]iButton = Msgbox( "Ja oder Nein", 4, "Fragen....")
REM 6: JA gedrückt[/code]

Speichern als Excel
[code]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() ) [/code]



Die Code-Beispiele sind alle "aus der Hand" - sprich: [b][color=#FF0000]ungetestet[/color][/b] !
[b]Ein anständiges Fehler-Checking fehlt[/b]!

Weisst Du nun mehr?