Nejjednodušší způsob je nahrát si makro, které to provede (Příkaz Nahrát makro) a pak jej přiřadit k tlačítku formuláře.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra VBA
< návrat zpět
Téma: export dat do .csv,.tx
MS Excel
Téma: export dat do .csv,.tx 
Zaslal/a zuzu 29.6.2010 20:25
Zdravím,
potřebovala bych poradit, jakým způsobem převedu z excelu vybraný jeden sloupec do souboru txt.,csv, tak aby to šlo pomocí tlačítka. 
Děkuji za odpověď.Takže pokud mám soubor,který přikládám v příloze a potřebuji,aby se mi veškeré hodnoty ze sloupců A,C a E dostaly do .txt tak pro nahrání makra označím je buňku např.A?Nebo musím označit všechny hodnoty v tom sloupci?Má představa je taková,že po zmáčknutí tlačítka export se mi automaticky všechny hodnoty z těch tří sloupců přesunou do txt souboru.Aby ten příkaz tam byl daný natrvalo a nemusela pokaždé nahrávat znovu makra...
Příloha: 
1897_marze-family.zip (45kB, staženo 30x)
citovat1897_marze-family.zip (45kB, staženo 30x)Takhle to nepůjde. Excel neumí takto jednoduše uložit vybrané sloupce do txt souboru.
Lze to vyřešit celkem elegantně, kde si vytvoříte list s Vámi vybranými sloupci (tedy A, C a E) a tento list pak pomocí dialogu uložíte do txt.
Pro Vaše makro přiřadíte:
jmenoTXT = "prevod" 'jméno listu ve kterém jsou vybrané sloupce - tento list samozřejmě musíte vytvořit
jmeno = ActiveSheet.Name
jmenoSouboru = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
If jmenoSouboru <> False Then
Sheets(jmenoTXT).Select
ActiveSheet.SaveAs Filename:=jmenoSouboru, FileFormat:=xlTextMSDOS, CreateBackup:=False
Sheets(jmeno).Select
End Ifcitovat
Lze to vyřešit celkem elegantně, kde si vytvoříte list s Vámi vybranými sloupci (tedy A, C a E) a tento list pak pomocí dialogu uložíte do txt.
Pro Vaše makro přiřadíte:
jmenoTXT = "prevod" 'jméno listu ve kterém jsou vybrané sloupce - tento list samozřejmě musíte vytvořit
jmeno = ActiveSheet.Name
jmenoSouboru = Application.GetSaveAsFilename(fileFilter:="Text Files (*.txt), *.txt")
If jmenoSouboru <> False Then
Sheets(jmenoTXT).Select
ActiveSheet.SaveAs Filename:=jmenoSouboru, FileFormat:=xlTextMSDOS, CreateBackup:=False
Sheets(jmeno).Select
End Ifcitovat
Excel toho naopak umí spustu, ale záznamem makra nelze docílit čehokoliv - občas je nutno si to napsat posvém. V příloze je export sloupců 1,3 a 5 - lze upravit. Název souboru je na uživateli - výchozí je název listu.txt, přidal jsem i možnost zadání oddělovače (výchozí je středník).
Snad je to tak OK.
M@
Snad je to tak OK.
M@
Příloha: 1905_marze-family.zip (48kB, staženo 102x)
citovat1905_marze-family.zip (48kB, staženo 102x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články