list do csv

[venca.nemec]

Zdravím,
potřebuji poradit s uložením listu z Excelu do formátu csv. Pokud to udělám jako jednotlivé kroky, je to OK, ale když stejné kroky zaznamenám jako makro a to pak pustím, jsou hodnoty v souboru odděleny čárkou a nikoliv středníkem a v číselných polích je použita tečka, jako oddělovač desetinných míst. Dokáže mi někdo poradit?

Děkuji

[Reklama]

[mike007]

Můžeš sem, prosím, nakopírovat makro, abych mohl zjistit, kde je chyba?

[Zdeněk61]

Také jsem před časem řešil ten samý problém. Řešení není sice moje
(našel jsem ho na webu), ale funguje. Snad ti taky pomůže.

Do skriptu kde ukládáš soubor přidej parametr "Local"

ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\xxyy\Plocha\test-makra.csv", FileFormat:=xlCSV, _
CreateBackup:=False, Local:=True

[mike007]

Zdeněk61: Tohle makro pouze uloží dokument do CSV. Nijak ale neřeší problém s formátem dat ...

[Zdeněk61]

Nechci zbytečně polemizovat (je mi to celkem jedno), ale nevím kdo z
nás nepochopil původní dotaz. Zmíněné makro bez parametru "Local:=True"
uloží list excelu do souboru *.csv, kde oddělovače nejsou středníky, ale čárky a
desetinné čárky konvertuje na tečky (není respektováno nastavení windows).
Stejné makro s parametrem "Local:=True" vytvoří soubor *.csv, kde je respektováno
nastavení windows (oddělovač středník a oddělovač desetinných míst čárka.
Pokud dobře čtu, tak o to tazateli šlo.

[mike007]

No možná máš nakonec pravdu, uvidíme, zda to pomůže. Pokud ne, budu potřebovat vidět makro, které používá.

[zuzulak]

Zdravim,

měla bych dotaz.Mám soubor (viz příloha),kde hodnoty z listu jedna,konkrétně jen sloupec A,C a E potřebuji dostat do csv,popř.txt.
Mělo by to fungovat tak,že vedle bude funkční tlačítko,které mi po kliknutí exportuje dané hodnoty do textového souboru.
Můžete mi s tím někdo poradit?S makry nějak nepracuju,a tak v tom mám hokej Taky by mě ještě zajímalo, jaký příkaz řeší to,aby se hodnoty ve sloupci A např.00003 zobrazovaly po exportu do textového souboru pouze třímístně, tedy 003.

Děkuji předem za rady :-)

[zuzulak]

ještě připomínám,že mám ofice 2000...

[zuzulak]

Zdravim,

měla bych dotaz.Mám soubor (viz příloha),kde hodnoty z listu jedna,konkrétně jen sloupec A,C a E potřebuji dostat do csv,popř.txt.
Mělo by to fungovat tak,že vedle bude funkční tlačítko,které mi po kliknutí exportuje dané hodnoty do textového souboru.
Můžete mi s tím někdo poradit?S makry nějak nepracuju,a tak v tom mám hokej Taky by mě ještě zajímalo, jaký příkaz řeší to,aby se hodnoty ve sloupci A např.00003 zobrazovaly po exportu do textového souboru pouze třímístně, tedy 003.

Děkuji předem za rady :-)

ještě připomínám,že mám excel 2000

[navstevnik]

Podle pravidel bylo potreba zalozit nove tema.

Reseni pouzitim procedury VBA v prilozenem souboru.
Protoze neuvadis info k txt souboru, v procedure si uprav cestu a nazev souboru s exportovanymi daty v radku:

Kód: Vybrat vše

ActiveWorkbook.SaveAs Filename:="E:\excel\marze\ExportToTxt.txt", FileFormat:=xlUnicodeText

Otestuj na nekorektni stavy.

[zuzulak]

Díky moc za pomoc!!Takovou proceduru bych asi sama nevymyslela :-) Upravila jsem si v procedure cestu a nazev souboru na ActiveWorkbook.SaveAs Filename:="D:\slevy_peugeot\dms_sleva1\ExportToTxt.txt", FileFormat:=xlUnicodeText.......tam chci proste ty txt soubory ukladat!ted jeste v cem tapu je radek v procedure, ktery mi hlasi chybu (viz priloha).Spis jestli sem to teda dobre pochopila,tak je to z toho duvodu,ze pokud ja si v v listu s nazvem sheet zmenim,ze napr.u pismene K si napisu do sloupce sleva1 28,tak pomoci funkce Svyhledat se mi v listu s nazvem sheet1 zobrazi hodnoty vsude u pismene K 28.A ted tyto zmeny chci exportovat do txt,ale nemuzu,protoze mi vyskoci chyba,ze uz ten list existuje,coz je pravda to chapu.Jak tedy vyresit,aby pri zmene hodnot toto nevyskakovalo?Jde nejak napr.udelat to,ze po kliknuti na tlacitko export se mi nabidne ne list s vysledkem,ale tabulka ulozit jako,kde si vyberu,ze to chci ulozit jako txt a do dane slozky?Dekuji predem za info

[navstevnik]

Procedura exportujici zadana data vlozi pomocny list Txt, do ktereho nakopiruje pozadovane sloupce (sloupce A,C,E), pote tento list kopiruje do noveho sesitu *.xls, ze ktereho je nasledne exportovan list do souboru *.txt. Procedura pak po sobe uklizi, tj odstrani pomocny list Txt i pomocny soubor *.xls.
Takze po korektnim probehnuti procedury zustavaji pouze puvodni listy sheet a sheet1 a lze libovolne menit hodnoty na listu sheet.

Pokud prerusenim behu procedury (napr. chyba vznikla chybnym zadanim cesty nebo nazvu souboru *.txt ) nedoslo k "uklidu", je nutno pomocny list Txt odstranit (pripadne i jiny list) "rucne"; procedura je doplnena o korektni ukonceni bez chyboveho hlaseni (pouze msgbox) pri teto chybe zapricinene uzivatelem - neodstraneni pomocneho listu Txt, coz v pripade korektniho pouziti nebylo nutne.
Dale je osetren stav, kdy neni potvrzena nahrada stareho souboru *.txt.