< návrat zpět

MS Excel


Téma: Zase to kopírování - VBA - POMOC!!! rss

Zaslal/a 15.9.2020 10:08

Dobrý den,
procházela jsem dotazy, ale ani jeden neodpovídal přesně tomu, co potřebuji. Tak se zkusím zeptat o pomoc vás...

Mám jednu složku s názvem "xxx" a v ní centrální soubor "Sestava.xlsm" a potom 24 soborů s označením "P_*.xlsm".
Těchto 24 souborů obsahuje vždy list "HOTOVO" ze kterého potřebuji kopírovat různý počet řádků do centrálního souboru "Sestava.xlsm" na list s názvem také "HOTOVO" vždy pod sebe. Tj . zkopírují se data z jednoho sešitu, najde poslední volný řádek a data z druhého sešitu zapíše sem atd.
Při každém kopírování vždy smazat původní souhrn, protože kopírovat se budou vždy všechny řádky znovu, tak aby se neduplikovaly data.

Poradí mi prosím někdo??? :))

Zaslat odpověď >

#048009
MePExG
Toto by hravo zvládlo PQ. Bez ukážky zdrojového súboru, bez zmeny jeho štruktúry, to nedokážem zostaviť.citovat
#048010
avatar

mepexg napsal/a:

Toto by hravo zvládlo PQ. Bez ukážky zdrojového súboru, bez zmeny jeho štruktúry, to nedokážem zostaviť.


Zkouším to i přes SQL připojení, ale načítá mi to jen data z prvního sešitu BRM.xlsm a přitom pak mám ještě další dva pod ním, nevíte proč? Co mám v příkazu špatně?

Připojovací řetězec:
DSN=Excel Files;DBQ=T:\Retail\NEDOKONČENÉ ŽÁDOSTI - ESHOP\POBOČKOVÉ SESTAVY\BRM.xlsm;DefaultDir=T:\Retail\NEDOKONČENÉ ŽÁDOSTI - ESHOP\POBOČKOVÉ SESTAVY;DriverId=790;MaxBufferSize=2048;PageTimeout=5;

Text příkazu:
SELECT*FROM[HOTOVO$]UNION ALL SELECT * FROM `T:\Retail\NEDOKONČENÉ ŽÁDOSTI - ESHOP\POBOČKOVÉ SESTAVY\BRZ.xlsm`.[HOTOVO$]UNION ALL SELECT * FROM `T:\Retail\NEDOKONČENÉ ŽÁDOSTI - ESHOP\POBOČKOVÉ SESTAVY\BRR.xlsm`.[HOTOVO$]citovat
#048011
avatar

Hanesi napsal/a:

mepexg napsal/a:Toto by hravo zvládlo PQ. Bez ukážky zdrojového súboru, bez zmeny jeho štruktúry, to nedokážem zostaviť.

Zkouším to i přes SQL připojení, ale načítá mi to jen data z prvního sešitu BRM.xlsm a přitom pak mám ještě další dva pod ním, nevíte proč? Co mám v příkazu špatně?

Připojovací řetězec:
DSN=Excel Files;DBQ=T:\Retail\NEDOKONČENÉ ŽÁDOSTI - ESHOP\POBOČKOVÉ SESTAVY\BRM.xlsm;DefaultDir=T:\Retail\NEDOKONČENÉ ŽÁDOSTI - ESHOP\POBOČKOVÉ SESTAVY;DriverId=790;MaxBufferSize=2048;PageTimeout=5;

Text příkazu:
SELECT*FROM[HOTOVO$]UNION ALL SELECT * FROM `T:\Retail\NEDOKONČENÉ ŽÁDOSTI - ESHOP\POBOČKOVÉ SESTAVY\BRZ.xlsm`.[HOTOVO$]UNION ALL SELECT * FROM `T:\Retail\NEDOKONČENÉ ŽÁDOSTI - ESHOP\POBOČKOVÉ SESTAVY\BRR.xlsm`.[HOTOVO$]


Tak už to mááám :)
nakonec přes připojení po jednotlivých listech a pak jsem to spojila :)citovat

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