Přeskočit navigaci | Přeskočit na novinky
     

Jste zde: Úvodní stránka » excel » vba-triky » vba-excel-csv-oddelovac-strednik

VBA Export do csv - oddělovač středník

Videokurzy Excel

Ve spolupráci se SEDUO jsem vytvořil několik videokurzů:

jak zajistit ať Excel exportuje do *.csv a jako oddělovač použije středník?

Úvodem

Klasické uložení ActiveWorkbook.SaveAs do csv způsobí, že se jako oddělovač použije čárka. Což je pro české končiny nevýhodné. Jak donutit Excel používat středník?

Řešení

Je jednoduché, musíme jen ve VBA Excel říci ať použije národní rpostření pomocí příkazu:

Local:=True

Takže řešení může vypadat takto:

ActiveWorkbook.SaveAs Filename:="D:\moje-csv.csv", FileFormat:=xlCSV, Local:=True

Závěrem

Snad Vám tato rada pomůže stejně jako pomahla mně.

Článek byl aktualizován: 01.11.2014 14:41

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.


Pavel Lasák - autor webu

Pavel Lasák

Microsoft Office (Word, Excel, PowerPoint) se věnuji od roku 2000 (od 2004 ne této doméně) - Roku 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici také na on-line videích pro SEDUO. Školím a konzultuji, učím na MUNI. Hlavně tvořím tento web. Je zde k dispozici přes 1.000 návodu, tipů a triků včetně stovek různých šablon, sešitů.

   Pavel Lasák LinkedIn Profil    Pavel Lasák Google+ Profil    Pavel Lasák facebook Profil    Pavel Lasák twitter Profil


Komentáře


mung

Přidáno: 06.06.12 13:47

pořád problém - local:=true bez úspěchu, odddělovač čárka a dokonce desetinný oddělovač tečka. Nemáte někdo další tip? dík M.

Pavel Lasák

Přidáno: 06.06.12 19:50

To Mung: Kterou verzi Excelu používate?

mung

Přidáno: 07.06.12 15:20

Zdravím, testováno na W7/MSO2010 a WXP/ MSO2003. chová se mi podivně - při prvním běhu se nastavení local projeví a oddělovače jsou OK. Při dalším spuštění se vše vrátí ke starému :-( Místní nastavení, je OK. ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & "vysledek_premie.dat", FileFormat:=xlCSV, CreateBackup:=False, Local:=True

mung

Přidáno: 07.06.12 15:25

BTW - díky za stránky - lovím v nich celkem často :-)

Pavel Lasák

Přidáno: 07.06.12 21:18

to mung: Můžete poslat ukázku? Výše uvedený kód na mém PC funguje Win7/Office CZ 2010. Díky :-)

KKader

Přidáno: 20.07.12 11:39

Taky jsem se touto problematikou zabýval a řešil ji a použil jsem toto (je to na 3 sloupce, ale v příkazu PRINT lze připojit libovolný počet sloupců, podle naznačeného alegoritmu): log_out = FreeFile(1) Open cil For Output As #log_out Sheets("List_data").Select Range("a1").Select radku = Range("pocet_dokladu") POCET = 0 For POCET = 0 To radku Rem Print #log_out, Selection.Offset(0, sloupec).Value & ";" & "", Print #log_out, Range("a" & ActiveCell.Row).Value & ";" & Range("b" & ActiveCell.Row).Value & ";" & Range("c" & ActiveCell.Row).Value & ";" ActiveCell.Offset(1, 0).Select Next POCET Close #log_out

Jakub

Přidáno: 19.02.14 11:14

Řešil jsem stejný problém. Pomohlo toto: With ActiveWorkbook .SaveAs Filename:="My File.csv", FileFormat:=xlCSV, Local:=True .Close False End With

Honza

Přidáno: 24.02.14 20:03

Dobrý den, chtěl bych Vás poprosit o radu. Potřebuji uložit tabulku jako .csv s oddělovačem ";" a kódování UTF-8. Středník je zde vysvětlen, bohužel nevím, jak pomocí VBA nastavit UTF-8 jako kódování textu. Děkuji za případné odpovědi.

Mirek

Přidáno: 23.08.14 11:56

Dobrý den, prosím o radu - hodnoty z listu A4 tisknu přes makro - první (horní) 1/4 se tiskne na první příkaz, zbylé 3/4 na druhý. Nemůžu horizontálně vystředit druhou část tak, aby byla na místě, kde je v úplném listu (je výše, než by měla). Tedy, jak posouvat blok tisku v makru horizontálně. Děkuji

Paja

Přidáno: 26.08.14 08:00

Zdravíčko, nevíte prosím jak uložit naplněné pole (array) rovnou do csv? Díky

Local:=True

Přidáno: 08.02.16 15:43

Zdravim, mam ten samy problem v office 2016. Local:=True mi nefunguje. Nejaka moznost ako to zmenit? Dakujem pekne za pomoc.







Sdílejte

Pomohl Vám návod?
Sdílejte na Facebooku, G+
LinkedIn...

Nové články


Newsletter

Přihlaste se odběru novinek a získejte:
Ebook zdarma -
10 kroků ke zvládnutí (Word, Excel, PowerPoint)
Šipka Kniha 3D Více o ebooku ...

TOPlist Licence Creative Commons webarchiv rss XML

Stránky o MS Office (Excel) produktu společnosti Microsoft. Neslouží jako technická podpora.
| Email na autora: pavel.lasak@gmail.com | Copyright © : Pavel Lasák 2004 - 2017 | 11225

Tento web zatím neprošel jazykovou korekturou. Beta verze redakčního systému.