und wieder mal ne OpenOffice Frage (Makros)

[ulridos]

wieder mal ich ..
keine wirkliche Ahnung von Makros ... also gegoogelt und die Lösung für mein Problem gefunden

http://www.oooforum.de/viewtopic.php?t=10696

Das dort gepostete Makro kopiert und angepasst

------------------------------------------------------
REM ***** BASIC *****


Sub speichern_unter_A1_und_C8
dim dummy()
myDoc = thisComponent
mySheet = myDoc.sheets(0) '1. Tabellenblatt
namenszelle = mysheet.getCellRangeByName("B87")
ortszelle = mysheet.getCellRangeByName("F72")
'Lesen der Werte
Dateiname= namenszelle.string &"_" & ortszelle.string


dateipfad="E:\Star Office\Datenablage\AAuftraege Einrahmungen"& Dateiname &".ods"
'dein Pfad muss ^^^^^^^^^^^^^^^ dort innerhalb der "-Anführungszeichen stehen !
dateiurl=converttourl(dateipfad)
mydoc.storeasurl(dateiurl,dummy())
rem oder
rem mydoc.storetourl(dateiurl,dummy())
End Sub

--------------------------------------------------------------

funzt fast ....

es speichert in Ordner "Datenablage"
mit Dateinamen "AAuftraege Einrahmungen_24.02.2016"

Datum stammt aus Zelle F72 .... der Inhalt der Namenszelle B87 wird unterschlagen, dafür wird der Ordnername genutzt und eine Ebene zu hoch gespeichert

Was ist da falsch ??

(nicht wundern über die 2 A im Ordnernamen .... so steht er ganz oben in der Liste , wird häufiger mit gearbeitet )

[ulridos]

AW: und wieder mal ne OpenOffice Frage (Makros)

opps " \ " fehlt wohl .....

Blinde Nuss ich ....

so ... jetzt stimmt der Pfad ... aber der Name vor dem _ fehlt immer noch ....

edit .... habs

Zelle war nicht als text formatiert .... boah auf was man alles achten muß wenn man Ideen klaut


So... funzt nun also soweit

Welchen Befehl müsste ich nun einbauen, damit er die Tabellenblätter auch sofort druckt ???

[J.Picard]

AW: und wieder mal ne OpenOffice Frage (Makros)

dispatcher.executeDispatch(document, ".uno:Print", "", 0, Array())

[ulridos]

AW: und wieder mal ne OpenOffice Frage (Makros)

Danke Euch
Alles soweit hin bekommen

Nächste Baustelle : Rechnen mit Wochentagen ...

Kann mir jmd folgenden Sachverhalt in eine Formel pressen ???

In einer Zelle soll das Datum eines Freitags stehen . Dieser Freitag rückt immer Donnerstags eine Woche weiter .

Also ... Alle Aufträge die bis einschließlich Mittwochs angenommen werden , werden in der Woche darauf am Freitag fertig . Wer Donnerstags kommt , dessen Auftrag wird halt erst in 15 Tagen fertig , wer Freitags kommt eben in 14 Tagen ...... wer Mittwochs kommt eben in 9 Tagen .
Wie quetscht man sowas ohne 7 If..Then in eine etwas einfachere Form ??

[155EA]

AW: und wieder mal ne OpenOffice Frage (Makros)

Ist zwar schon ne Woche alt, aber hier die Excel-Version, ich hoffe es geht auch so in OO:

If Weekday(Now(), 2) < 4 Then 'Variable' = Now() + 12 - Weekday(Now(), 2) Else 'Variable' = Now() + 19 - Weekday(Now(), 2)
Cells(x, y) = 'Variable'

'Variable' natürlich noch durch die Richtige ersetzen und x und y durch die Koordinaten der Zielzelle

[ulridos]

AW: und wieder mal ne OpenOffice Frage (Makros)

Danke Dir .... habs inzw. durch 6 verschachtelte "Wenn" gebaut ... nicht so elegant .... funzt aber werde nie verstehen wie man auf solche Lösungen kommen kann .... ... wenn ichs dann sehe, ist es absolut nachvollziehbar .... aber selbst drauf kommen ..... neeee.... klappt nicht :|

F73= Wochentag()
F74= ein mit Makro generiertes DAtum ( bei neu erstellen der Tabelle, beim bearbeiten wirds nicht mehr geändert)

=WENN(F73=1;F74+12;WENN(F73=2;F74+11; WENN(F73=3;F74+10; WENN(F73=4; F74+9; WENN(F73=5;F74+15; WENN(F73=6;F74+14;F74+13))))))

[ulridos]

und schon wieder ne Idee

kann man irgendwie alle Tabellen die in einem Ordner liegen per script öffnen , in einer bestimmten Zelle das aktuelle DAtum eintragen und das ganze wieder unter demselben Namen speichern ???

[thyssen2k]

ja, das geht... sieht in etwa so aus:

directory = "C:\Users\ulridos\ordner123\"
file = DIR(directory)
While file <> ""
   If RIGHT(file,3) = "ods" Then
      fileURL = convertToURL(directory & file)
      oDoc = StarDesktop.loadComponentFromURL(FileURL, "_blank", 0, Array())
             'ab hier kannst du was frei scripten...
             'sei es zellen löschen, hinzufügen oder was auch immer

             'und speichere die Datei...
      oDoc.storeAsURL(convertToURL(Directory & file), Array())
      oDoc.close(TRUE)
   End If
file = DIR()
WEnd

[ulridos]

Ganz aus den Augen verloren, zu viele Baustellen auf einmal die ich mal wieder habe.

Vielen DAnk Thomas .... das als BAtchdatei .... oder ??? Und dann per Chronjob starten ?!?
Weil das ganze soll spät abends/ nachts passieren, automatisch .... jede Datei soll in einem Feld einen Vermerk bekommen ,,, z.B. D100= HEZTE() also den Tag wo der Auftrag erledigt wurde und in diesen Ordner geschoben wurde.

Also das PRG sollte um 22 Uhr starten, jede Datei im Ordner öffnen , den Datumsvermerk in die Zelle schreiben und wieder speichern unter dem ursprünglichen Namen