MS Excel

Ř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

Zaslat odpověď >

DavidJAR(25.8.2015 20:18)#026413

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.citovat

AL(26.8.2015 0:29)#026417

Zápis do .csv sa dá úspešne riešiť pomocou statementu Open. Bližšie info napr. tu: https://msdn.microsoft.com/en-us/library/office/gg264163.aspx
Spôsob použitia potom napr. tu:http://www.homeandlearn.org/write_to_a_text_file.html citovat

elninoslov(26.8.2015 16:49)#026434

Napr.
Počíta s nerovnakým počtom riadkov v A a B, eliminuje zápis prázdneho riadku (ak niesú data), zápis robí naraz a bez úvodzoviek na začiatku a konci, ako oddeľovač som použil ";", desatinné čísla vloží s "," (teda aspoň u mňa).
PS: to vyhľadanie posledného riadku by som riešil asi cez FIND metódu, nie takto, to som si len pracovne rýchlo urobil a nechal tam.

Příloha: rar

26434_export.rar (19kB, staženo 50x)

citovat

Téma: export hodnot do file.CSV makrem

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje