[Megoldva] Munkafüzet előre meghatározott néven mentése

[Viktor08]

Üdvözlök mindenkit!

A kérésem a következő: adott egy openoffice munkafüzet, amelyen belül 2 lapfül található, név szerint: Munkalap és Anyagfeladás. A feladat az lenne, hogy miután kitöltöttem a munkalapot, vagy az munkát végző dolgozó és munka leírása mellett kap egy munkalap számot és az Anyagfeladás lapfülön alul bekerül a dátum a következő formátumban kellene elmenteni mondjuk egy gombnyomásra makró segítségével: Munkalap_(munkalapszám)_(év)_(hónap). Van rá lehetőség, hogy a megfelelő cellákból elhozott adatokkal pl. egy nyomógomb beiktatásával ezt el lehessen végezni ?
Csatoltam egy minta file-t a kívánt formátumban elmentve.

A válaszokat előre is megköszönöm !

[Zizi64]

Hová kellene elmenteni?

A mintadokumentum eredeti helyére, vagy egy más, de fixen meghatározott útvonalra (path)?

Mindkettőre van lehetőség, de egész más API függvényeket kell az egyikhez és a másikhoz használni.

[Viktor08]

A mentés helye egy olyan könyvtárszerkezetbe lenne, ami lehet akár a c:\Mentés\2016\Január, majd a februári munkalapok egy Február nevű mappába kerülnének és így tovább Decemberig amennyiben ez megoldható így.

[Zizi64]

Természetesen megoldható. Neked a StoreToURL, vagy a StoreAsURL rutint kell meghívnod, a fájlnevet és a teljes URL-t (Path + Fájlnév.kiterjesztés) már össze tudod állítani a lekérdezett cellák szöveges tartalma alapján.

A vonatkozó API leírás:
https://www.openoffice.org/api/docs/com ... rable.html

Konkrét példák (Basic makrókódok) a mentési módokra:
https://wiki.openoffice.org/wiki/Saving_a_document

[Zizi64]

kap egy munkalap számot

