Pokud jsou to 2 stejné soubory, použijte power query - načtěte si tabulky a hledejte 'Připojit'citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Sloučit dva soubory do jednoho
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
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.
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).
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ý.
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.
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
MS Excel
Téma: Sloučit dva soubory do jednoho 
Zaslal/a Alfan 6.9.2022 9:49
Dobrý 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
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
Proto bych to chtěl spojit a pak naimportovat.citovat
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: 
53338_prijemky-vydejky.xlsx (165kB, staženo 14x)
citovat53338_prijemky-vydejky.xlsx (165kB, staženo 14x)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
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
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.
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: 
53340_prijemky-a-vydejky.zip (71kB, staženo 10x)
citovat53340_prijemky-a-vydejky.zip (71kB, staženo 10x)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
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
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
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
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
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: 53353_prijemky-a-vydejky.zip (80kB, staženo 4x)
citovat53353_prijemky-a-vydejky.zip (80kB, staženo 4x)Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články