< návrat zpět

MS Excel


Téma: Vytvoří list, když neexistuje rss

Zaslal/a 11.3.2017 20:53

Pomůže mi prosím někdo stvořit rychlé makro, které projde zadanou složku a prohledá v ní všechny .xls soubory.

V každém z nich je ve výchozím stavu buď list s názvem "listA", nebo s názvem "ListB", nebo ideálně oba.

Potřebuji, aby pokud existuje jen jeden z nich, tak v daném sešitu vytvořil chybějící list tak, že z existujícího zkopíruje sloupce A až D a pojmenuje jej podle chybějícího listu.

Cílem je tedy, aby ve složce po provedeném makru byly ve všech sešitech oba listy, jak listA, tak listB.

V ukázce je sešit, kde původně neexistoval list s názvem ListB. Takto by se měl makrem vytvořit z listuA.

Děkuji za rady

Příloha: xlsx35482_sesit1.xlsx (10kB, staženo 23x)
Zaslat odpověď >

Strana:  « předchozí  1 2
icon #035500
eLCHa
@elninoslov
Seznam listů v sešitu zjistíte pomocí ADO
connection.OpenSchema(20) '20 = adSchemaTables
Načte do RecordSet, takže máte jedniý přístup do zavřeného sešitu.citovat
#035501
elninoslov
Ja uz to mam hotove pomocou PQ. Teda zistenie listov vsetkych suborov, aj filter inych ako ListA a ListB. Len som na ceste na mobile. Ostatne veci bude treba samozrejme dorobit makrom - vkladanie listov. Len nemam pocit, ze by PQ na 5 suboroch bolo rychlejsie. Ked pridem, dam riesenie...citovat
#035527
elninoslov
Zisťovanie validných listov (pre tento prípad) pomocou PowerQuery je síce fajn hračka, ale podľa mňa je to neúmerne pomalé. Možno robím niečo zle, ale oproti ExecuteExcel4Macro je tento PQ variant 2x pomalší.

Potom teda ešte vyskúšať to ADO, to už sa mi ale fakt nechce.

Môžete pls niekto preveriť tú rýchlosť PQ?
Příloha: zip35527_pq-zisty-a-dopln-nazvy-listov.zip (28kB, staženo 20x)
citovat
icon #035533
eLCHa
ADO 7,844
XLM 7,848
PQ 17,352

Z toho mála co o PQ zatím vím mi to dává i smysl. ADO i XLM provádí v podstatě 1 operaci, kdežto PQ má sérii kroků. Ale to jen tipuji příčinu.

Mezi ADO a XLM by bylo ještě zajímavé srovnávat kontrolu a doplnění více listů. Ale na to nemám čas.citovat

Strana:  « předchozí  1 2

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

Prirazeni OnClick makra CommandButtonu pres VBA

Tex • 3.10. 1:57

Automatické dosazení KDYŽ

marjankaj • 2.10. 22:22

Automatické dosazení KDYŽ

PavelJ • 2.10. 21:54

Automatické dosazení KDYŽ

elninoslov • 2.10. 20:21

Automatické dosazení KDYŽ

PavelJ • 2.10. 19:55

Automatické dosazení KDYŽ

Stalker • 2.10. 19:23

Automatické dosazení KDYŽ

PavelJ • 2.10. 18:22