Az hol van? Az lenne a "1/2016"?
Ez ÍGY biztos nem lesz jó: "/" jel nem lehet a fájlnévben, mert az az alkönyvtárak jelzésére való (az URL formátum nem "\" jelet használ, hanem "/" jelet!). Ki kell cserélni - mondjuk - "_" alulvonás jelre. Ezt lehet már a cellában kézzel (koncepció módosítás), vagy a makróval is végig lehet böngészni a cella string tartalmát, és kicserélni a jelet a cellából beolvasott szöveget tartalmazó változóban, mielőtt hozzáadnád az URL-hez.

[Viktor08]

Igen, a munkalap szám a "/" jel előtti rész, igazából az kell a file névhez, meg az év, de mindkettő külön cellában van. a Kívánt név pl. Munkalap 2_2016 január.ods. A "Munkalap" része az fix lenne, minden mentés ezzel kezdődne, aztán a többi a céllákból lenne kiolvasva. Elnézést kérem, az előző csatolásom egy régebbi példány, az újabban már külön van a munkalapszám, a "/" jel és az évszám.

[Zizi64]

Valami ilyesmi módon kell összeállítanod az elérési útvonalat és a fájlnevet:

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

Function Create_Fullpath()

 dim oDoc as object
 dim oSheets as object
 dim oSheet_A as object 
 dim oSheet_B as object 

	oDoc = ThisComponent  ' "megidézed" az aktuális dokumentumot az oDoc változóba. Ezután oDoc néven hivatkozhatsz rá.
	oSheets = oDoc.Sheets  ' "megidézed" a munkalapok halmazát.
	oSheet_A = oSheets.getByName("Munkalap")   ' "megidézed" a Munkalap nevű munkalapot.
	oSheet_B = oSheets.getByName("Anyagfeladás")   ' "megidézed" a Anyagfeladás nevű munkalapot.

	Fullpath = "C:\Mentés\"
	Fullpath = Fullpath + oSheet_A.getCellRangeByName("F1").string + "\" 'az évszám
	Fullpath = Fullpath + oSheet_B.getCellRangeByName("M25").string + "\" 'a hónap
	Fullpath = Fullpath + "Munkalap_" + oSheet_A.getCellRangeByName("D1").string +"_" ' a munkalap száma
	Fullpath = Fullpath + oSheet_A.getCellRangeByName("F1").string + "_"
	Fullpath = Fullpath + oSheet_B.getCellRangeByName("M25").string + ".ods"	

Create_Fullpath = Fullpath

end function

Azt nem értem, hogy ha szeparálod a fájlokat év/hónap alkönyvtárakba, akkor minek a fájlnévbe is az évszám és a hónap, de persze lehet így is...
Azt sem tudom, hogy a könyvtárakat és az alkönyvtárakat te fogod jó előre kézzel létrehozni, vagy ez is a makró dolga lenne?

más:
Nem használsz sem oldalstílusokat, sem különböző cellastílusokat. Így nehéz lesz visszaállítani a formázást, ha a felhasználó valamit elállít rajta. Továbbá néhány adatot célszerű lenne az Adatérvényesség funkcióval bevinni (pl: az évszámok) egy listából kiválasztva, mert most nincs vizsgálat: a felhasználó beírhat akár 20016-ot is...

[Viktor08]

Igen, a nevezett könyvtárakat én hoznál létre már jó előre, mási is mentenék ide, nem csak a munkalapokat, hanem minden egyéb dolgot is ami januárban esedékes (vannak még egyéb táblázataim is és néhány szöveges dokumentum is). Amit feltöltöttem csak egy kipreparált táblázat, vagy 10-15 makróval és nagyon sok függvénnyel, amit említetten évszámok az egy makró hivatott beírni a munkalapszámmal együtt egy ma() nevű függvény segítségével, mert az több helyen is szükséges, mert több lapfül is van a teljes file-ban. Arra gondoltam azt nem töltöm fel, mert értelmetlenül sok lenne, de tényleg meg van oldva, hogy hibás dolog ne kerülhessen bele, pl. az elvégzendő munkák is listában vannak és a dolgozók is ahogy írtad cell-érvényesség segítségével.

[Zizi64]

OK, értem.

Azt elfelejtettem, hogy az összeállított Path+Fájlnév+Kiterjesztés sztringet a ConvertToURL() függvénnyel át kell alakítanod URL formátumra (file://C:/... ... .ods), mielőtt a StoreToURL, StoreAsURL procedúrának átadnád.

[Viktor08]

Köszönöm a segítséget, ma már nem hiszem, hogy nekifutok, de holnap végig csinálom!

[Viktor08]

A sztringet átnéztem, az világos teljesen, de ConvertToURL() függvény még teljesen új, rá kell keresnem. Feltételezem, hogy a "Create_Fullpath = Fullpath" sor után kell átkonvertálni és akkor működik majd.

[Zizi64]

Feltételezem, hogy a "Create_Fullpath = Fullpath" sor után kell átkonvertálni és akkor működik majd.

Nem, az maradjon a függvény utolsó sora, hiszen itt adod meg a függvény visszatérő értékét. Aminek értéket adsz ebben a sorban az magának a függvénynek a neve. Hogy mit adsz neki értékként az persze változhat.
Magyarul: már itt a függvényen belül is konvertálhatod a "Path string"-et "URL-string"-gé, de én úgy gondoltam, hogy ezt a függvényt meghagyod ebben a formában kizárólag arra a célra, hogy összeállítsa az "Elérési útvonal + Fájlnév + Kiterjesztés" szöveget, a többi dolgot már ezen a függvényen KÍVÜL kell megtenned: abban a szubrutinban, amelyben MEGHÍVOD ezt a függvényt. Ott viszont valóban UTÁNA (miután a függvény visszaadta az ő szöveges értékét) kell a konverziót végrehajtani. Nem szükséges annak az egyetlen utasításnak (amely maga is egy függvény) külön saját függvényt készíteni, de én most így mutatom:

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

Function Create_URL(File_FullPath as string)

	Create_URL = ConvertToURL(File_FullPath)
end function

Működése: Ha a "Path+Filenév+Kiterjesztés" stringet átadod ennek a függvénynek, akkor eredményképpen a már közvetlenül használható URL-t fogod kapni.
Az URL nem használ közvetlen UNIKÓD ékezetes betűket és jeleket, azokat egyfajta kódolással tartalmazza az eredmény:

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

file:///C:/Ment%C3%A9s/2016/janu%C3%A1r/Munkalap_2_2016_janu%C3%A1r.ods

Ha ezek után a végrehajtod a mentést (StoreTo/As...), akkor az elmentett fájl neve a HDD-n persze már a magyar betűket fogja tartalmazni...

(Gyakorlatilag az URL formátumú (útvonal+fájnév) biztosítja azt, hogy ne csak Windows operációs rendszeren működjön a makród: Mert "visszaper" "\" jelet nem használ más grafikus operációs rendszer (a MS DOS persze használt), illetve az ékezetesek mindig gondot okoznak, erre találták ki ezt a megoldást (azt hiszem) az Internet és egyéb hálózatok számára.
A "File:" előtag helyett a neten (általában) a "Http:" előtaggal találkozol. De állhatna ott "Ftp:" is meg talán még egyéb előtag is. Itt, most a "File:" előtagra van szükséged.)

[Viktor08]

Egy ilyen sort illesztettem be:

Create_Fullpath = ConvertToURL(Fullpath)

Gondolom ezek után következik a mentés kivitelezése.

[Zizi64]

Igen. De erre már adtam a linkekben mintapéldát.

[Viktor08]

Köszönöm, átnézem a linkeket.

[Viktor08]

Azt hiszem sikeresen elveszettem a fonalat StoreTo/As függvénnyel kapcsolatosan...

[Viktor08]

Megköszönöm ha valaki tud ebben segíteni!

[Zizi64]

Röviden:

A "StoreAsURL" képes a SaveAs típusú mentésre: azaz a képernyőn látható dokumentum továbbszerkesztése során tulajdonképpen a frissen elmentett dokumentum fog változni, és nem az amit eredetileg megnyitottál. Az eredetileg megnyitott példány a legutóbbi mentés állapotában "elszakad" a mentés pillanatában az újtól; és a képernyőn látható, immár esetleg új nevű dokumentumfájlba a mentés pillanatában fennálló állapot kerül. Az eredeti példányt ilyenkor akár újra megnyithatod szerkesztésre, az már egy független példányként él tovább.

Ezzel szemben a "StoreToURL" eljárás az exportálást jelenti: képződik egy új elmentett dokumentum a mentés pillanatában fennálló állapotról, de a továbbszerkesztés nem az újonnan mentett dokumentumra hat, hanem az eredetileg megnyitottra. A frissen mentett pillanatkép "elszakad" az aktív dokumentumtól. Az export lehet pdf, idegen szerkeszthető formátumú, vagy akár natív (ODF) fájlformátumú is. A szerkeszthető exportot persze bármikor megnyithatod továbbszerkesztésre, de az már egy független példány lesz az eredetitől.

A különbség tehát abban van, hogy ami a képernyőn marad, az a régi, vagy az új fájlnevű/állapotú dokumentum lesz.
Export (StoreToURL) esetén a régit szerkeszted tovább, és az újat eltárolva megtalálod a háttértáradon, SaveAs (StoreAsURL) esetén az új lesz a képernyődön és a régit találod meg a háttértáradon, ha azt is meg akarod nyitni (valamivel).
Különbség még az is, hogy az export olyan fájlformátumot is képes létrehozni, ami nem szerkeszthető tovább könnyedén az adott Open/LibreOffice alkalmazással (pl.: pdf export, kép export, stb...).

Mindkét esetben be kell állítanod a parancs végrehajtása előtt kimeneti szűrőt: hogy milyen fájlformátumba kell konvertálni és menteni (vagy csak menteni) az eredeti fájlodat; és még egyéb paramétereket is : jelszóval védett legyen-e az eredmény, stb...

De mindez jó le van írva az API dokumentumban, és rengeteg példát lehet találni az angol nyelvű fórumon is. Sajnos a régebbi angol fórum már nem él, ott még több példa volt. De Andrew D. Pitonyak OOo Macros Explained (third edition) című ingyenesen elérhető leírása Bibliának számít ebben a témában:
https://www.google.hu/url?sa=t&rct=j&q= ... 1844,d.bGg

[Viktor08]

Nagyon örülök a "StoreAsURL" és "StoreToURL" közötti különbség tisztázása kapcsán, így sokkal tisztább minden! Köszönöm!

[Viktor08]

A következőképpen oldottam meg végül, tudom egy kicsit átvariáltam a változók nevét, de lényegén nem sokat változtattam:

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

sub Mentes_maskent

 dim Doc as object
 dim Lapok as object
 dim Lap_M as object 
 dim Lap_A as object 
 
 dim Fullpath as string
 dim MentesUrl as string

 
   Doc = ThisComponent  ' "megidézed" az aktuális dokumentumot az oDoc változóba. Ezután oDoc néven hivatkozhatsz rá.
   Lapok = Doc.Sheets  ' "megidézed" a munkalapok halmazát.
   Lap_M = Lapok.getByName("Munkalap")   ' "megidézed" a Munkalap nevű munkalapot.
   Lap_A = Lapok.getByName("Anyagfeladás")   ' "megidézed" a Anyagfeladás nevű munkalapot.
   
   Fullpath = "C:\Mentés\"
   Fullpath = Fullpath + Lap_M.getCellRangeByName("F1").string + "\" 'az évszám
   Fullpath = Fullpath + Lap_A.getCellRangeByName("M25").string + "\" 'a hónap
   Fullpath = Fullpath + "Munkalap_" + Lap_M.getCellRangeByName("D1").string +"_" ' a munkalap száma
   Fullpath = Fullpath + Lap_M.getCellRangeByName("F1").string + "_"
   Fullpath = Fullpath + Lap_A.getCellRangeByName("M25").string + ".ods"  
   
   MentesUrl = ConvertToUrl(Fullpath)
   
   Doc.storeAsURL(MentesUrl,Array())
   
end sub

[Viktor08]

Köszönök minden segítséget!

Valószínűleg nem a legtökéletesebb lett, de ha valakinek van jobb megoldása, azt szívesen veszem!

[Zizi64]

Az Array() paraméter most - úgy látom - üres. Abban tudod megadni, hogy milyen módon kell menteni a dokumentumot.

Egyébként minden változót deklaráltál, kivéve ezt az Array()-t. Elhagytad az "o" előtagot a változónevek elől, ami nem baj, de azért szokás így jelölni az Object típusú változókat, hogy a "Dim" sorok megtekintése nélkül a kód bármely részében felismerd, hogy objektum típusú változóról van szó.
Az "o" használata persze nem jelent automatikus típusdeklarációt, azt neked kell beírni, ahogy most is tetted. Ha nem teszed meg, akkor a modul elején alkalmazott "Option Explicit" direktíva hatására a futtatáskor hibát jelez az interpreter. Ez a gyakorlott és a kezdő programozó számára is előnyt jelenthet, de ha magabiztosan kezeled már a változótípusokat, akkor bosszantó is tud lenni.

Analóg módon az Integer típusú változókat "i" előtaggal szokás jelölni, a String típusúakat "s" előtaggal... stb.

Ja, és itt a fórumon használd a "code" TAG-et a programkódok megjelenítésére, ahogyan most kijavítottam a kódod kinézetét.

[Viktor08]

Köszönöm a hozzászólást, ebből is tanulhattunk. Az Array() paraméterében meg lehet adni pl. a mentés formátumát (olyasmiről olvastam, hogy pl. ms excel különböző verzióinak megfelelő formátumban, vagy akár .pdf-ben is). A gyakorlatban nem próbáltam ki, csak olvastam róla.

[Zizi64]

Ha sokat kell kódolnod, és szeretnéd a használt objektumokat megvizsgálni, akkor célszerű telepítened az Xray Tool kiterjesztést (ami nem is valódi .oxt kiterjesztésként, hanem egy dokumentumba ágyazott makróként érhető el):
http://bernard.marcelly.perso.sfr.fr/index2.html

vagy az MRI kiterjesztést:
http://extensions.services.openoffice.o ... ction-tool

Jómagam az Xray Tool-t ismerem és használom.