Příspěvky uživatele


< návrat zpět

export hodnot do file.CSV makrem (25.8.2015 20:18)

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.

Data z více listů do jednoho listu v souboru (25.8.2015 20:09)

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ší

export hodnot do file.CSV makrem (25.8.2015 20:05)

Ř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

Nejste přihlášen(a)
avatar\n

Menu

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.

On-line nástroje