Makro zum Speichern

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

Benutzeravatar
komma4
********
Beiträge: 5332
Registriert: Mi, 03.05.2006 23:29
Wohnort: Chon Buri Thailand Asia
Kontaktdaten:

Re: Makro zum Speichern

Beitrag von komma4 »

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

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()
vom aktuellen Dokument den Pfad:

Code: Alles auswählen

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

Nachrichtenfenster mit Ja/Nein Schaltflächen

Code: Alles auswählen

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

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?
Cheers
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
Benutzeravatar
komma4
********
Beiträge: 5332
Registriert: Mi, 03.05.2006 23:29
Wohnort: Chon Buri Thailand Asia
Kontaktdaten:

Re: Makro zum Speichern

Beitrag von komma4 »

Uli, der Unwissende hat geschrieben:Wo kann ich denn Infos zum Übersetzen finden?
Hier im Forum, siehe die sticky threads, dort finden sich weitere Fundstellen zum Thema Basic.
Komplette (?) Information im DevelopersGuide
Uli, der Unwissende hat geschrieben:Leider kann ich deinen Ausführungen nicht folgen.
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.

Hier findst Du professionelle HIlfe rund um OOo.
Cheers
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
Antworten