MS Excel

Dobrý den.
Mám csv soubor - data oddělena středníkem.
Při klasickém importu si můžu určit od kterého řádku chci data načíst.
Jakým způsobem by se, s použitím VBA, daly načist pouze některé položky (buňky) z řádku souboru csv?
Dá se to bez ukladání všech dat to "tabulky" a z ní pak vybirat potřebné buňky?

Zaslat odpověď >

Strana: « předchozí 1 2

GeorgeK(15.12.2021 13:50)#051746

elninoslov napsal/a:

Skúste ešte to ADO.
Ak bude treba, spravím a pošlem neskôr. Možno na večer...

Zkoušel jsem PQ, dá se několik věcí upravit/nahradit už při exportu. Zápis makra je ale na mne hodně komplikovaný.
Nevím jak by to bylo rychle při zracování, ale napdlo mne v dotazu osekat řádky a sloupce na výslednou bunku a tuhle "zapsat do...". Těchto dotazů pak spustit několik pro různé buňky... Co vy na to? :-)

Příloha: zip

51746_csvtoexcel.zip (17kB, staženo 11x)

citovat

GeorgeK(17.12.2021 9:00)#051769

eLCHa napsal/a:

@GeorgeK
Umožňuje PQ načíst data do JEDNOTLIVYCH buněk?

Přímo ne. Ale pokud nahrajete výsledek powerquery (který si upravíte třeba tak, že výsledkem bude tabulka o 1 řádku a 1 sloupci) do datového modelu bez načítání do listu, pak to lze.=CUBEVALUE("ThisWorkbookDataModel";CUBEMEMBER("ThisWorkbookDataModel";"[Measures].[Součet Sloupec11]"))

tohle už je nad mé schopnosti, s datovým modelem jsem nikdy nedělal...citovat

elninoslov(17.12.2021 10:08)#051770

@ GeorgeK: Zkoušel jsem PQ...
Ale v prílohe žiadny PQ pokus neposielate. Veď je to, čo som Vám poslal ja, nie??? To čo nežerie UTF-8. Teda tej Vašej prílohe nerozumiem.
Čo znamená, že sa obávate o rýchlosť? Koľko tisíc riadkov má to CSV? Koľko desiatok CSV súborov budete na jeden klik spracovávať? Koľko "dotazov" budete spúšťať v desiatkach klikov? Do koľkých stoviek buniek budete načítavať údaje?

EDIT:
Malý test. Cez to ADO načítam CSV o 11000 riadkoch, a z neho 60 rôznych hodnôt z rôznych súradníc do rôznych buniek za cca 0,35s

EDIT2:
A teraz ešte rozmýšľam ... Vy vždy viete číslo riadku v CSV? Nechcete Vy náhodou zisťovať nejaký údaj pána Mrkvičku na riadku X, kde má aktívnu žiadosť, alebo ešte aj inú podmienku?citovat

GeorgeK(17.12.2021 11:13)#051771

elninoslov napsal/a:

@ GeorgeK: Zkoušel jsem PQ...
Ale v prílohe žiadny PQ pokus neposielate. Veď je to, čo som Vám poslal ja, nie??? To čo nežerie UTF-8. Teda tej Vašej prílohe nerozumiem.
Čo znamená, že sa obávate o rýchlosť? Koľko tisíc riadkov má to CSV? Koľko desiatok CSV súborov budete na jeden klik spracovávať? Koľko "dotazov" budete spúšťať v desiatkach klikov? Do koľkých stoviek buniek budete načítavať údaje?
EDIT:
Malý test. Cez to ADO načítam CSV o 11000 riadkoch, a z neho 60 rôznych hodnôt z rôznych súradníc do rôznych buniek za cca 0,35s
EDIT2:
A teraz ešte rozmýšľam ... Vy vždy viete číslo riadku v CSV? Nechcete Vy náhodou zisťovať nejaký údaj pána Mrkvičku na riadku X, kde má aktívnu žiadosť, alebo ešte aj inú podmienku?

Ano, přiloha je ta "stará" - jen je přidaný vzorový csv soubor a uprava cesty k souboru. PQ jsem si zkoušel jen tak ..mimo :-)
Raději bych vynechal PQ, protože táto akce/makro by měla pracovat ještě nějaký ten rok a nedělám si iluze o znalostech mých následníků - čili klidně pomalejší ale jednodušší /srozumitelnější kod.
CSVsoubor plynule narůstá, neumazává se. během roku přibude asi 1000řádků. Z tohoto souboru vytahuji VŽDY jeden řádek (obvykle první, ale chtel bych mit tuto položku volitelnou (v reálu asi mezi 1-10))
Ten váš původní kód je dostačující jen ta čeština. Pokud by to šlo s využitím ADO/FSO aby to korektně zpracovalo UTF-8 uplně by to stačilo. I ten nápad s tabulkou "KamCoZapsat" je výborný - uživatelsky přehledný a umožnuje změny.
Díky za váš minulý i budoucí čas

