< návrat zpět

MS Excel


Téma: Sloučit dva soubory do jednoho rss

Zaslal/a 6.9.2022 9:49

AlfanDobrý den,
mám dva adresáře (prijemky, vydejky) a v každém je soubor *.xlsx a oba jsou ve stejné struktuře, první řádek je záhlaví.
V každém z nich je jen jeden a právě jeden list.
Potřeboval bych tyto dva listy z těch dvou souborů sloučit do souboru spojeno.xlsx do adresáře "spojeno".
Adresáře prijemky, vydejky, spojeno jsou ve stejném adresáři.
Záhlaví se může použít z libovolného zdrojového souboru.
Můžete mi pomoct s VBA?
Pak si spojeno.xlsx naimportuji do tabulky a budu s tím dále pracovat, ale to umím.
Děkuji.
Radek

Zaslat odpověď >

Strana:  1 2   další »
icon #053325
eLCHa
Pokud jsou to 2 stejné soubory, použijte power query - načtěte si tabulky a hledejte 'Připojit'citovat
#053326
Alfan
Já se chtěl PQ vyhnout, protože to připravuji pro kolegu a pak bych mu musel editovat cestu ke zdrojům v PQ.

Proto bych to chtěl spojit a pak naimportovat.citovat
#053338
elninoslov
Ale veď management cesty zdrojových súborov je jednoduchý. Tu máte príklad, kde si môžete zvoliť kliknutím automatickú cestu podľa aktuálne umiestneného súboru, alebo manuálne nastavenú cestu.
Příloha: xlsx53338_prijemky-vydejky.xlsx (165kB, staženo 13x)
citovat
#053339
Alfan
Děkuji.
Ale to nedám.
I když jsem si to uložil, tak mi to prostě píše, že jsou nějaké parametry špatně.

Myslel jsem, že makrem to spojím do jednoho souboru a pak ten spojený načtu.
Makra umím nějak editovat, nejsem expert.
Ale ty PQ je pro mě složitější.
Budu si to manuálně vkládat ze zdrojů.
Každopádně ještě jednou díky.citovat
#053340
elninoslov
Malo by to fachať. Skúšal som to pred odoslaním. Teraz som na ceste, keď prídem domov, pošlem Vám kompletný adresár aj s vymyslenými súbormi a s presne stanovenou cestou. Pozrieme na ktorom riaku v PQ to dá chybu. Alebo to môžete mrknúť aj Vy. Ktorý dá chybu? Údaje, Pripojenia, pravým na dotaz a Upraviť. V pravo sú jednotluvé kroky. Takto som to robil aj manželke do prace, a odvtedy ma neotravuje ;)

Aby ste ešte nemal rovnaký problém ako ona, že XLS súbory z ich infosystémov boli vlasrne premenovane textove súbory CSV. Tie sa otváraju totiž inak. Otvorte tie Vaše súbory v Notepade, ak uvidíte data, je to CSV.

Samozrejme keď to nepojde, tak makro nueje problém...

EDIT:
Tu je ten príklad zabalený komplet. Rozbaľte si to napr. rovno na C: a dajte Obnoviť všetko.
Příloha: zip53340_prijemky-a-vydejky.zip (71kB, staženo 10x)
citovat
#053348
Alfan
Asi dělám něco špatně.
Viz příloha.
Příloha: zip53348_fotky.zip (136kB, staženo 8x)
citovat
#053350
elninoslov
Nerobíte nič zle. Máte pravdu. Ide to iba na mojom PC, skúšal som to aj na inom, no kým som šiel pozrieť aká je tam verzia Office tak spadol prúd :(
Na mojom PC je 2019 Pro Plus

Každopádne tu poprosím skúsenejších PéQéčkárov a pomoc, v čom je problém.citovat
#053351
avatar

elninoslov napsal/a:


v čom je problém.


Ozvala se ochrana osobních údajů.

Natvrdo: (třeba z editoru PQ):
Soubor> Možnosti a nastavení > Možnosti dotazu > Ochrana osobních údajů > Vždy ignorovat ....citovat
#053352
Alfan
Perfektní, už to funguje.

Chci se zeptat.
Ten dotaz doplní data ve sloupcích A : AR.

V dalších sloupcích mám vzorce, ty nepřepíše, to ano.

Ale jak je to z rozsahem řádků?
Ten Dotaz vždy doplní data od prvního řádku dál?
Pokud ano, jak je ošetřeno, že při další aktualizaci dotazu nebude třeba méně řádků?

A dalo by se spouštění toho dotazu přiřadit nějakému tlačítku na jiném listu tak, jak to mám u VBA?

Děkuji.
Radekcitovat
#053353
elninoslov
Ten dotaz doplní data ve sloupcích A : AR.

Je to urobené tak, že si dotaz zistí, aké sú v oboch súboroch stĺpce, urobí si jedinečný zoznam, a tieto stĺpce zo súborov importuje. Teda rovnaké do rovnakého stĺpca, prípadné rozdielne do samostatných stĺpcov.

V dalších sloupcích mám vzorce, ty nepřepíše, to ano.

Skúšal som obe varianty:
-ak tie vzorce sú vpravo od dát ako súčasť výsledného objektu Tabuľka
-aj ak nie sú súčasťou Tabuľky

V oboch prípadoch ich ponechá (prípadne posinie vpravo ak je pridaný nejaký zdrojový stĺpec).

Ale jak je to z rozsahem řádků?

Z rozsahom je to tak, ako som vydedukoval bez prílohy. Teda tipujem to na neTabuľku a prvý riadok hlavičku. Z hlavičky sa urobia názvy stĺpcov výslednej Tabuľky. Počet riadkov je ľubovoľný.

Pokud ano, jak je ošetřeno, že při další aktualizaci dotazu nebude třeba méně řádků?

Neviem, či rozumiem otázke. Ak budete mať v nových súboroch menej riadkov ako v starých, samozrejme výsledok bude mať tiež menej riadkov. Neviem ako to myslíte.

A dalo by se spouštění toho dotazu přiřadit nějakému tlačítku na jiném listu tak, jak to mám u VBA?

Sub Aktualizace_PQ()
Dim C As Object

Const NAZEV_DOTAZU = "Prijemky_Vydejky"

For Each C In ThisWorkbook.Connections
If Right(C.Name, Len(NAZEV_DOTAZU) + 2) = "– " & NAZEV_DOTAZU Then C.Refresh: Exit For
Next C

Set C = Nothing
End Sub
Příloha: zip53353_prijemky-a-vydejky.zip (80kB, staženo 4x)
citovat

Strana:  1 2   další »

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

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32

Čas od do

jarek1111 • 18.4. 8:31

Makro smyčka

MilanKop • 18.4. 7:18

Makro smyčka

elninoslov • 18.4. 0:18

Makro smyčka

MilanKop • 17.4. 21:33