Excel: uložení vybraných do nového csv souboru

řeším to dřevorubecky: zájmové oblasti nechávám odkazy přenést na další list a tento celý ukládám do .csv
případné makro by s tímto export-listem mělo asi míň práce než s výběrem buněk.

Taky si shromažďuji veškerá data z různých míst sešitu na jednom listu, pěkně pod sebe do jednoho sloupečku, abych to mohl snadno kopírovat. Činím tak ručně, rád bych to zautomatizoval na "tuk na buttonek".

Export do csv z listu z Excelu bohužel přidá na ty moje dva řádky úvozovky dopředu a dozadu, což bych musel odstraňovat ručně.

-----

Ale teď vidím, že na to jdu asi zbytečně složitě. Že bude lepší mít jednotlivé údaje v samostatných sloupcích. Jdu to zkoušet..

možná kdyby excel pochopil, že ty hodnoty jsou číslo, exportoval by je bez uvozovek.

Uvozovky vyřešeny, pokud nenechám všechny hodnoty, které chci exportovat, slučovat (concatenate) do jednoho sloupečku. Pokud to vytvořím jako "jedna hodnota = jeden sloupeček", uvozovky se nekonají.

No tak vytvořit *csv makrem z Excelu není problém, pokud jsou data v jednotlivých sloupečcích. Problém ale je, že výsledná *csv soubor nebosahuje ty požadované 2 řádky, ale ještě vytvoří na konci druhého řádku zalomení a tím pádem prázdný řádek číslo tři. A s tím si neporadí *pdf formulář...

Takto vypadají oba *csv.

První, jako export z *pdf, v takovém formátu by měl být i import:

Druhý, tohle leze z Excelu. Je tam zalomení a řádek navíc:

(screenshoty z Notepad++)

Zkoušel jsem to i s prostým textem (*txt), ale i tam Excel na konci "odentruje" a *pdf formulář si s tím neporadí

Něco sem zkusil výsledek viz obr. Otestuj

Nebo ještě takto:

Sub EvidenceCSV()
Dim Data As String
Dim i As Integer
Const Hlavicka As String = "firma;ulice;cislo_domu;mesto;poznamka"

Data = Join(Application.Transpose(List1.Range("C6:C10").Value), ";")

i = FreeFile
Open ThisWorkbook.Path & "\evidence" & ".csv" For Output As #i
Print #i, Hlavicka
Print #i, Data;
Close #i

Perfektní, díky moc!

Koukám na oba způsoby, oba se dají použít podle toho, kde budou zdrojová data (rozházené, ve sloupečku). Nerozumím (vidím to poprvé) jen tomu příkazu, kdy se vytvoří ten druhý soubor, tomu

i = FreeFile

Je to pro mě úplná novinka, musím to trochu naštudovat.

Tohle by přece šlo mimořádně jednoduše naprogramovat.