Příspěvky uživatele
< návrat zpět
A zapomněl jsem ještě, že číselné hodnoty s desetinou čárkou převede na tečku, což také nechci.
Pokoušel jsem se použít formát .dif, ten sice neignoruje sloupce, ale problém s interpretací čísel (záměna čárek za tečky) zůstal. Pak to opětovně načítá Excel jako datum.
CSV jsem chtěl použít pro jeho malou velikost a následné další zpracování v SQL. zkušenosti s .dif formátem nemám.
nedíval jsem se na přílohu, ale odpověď na otázku "zda makra nebo funkce".; obojí je možné, ale přes makra to bude elegantní a rychlejší
Řeším, export hodnot z xls souboru do data.csv pomocí makra. Resp. hodnoty kopírovat a vložit na konec v data.csv.
Ručně není problém. Pomocí makra se ale vloží všechny hodnoty jen do jednoho sloupce a oddělí čárkou.
Jak na to vyzrát?
Sub Makro()
Sheets("DATA_OUT").Select 'list s daty, která chci exportovat
Range("A1:B1").Select
Range(Selection, Selection.End(xlDown)).Copy
Workbooks.Open Filename:="X:\data.csv"
Windows("data.csv").Activate
Sheets("data").Select 'csv soubor má jeden list "data"
LastRow = Range("A1048576").End(xlUp).Row + 1 'řádek první prázdné buňky ve sloupci A
Range("A" & LastRow).Select ' & ":B" & LastRow).Select
ActiveSheet.Paste 'zde jsem zkoušel vše možné a vždy se stejným výsledkem
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.Close
End sub
Uživatelské menu
\nMenu
On-line nástroje
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
RSS nejnovější články