Kezdőlap › Fórumok › Excel programozás › almappák munkafüzet lapjainak összefűzése
- This topic has 15 hozzászólás, 3 résztvevő, and was last updated 1 year, 5 months telt el by NIN.
-
SzerzőBejegyzés
-
2023-04-20-19:38 #9840
Sziasztok! Segítséget szeretnék kérni az alábbi problémámra:
Van-e arra lehetőség, hogy egy mappa összes almappájában lévő, ott további almappákban lévő, azonos felépítésű excel fájlok egyik munkalapján lévő táblázatokat összefűzzük VBA segítségével? A lényeg az lenne, hogy ne egyesével kelljen kiválasztani a fájlokat, mert rengeteg van, és folyamatosan lesznek újabbak is.
Segítségeteket előre is köszönöm!
Üdvözlettel: Norbert
2023-04-20-22:28 #9842Szia!
Lehet erre VBA programot írni persze.
De én inkább a PowerQuery-t javaslom. Sokkal hamarabb megvan a fejlesztés ezzel.
Ismered?Imre
2023-04-20-22:56 #9844Szia!
Igen, ismerkedem vele!
Órák óta próbálom összerakni, hogy frissűljön, ha máshogy nem, manuálisan. Sanos nem teszi, valamit én ronthatok el.
Az Adatok-Adatok beolvasása- A Power Query szerkeszőjének elindítása után rámegyek a „legalsó sorra” / „Mappanévre” klikkelekEzutána „Előnézet frissítése” itt az összeset választva , nem törénik semmi! PEdig előzőleg teszképp módosítottam a forráslapot, amiről áthivatkozik a Power Query.
Nem találom a hiba okát egyenlőre. LEhet egy VBA autómatikus frissítés segítene?
Keresem a válaszokat 🙂
Üdvözlettel: Norbi
2023-04-20-23:03 #9845Az összefűzést egyszer jól megcsinálja, de nem frissül, ha új fájlt teszel valamelyik mappába?
2023-04-20-23:04 #9846Kaptam egy VBA programot az imént. Bemásoltam a munkalapra és átneveztem a”Sheet1″ szöveget az én Power Query-s munkalapom nevére „MUNKAK_UJ” lapnévre
Egyébként a „MUNKAK_UJ” mappában vannak az összefűzni kíván excelek.
Ezt kaptam, ebben a steruktúrában. Lehet én haználom rosszul, lehet hibás?
Sub Countdown()
Dim i As Integer
start:
For i = 300 To 1 Step -1 ‘ 300 seconds = 5 minutes
Application.Wait (Now + TimeValue(„0:00:01”)) ‘ Wait for 1 second
Dim ws As Worksheet
Dim qt As QueryTable
Set ws = ThisWorkbook.Worksheets(„AJANLATOK_UJ”) ‘ Replace „AJANLATOK_UJ” with your worksheet name
Set qt = ws.QueryTables(„Query1”) ‘ Replace „Query1” with your Power Query name
qt.Refresh
GoTo start
Next i
End SubÜDv: Norbi
2023-04-20-23:06 #9847Nem tettem új fájlt, csak a meglévőekben változtattam, tesztelve, hogy az összefűzés frissül e.
Elsőre jól megcsinálta, csak a frissítéssel van gondom
- A hozzászólás módosításra került: 1 year, 7 months telt el-NIN.
2023-04-20-23:15 #9849Ha újat adsz valamelyik mappába, akkor azt hozzáfűzi az eredményhez?
2023-04-21-16:14 #9851Szia, Imi!
A probléma megoldódott köszönöm! Az volt a baj, hogy az egy munkafüzet a sok közül, aminek az adatait be akarom inportálni, a változtatás után nem lett mentve. Mivel nem „rögzítettem” mentéssel a változást, így nem is „tudhatott” az PQ program róla.
Viszont felmerült egy másik probléma. Nekem 6-7 szint mélységig kellene”lelátni” , mert ezeken a szinteken vannak a munkafüzeteim, amiből adatokat szeretnék kinyerni. A mélységet meg lehet valahol adni? Válaszod előre is köszönöm! Üdv: Norbi
2023-04-21-17:44 #9853Szia, Imre! Lehet megvan a hiba! Elképzelhető, hogy nem a mélységet szabályozza , hanem a beolvasható fájlok számát? Azt számolom, hogy több variáciiót kipróbálva max 20 sor jelenik meg az csatolt fájlok megjelenítő ablakban. Kiterjesztéstől függetlenül.
Üdvözlettel: Norbi
2023-04-22-20:29 #9854Szia!
Én nem tudok ilyen limitről, és egy gyors keresgélés után a neten sem találtam.
Olyanról viszont tudok, hogy az útvonal egy fájlhoz nem lehet akármilyen hosszú.
Olyasmi rémlik, hogy Windows-ban 256 vagy 260 karakter a max.Nem lehet, hogy ez a baj?
2023-04-23-09:50 #9855Szia! Készítettem egy minta struktúrát.
Így épülne fel a mapparendszer.
Minden esetben azonos szinten lesznek az excel mukafüzetek, amiknek az „osszesito” lapjait szeretném összefűzni.Folyamatosan jönnek létre ilyne „munkamappák”
Tesztben létrehoztam 30db munkamappa, és 60db egyéb fájl kiterjesztésű adatot is.
Ha ezeket beolvasom a a PowerQuerybe a kijelölt mappából – esetünkben az „AJANLATOK_UJ”
Első lépésként létrehoz egy listát, a talált fájlokat kiterjesztéstől függetlenül.Ide csak 20 sort olvas be, oda is vegyes fájlkiterjesztéssel.
Eza problémám, hogy még a Tesztként szolgáló mappát sem tudom teljesen beolvasni.
Néztem sok videot, kerestem egyéb infókat, de sehol nem találtam utalálst a limitre.
Mit rontok el? Be lehet állítani, hogy csak excel formátumot tallózzon be?
Ha igen, max megcsinálom több lépcsőben az összefűzést. Pl: Telephelyenként, bár lehet ez is egyes helyeken eléri a 20 as limitet.
Segítségedet előre is köszönöm!
U.i: a tömörített mappa 12 MB,nem tudtam feltőlteni. pentaschool@pentaschool.hu re elküldtem.
- A hozzászólás módosításra került: 1 year, 7 months telt el-NIN.
2023-04-23-20:57 #9858Szia!
Csatlakoztam a fő mappához és nekem 97 sort olvasott be, azaz ennyi fájlt talált.
Nem tudok limitrőlAlapból minden fájlt beolvas, utána, az editorban tudod szűrni, hogy csak Excel fájlokat dolgozzon fel.
Nem tudom, hogy mi történik nálad.Másik gépen próbáltad?
Imre
2023-04-25-17:00 #9859Szia! Igen!
Office 2019:PQ Új lekérdezés mappából: xlsm kiterjesztés esetén nem látja az adatokat, ha át van rakva xlsx-be a forrás, akkor igen. Mi okozza a hibát?
Office 2016 és Office 365 alatt működik. (csak a kiterjesztést lett vizsgálva, lehet más okozza.Makrovédelem ki lett kapcsilva és a tároló Z:\ meghajtó is fel lett véve biztonságos forrásként.
Norbi
2023-04-25-22:06 #9860Én az irodai gépemen néztem, amin történetesen 2019-es Excel van.
Most megnéztem, a forrásban xlsm fájlok vannak (a többi mellett)Nem számoltam meg, hogy összesen hány fájl van a mapparendszerben, de az biztos, hogy 97-et látott.
Ebből 43 db xlsm. (van közöttük egy csomó hullámjellel kezdődő nevű)Én nem tudok többet hozzátenni ehhez attól tartok…
2023-04-28-20:28 #9870Sziasztok
Írtam rá egy programot Pythonban. 7 db xlsx fájllal teszteltem, működik. Beolvassa az alkönyvtárakban is az xlsx és xlsm fájlokat, összefűzi, és elmenti egy Bath_xxxxxx.xlsx fájlba. Xlsm fájllal nem próbáltam. Kell hozzá Python és Openpyxl modul.
Nem tudom, hogy így is megfelel-e Neked, de azért feltöltöm.
Üdv.: Feri
- A hozzászólás módosításra került: 1 year, 7 months telt el-eNFeri.
Attachments:
You must be logged in to view attached files.2023-06-01-16:40 #9941eNFeri!
Köszönöm a segítséget! Megoldódni látszik a probléma!
-
SzerzőBejegyzés
- Be kell jelentkezni a hozzászóláshoz.