< návrat zpět

MS Excel


Téma: export hodnot do file.CSV makrem rss

Zaslal/a 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

Zaslat odpověď >

#026413
avatar
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
icon #026417
avatar
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.htmlcitovat
#026434
elninoslov
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: rar26434_export.rar (19kB, staženo 50x)
citovat

Uživatelské menu

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

Menu

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.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09