Másik openoffice fájlba mentés

[Viktor08]

A helyzet az, hogy valóban van több sor, de egy munkalapra mindig csak egyetlen elvégzett munkát írok, vagyis igazából csak az első sora lesz kitöltve.

[Zizi64]

Pfffff!!!
...Akkor ez a munkalap némi átalakítást megérdemelne... (főleg a fordított elhelyezkedés - fordított munkavállalói adatsorrend tekintetében...

[Viktor08]

Egyet kell értsék, ez egy nagyon a használhatóság jegyében született, remélem egyszer lesz lehetőségem rendbe tenni, mert sem jó, se nem logikus. Csak próbáld meg elképzelni mi lenne ha egy munkalapszám alatt több munkát beírnék, szerintem az egy követhetetlen káosz lenne, hiszen egy számon több munka is szerepeltethető elvileg, na azt keresd vissza mondjuk fél év múlva és állapíts meg, hogy mi is volt!
Egyéb tekintetben mit gondolsz mi lenne a legjobb megoldás, főleg arra ha el szeretném kerülni a több száz cella egyenkénti megcímzését?

[Viktor08]

Még azt leírnám - egy következő problémája a munkalapnak - előfordulhat, hogy amikor megkezdek egy munkalapot, előfordulhat az az eset, hogy később írok még hozzá munkaórát, hiszen menet közben gyakran újra előjön ugyanaz a gond. Vagyis ha belejavítok egy más elmentett munkalapba (ki van már osztva neki munkalap szám és már szerepel a Számítás dokumentumban is), akkor a javítást követően írja felül a munkaórákat (mindig ugyanaz a személy / személyek végzik az adott munkát).

[Zizi64]

Ha a Munkalapok egyedileg mind el vannak mentve (külön fájlokban), akkor a felülírás sem lehet gond a föntebb jelzett koordinátákon alapuló cellamegszólítás alkalmazásával.
Ismétlem:
A getCellByPosition(x;y) paramétereit a munkalap számából és a dolgozó adatainak oszlopszámából meghatározva szépen megcímezheted a célterületet.
Például, ha az első (1 / 2016) Munkalap adatait módosítod, akkor a az 1-et felhasználhatod a célsor megcímzéséhez.
Az 1-hez (vagyis az éppen aktuális munkalapszámhoz) hozzáadsz egy fix értéket: 1-et (hiszen a 0-1-2... számozás miatt a 3. sort a 2 értékkel érjük el a makróból) és máris megkapod, hogy hányadik sort kell megszólítanod.
Hasonlóképpen járhatsz el a célterület oszlopcímeivel is, csak ott dolgozó oszlopának a számából kell kiindulnod. Ezért lenne jobb, ha balról jobbra helyezkednének el az A, B, C dolgozó oszlopai.

[Viktor08]

Ezt értem amit leírsz, vagyis módosításkor meg kell vizsgáltatni a munkalap számát és az ahhoz tartozó értékeket kell felülírni, de hogyan oldjam meg, hogy a Számítás nevű dokumentumban szereplő sorokat ne kelljen mind megcímezni (5 db. adatot viszek át - munkalapszám, év, A és b dolgozó munkaórái és hónap - ami mondjuk ha 100 munkalap sorait szeretném előre megcímezni, akkor az azonnal 500 cella)?

[Viktor08]

Végül is a For..next ciklus arra lett volna jó, hogy jelen esetben az i értékét léptetve 2-től egészen a kívánt értékig léptesse a sorok számát, ha ezt nem használom, akkor meg kell minden egyes cellát címeznem, ami nagyon jó, mert attól kezdve mondjuk egy if..then függvénnyel csak megvizsgáltatom a munkalapszámot és a hozzá rendelt sorba beíratom az új munkaidőket, vagy éppen ha még nem létezik akkor a megfelelő sorba (pl. 1-es munkalap 3.sor, 2-es munkalap 4.sor és így tovább) csak egy igen hosszú címzést von maga után, hiszen az alapból 100 sor, soronként 5 adat, vagyis azonnal 500 cella, plusz a munkalap és anyagfeladás cellái, no meg a munkaidő_elszámolás (mondjuk utóbbiak mindenképpen kellenek).

[Zizi64]

Állj!

A makrót az aktuális Munkalap megnyitott ablakából indítod. Ez esetben a ThisComponent parancs CSAKIS arra az egy dokumentumra vonatkozik. Megnyitod a makróddal az egy példányban létező Számítás munkafüzetet, és (ciklussal, vagy nem) beírod a megfelelő értékeket. Ennyi. Hol jön itt a képbe a 100 Munkalap adatainak egyszerre történő átemelése?

Ha ez a cél, akkor nem egy megnyitott munkalapról kell indulni, hanem a Wincseszterről kell kilistáznod, hogy hány Munkalap fájl létezik, és azokat (ciklussal) sorban megnyitnod, és végrehajtani mindegyiken, amit eddig egy fájlon hajtottál végre.
Esetleg egy segéd fájlban vezetheted a Munkalap fájlok névlistáját, és a makrót a segédfájlból indíthatod a lista alapján.

[Viktor08]

Tehát ha jól értem arra gondolsz, hogy a makróban valami ilyesmi módom címzem, hogy a munkalapszámot alapul véve azt a Számítás nevű dokumentum Adat lapfülében a (munkalapszám + 2). sorba írja be (természetesen a többi adattal együtt). Erre gondolsz nagyjából?

[Viktor08]

Ahogy írtad, 1 db. Számítás nevű file létezik és ha abban felül szeretnék írni egy korábba munkalapot, azt mindig úgy teszem, hogy megnyitom az adott munkalapot, megírom, majd felülíratom a Számításban, vagyis ha a munkalapszám alapján teszem, akkor elvileg csak felülírja abban a régi adatokat és kész.

[Zizi64]

Tehát ha jól értem arra gondolsz, hogy a makróban valami ilyesmi módom címzem, hogy a munkalapszámot alapul véve azt a Számítás nevű dokumentum Adat lapfülében a (munkalapszám + 2). sorba írja be (természetesen a többi adattal együtt). Erre gondolsz nagyjából?

Igen.

[Zizi64]

Ahogy írtad, 1 db. Számítás nevű file létezik és ha abban felül szeretnék írni egy korábba munkalapot, azt mindig úgy teszem, hogy megnyitom az adott munkalapot, megírom, majd felülíratom a Számításban, vagyis ha a munkalapszám alapján teszem, akkor elvileg csak felülírja abban a régi adatokat és kész.

Igen.

[Viktor08]

Közben belekezdetem a szabadság órák beírásába szintén a korábban említett Számítás dokumentumba és rögtön az elején belefutottam egy hibaüzenetbe a következő részében a makrónak:

Kód: Egész kijelölése

sub Elszamolas_szabadsag
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim elszamolas as object
dim szamitas as object
dim szabadsag as object
dim adat as object
dim FileProperties(0) As New com.sun.star.beans.PropertyValue
dim MentesUrl as string
dim File_URL as string

rem ----------------------------------------------------------------------

document   = ThisComponent
elszamolas = document.sheets.getByName("Munkaidő_elszámolás")
szamitas = document.sheets.getByName("Számítás")
szabadsag = document.sheets.getByName("Szabadságengedély")
File_URL = "file:///C:/Mentés/2016/Számítás.ods"

 FileProperties(0).Name = "Hidden"
     FileProperties(0).Value = True
     
rem ----------------------------------------------------------------------
rem ----------------------------------------------------------------------
rem cellák definiálása

rem ----------------------------------------------------------------------
rem Számítás dokumentum rejtve megnyitása

oDoc_Adat = StarDesktop.loadComponentFromURL(File_URL, "_blank", 0, FileProperties()) 

Hibaüzenet a következő: Hiba történt a BASIC programozása közben.. A következő kivétel történt: Type:com.sun.star.lang.IllegalArgumentException Message:URL seems to be an unsopported one.

[Zizi64]

Ahogy már javasoltam egy párszor: használnod kellene a ConvertToURL függvényt. Az szabályos URL-t állít elő.
Az elérési útvonalat és a fájlnevet a kiterjesztéssel együtt nyugodtan állítsd össze a szokásos Windows módszerrel, de utána engedd rá a függvényt. Hogy lásd mit csinál a függvény a szöveggel, a

Kód: Egész kijelölése

Print File_URL 

paranccsal írasd ki az előtte-utána állapotot is a képernyőre (aztán persze később törölheted ezeket a parancssorokat).

[Viktor08]

Igazad van, azzal van a gond! Köszönöm a tanácsot, igen, ezentúl ki fogom íratni az URL-t.

[Viktor08]

Sajnos ma sem sikerült elég időt szánnom erre a feladatra, de abban biztos vagyok, hogy sikerül, mert már minden teljesen egyértelmű a számomra. Ahogy végigolvastam a topicot most tudatosodott bennem egy dolog:

A makródat elfelejtetted beágyazni a fájlba...

.
Az a kérdésem, hogy azt hogyan kell, mert ez még új nekem? A másik meg az, hogy ezzel átmásolva másik gépre nem kell külön átvinni a makrót is?

[Zizi64]

A másik meg az, hogy ezzel átmásolva másik gépre nem kell külön átvinni a makrót is?

Igen, ha a fájlban van a makró, akkor az megy vele együtt, és működik is, persze, ha a befolyásoló körülmények (a te makród esetében ilyen lehet az URL-ben szereplő könyvtárszerkezet) azonosak.
Ahhoz, hogy más gépen futtatható legyen egy megnyitott fájlból a benne lévő makró, a Makróbiztonság értékét legalább "közepes"-re kell csökkenteni azokon a gépeken, ahol ezt a fájlt használni akarják..
Eszközök - Beállítások - LibreOffice - Biztonság - Makróbiztonság

[Zizi64]

Az a kérdésem, hogy azt hogyan kell, mert ez még új nekem?

Mármint a fájlba beágyazni a makrót...

Ugyanúgy, mint ahogy most a Felhasználói profilba "ágyaztad be". A makrókód szerkesztésekor a képernyőn bal oldalon látod a Makrókönyvtárak és Modulok szerkezetét. Legalul látszanak az éppen megnyitott fájlok. A Szervezővel azokban is létre tudsz hozni Modulokat, és sima Ctrl-C/Ctrl-V másolással átteheted oda is a makrókat. A fájl mentésekor a bemásolt makrók is mentődnek, természetesen. A makrók akár mindkét helyen is jelen lehetnek, de zavart okozhat, ha valamelyiket elfelejted kijavítani a fejlesztés közben a legújabb verzióra.

Úgy tudom, hogy a makró futtató rendszer elsőként a fájlban keresi az adott nevű makrót, ha ott nincs, akkor a felhasználói profilban.

Másik fájlból nem futtatható a makró: egy adott fájlból csak az abban, vagy a felhasználói profilodban lévő makrókat tudod futtatni.

[Viktor08]

Most már minden világos, ahogy olvastam a leírásod azonnal előttem volt. Köszönöm!

[Viktor08]

Azt viszont kár, hogy nem vihető át a file-al együtt egy másik gépre az összes makróm, de azért számomra nem tragédia, mert csak én használom, más felhasználoknak viszont biztosan hasznos lenne.

[Zizi64]

Azt viszont kár, hogy nem vihető át a file-al együtt egy másik gépre az összes makróm, de azért számomra nem tragédia, mert csak én használom, más felhasználoknak viszont biztosan hasznos lenne.

Dehát pont azt mondom, hogy átviheted!

Csak éppen a makrókódot a fájlból másik gépen át kell másolnod a felhasználói profilba, hogy MINDEN ottani fájl elérje.