Kdyby nekdo resil podobny problem, tak vyber podadresare relativne k dokumentu resim timto kodem:
If Not GlobalScope.BasicLibraries.isLibraryLoaded("Tools") Then
GlobalScope.BasicLibraries.loadLibrary("Tools")
End If
sFilePath = ConvertFromURL(DirectoryNameOutOfPath(ThisComponent.getURL(),"/")) & "\uzivatele\"
A vyber nejaktualnejsi verze souboru (jinymi slovy abecedne posledni soubor) takto:
sNextFile = Dir(sFilePath,0)
While sNextFile <> ""
sFileName = sNextFile
sNextFile = Dir
Wend
Nakonec se jen cesta k souboru slozi ze 2 promennych:
sFilePath = sFilePath & sFileName
Jeste jednou dekuji za pomoc! Bez Vas by mi to zabralo mnohem vice casu.
]]>Pokud otevrenym nebo zavrenym souborem myslite CSV soubor, tak ten bude vzdy zavreny.
Tento import je jen pocatek. Sesit bude muset umet dalsi veci, ktere mi zatim nejsou uplne zname... Kazdopadne tady je sesit, se kterym prave zacinam. Zatim si to predstavuji tak, ze na prvnim listu "Akce", by melo byt tlacitko "Importovat uživatele", po jehoz stisknuti dojde k importu CSV souboru. V idealnim pripade by uzivatel nemel byt obtezovan zadnym dialogem s vyberem souboru, ale mel by se automaticky importovat CSV soubor, ktery vyhovuje urcitym pravidlum a nachazi se ve stejne slozce jako samotny sesit. A data by mela byt importovana na druhy list "Uživatelé", viz sesit...
CSV soubor se bude jmenovat napriklad takto: nejaky-text-bez-podtrzitka_uzivatele_2014-03-29_12-10-36.csv. Takovych souboru bude nekolik a ja bych potreboval, aby byl automaticky importovan nejaktualnejsi z nich (at uz podle casu vytvoreni v nazvu souboru nebo podle atributu vytvoreno ve vlastnostech souboru) a zaroven soubor obsahujici slovo "uzivatele".
Toto uz je ale dalsi problem. Kdybyste se podival na ten import, byl bych velmi rad.
Priklad CSV souboru:
1;Karel;2014-03-11;0:13:21
2;Pepa;2014-03-12;1:00:00
3;Franta;2014-03-13;65279:59:59
Když by to bylo opravdu makro, potřebujete vědět, zda se bude importovat ze zavřeného, nebo otevřeného souboru.
Náhodou dělám zrovna něco podobného, takže když sem dáte URL a název sešitu jak to má vypadat (na který list) a z čeho (Calc, CSV...) tak Vám to udělám.
]]>Importovany soubor muze byt ve formatu CSV, XML, HTML nebo treba i v jinem formatu. (Tedy v jednom z nich, nemusi podporovat vsechny. Nevim, ktery format je pro tento ucel nejvhodnejsi.)
V souboru budou zaznamy, ktere obsahuji ID, jmeno, datum a cas. (Cas ve formatu: libovolny_pocet_hodin:minuty:sekundy. Takze ne 0-23 hodin, ale klidne 40 hodin.)
A ja bych potreboval mit nekde v sesitu tlacitko, po jehoz stisknuti se zaznamy ze souboru importuji na dany list.
Mohl by mi nekdo prosim poradit, jak na to? V makrech se moc nevyznam a v OpenOffice uz vubec ne.
]]>