Makrá nahrané v OO.o fungujú, ide iba o to, čo nahrávate. A prečo "zúfalý" editor Basicu?
]]>Mezi námi, já bych ani makro nahrané v MS Office k pracovním účelům nepoužil, dokud bych se nepodíval do kódu, co opravdu dělá. Máte pravdu, že v MS Office funguje záznam maker velmi dobře, v OOo o dost hůř.
Editor Basicu v OOo je jednoduchý, neřekl bych zoufalý; záznam maker je nedokonalý, ale alespoň napoví co a jak. Každopádně spoustě lidí nebrání vytvářet solidní makra a doplňky, takže o zoufalství bych nemluvil :-)
]]>Pokud jde o nabidku JPastierika: nerad se z diskuse odklanim k soukromym mailum, to pak nepomuze nikomu dalsimu a tim ze si zadam napsani makra na zakazku se nic nenaucim. Pokud to budu chtit na komercni ucely tak neni problem zaplatit, ale program ktery umi nahrat makra aktera nasledne nefunguji, nemam odvahu pouzivat k pracovnim ucelum a to mam OpenOffice.org docela rad.
Obecny dotaz: bude se vyhledove delat neco s tim zoufalym editorem Basicu?
]]>REM zjištění (první) oblasti tisku
dokument = ThisComponent
vyber = dokument.currentselection
list = dokument.sheets(vyber.rangeaddress.sheet)
oblast_tisku_start_col = list.PrintAreas(0).StartColumn
oblast_tisku_start_row = list.PrintAreas(0).StartRow
oblast_tisku_end_col = list.PrintAreas(0).EndColumn
oblast_tisku_end_row = list.PrintAreas(0).EndRow
REM vytvoření a uložení sešitu jako XLS
novy_soubor = StarDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, Array())
sPath = "/home/username/tmp/" - Linux
sPath = "C:\Dokumenty\"
sFileName = dokument.getSheets.getByIndex(0).getCellRangeByName("A1").getString
sFileExtension = ".xls"
sSaveToURL = ConvertToURL(sPath & sFileName & sFileExtension)
args6(0).Name = "FilterName"
args6(0).Value = "MS Excel 97"
novy_soubor.storeAsUrl(sSaveToURL, args6 )
novy_soubor.Close(true)
pro export do PDF je v předchozím nutno upravit:
sFileExtension = ".pdf"
args6(0).Value = "calc_pdf_Export"
novy_soubor.storeToUrl(sSaveToURL, args6 )
TO hanus: Odmena - napr. pre mňa stačí poslať príspevok na otvorený účet liberixu a do správy pre príjemcu uviesť moje meno - takýto príspevok pôjde mne osobne. Máte pravdu - zadarmo neprogramujem ani ja, všetky rozšírenia, ktoré sú tu zverejňované hradí liberix a je to priamo závislé od príspevkov.
]]>To makro nebude moc složité, jen je potřeba znát UNO objekty pro volání odpovídajících operací, což vyžaduje velkou praxi nebo hodně hledání na internetu. Pokud to máte pro firemní účely, asi by se slušelo nabídnout zde odměnu - ani s vaší lopatou vám sníh zadarmo těžko někdo odhází :-)
]]>Bylo by to makro moc slozite? Nazvy souboru bych resil az v dalsi fazi, v prvni rade je dulezity ten vystup do XLS.
]]>Idealni by byla moznost nastavit automaticky nazev vystupniho souboru z klice pouziteho v jedne bunce+aktualniho datumu ve formatu YYMMDDHH a cisla/verze od 1 do 999.
Nasel jsem doplnek do OOo ale tam se musi rucne psat nazev souboru, exportuje do XLS vsechno vcetne vzorcu a vypoctu a nahrane makro v OOo mi spise nefunguje nez funguje.
V makrech jsem naprosty zacatecnik. V excelu si umim upravit nahrane makro, ale v OOo mi vetsinou nefunguji ani makra naklikana pomoci pruvodnce. Export PDF neni az tak dulezity, nejdulezitejsi je ten XLS.
Dekuji
MyLanek