citovat

elninoslov(17.12.2021 15:00)#051773

?:
Takže súbor je iba jeden? Pár 10000 riadkov? Takže nemusí sa v súbore hľadať nejaký riadok napr. s určitým menom apod. ? Potrebujete naraz načítať dáta iba z 1 súboru? V tom prípade je to brnkačka.

UTF-8:
Open ani FSO Vám to UDF-8 nezožerie. Preto existuje táto finta s ADO. Čo je na tom kóde zložité? Keď prídem popíšem Vám ho.

PowerQuery:
Rozhodne by som ho na Vašom mieste nazavrhoval. PQ môže byť predsa tiež rovnako parametrizované. Vy ste tuším nechcel, aby sa Vám do Excelu načítala nejaká Tabuľka, ale prečo je to problém? Veď môže byť na skrytom liste, PQ do nej načíta iba parametrizované dáta, nie všetky. A ľahko si ich vzorcom vytiahnete do buniek.

Možno večer...citovat

GeorgekBezHesla(17.12.2021 21:19)#051774

elninoslov napsal/a:

?:
Takže súbor je iba jeden? ANO Pár 10000 riadkov? ano Takže nemusí sa v súbore hľadať nejaký riadok napr. s určitým menom apod. ? NE Potrebujete naraz načítať dáta iba z 1 súboru? ANO V tom prípade je to brnkačka.

UTF-8:
Open ani FSO Vám to UDF-8 nezožerie. Preto existuje táto finta s ADO. Čo je na tom kóde zložité? Keď prídem popíšem Vám ho.
DÍKY
PowerQuery:
Rozhodne by som ho na Vašom mieste nazavrhoval. PQ môže byť predsa tiež rovnako parametrizované. Vy ste tuším nechcel, aby sa Vám do Excelu načítala nejaká Tabuľka, ale prečo je to problém? Veď môže byť na skrytom liste, PQ do nej načíta iba parametrizované dáta, nie všetky. A ľahko si ich vzorcom vytiahnete do buniek.
Moc jsem s PQ nedělal, tak nevím jak se dá zapracovat do VBA...
Možno večer...

citovat

elninoslov(18.12.2021 1:44)#051776

Dnes som mal žiaľ neplánovaný online zásah cca 5 hod. Nestíham. Zatiaľ som popísal len makro. Pridal som ošetrenie chýb a výpis výsledkov. Lepšie popisovať neviem. Nie som učiteľ.
PQ musí ešte počkať...

Příloha: zip

51776_csvtoexcel.zip (32kB, staženo 15x)

citovat

GeorgekBezHesla(18.12.2021 18:53)#051779

elninoslov napsal/a:

Dnes som mal žiaľ neplánovaný online zásah cca 5 hod. Nestíham. Zatiaľ som popísal len makro. Pridal som ošetrenie chýb a výpis výsledkov. Lepšie popisovať neviem. Nie som učiteľ.
PQ musí ešte počkať...Příloha: 51776_csvtoexcel.zip (32kB, staženo 1x)

DIKY, STACI PO VANOCICHcitovat

GeorgeK(28.12.2021 12:36)#051797

elninoslov napsal/a:

Dnes som mal žiaľ neplánovaný online zásah cca 5 hod. Nestíham. Zatiaľ som popísal len makro. Pridal som ošetrenie chýb a výpis výsledkov. Lepšie popisovať neviem. Nie som učiteľ.
PQ musí ešte počkať...Příloha: 51776_csvtoexcel.zip (32kB, staženo 4x)

Díky moc, elninoslov
funguje rychle, spolehlivě, česky..
Díky za dokonalý popis.
Do nového roku Vám přeji hlavně zdraví a trochu toho štěstí a zůstaňte i nadále aktivní na tomto webu.

citovat

Strana: « předchozí 1 2

Téma: Data z CSV souboru

Uživatelské menu

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Aktivní diskuse

Makro smyčka

Makro smyčka

Čas od do

Čas od do

Čas od do

Čas od do

Čas od do