• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: export hodnot do file.CSV makrem

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

Jméno
Kontrola
Text
	Ukázka

---

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

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: 26434_export.rar (19kB, staženo 50x)

citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse