< návrat zpět

MS Excel

Téma: Data z CSV souboru rss

Zaslal/a GeorgeK 10.12.2021 12:19

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
avatar

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: zip51746_csvtoexcel.zip (17kB, staženo 11x)
citovat
GeorgeK(17.12.2021 9:00)#051769
avatar

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
elninoslov
@ 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
avatar

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 1citovat
elninoslov(17.12.2021 15:00)#051773
elninoslov
?:
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
avatar

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
elninoslov
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: zip51776_csvtoexcel.zip (32kB, staženo 17x)
citovat
GeorgekBezHesla(18.12.2021 18:53)#051779
avatar

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
avatar

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

Strana:  « předchozí  1 2

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje