Telefonszámunk: 1-472-0679

almappák munkafüzet lapjainak összefűzése

Kezdőlap Fórumok Excel programozás almappák munkafüzet lapjainak összefűzése

16 bejegyzés megtekintése - 1-16 / 16
  • Szerző
    Bejegyzés
  • #9840
    NIN
    Felhasználó

      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

      #9842
      horvimi
      Adminisztrátor

        Szia!

        Lehet erre VBA programot írni persze.
        De én inkább a PowerQuery-t javaslom. Sokkal hamarabb megvan a fejlesztés ezzel.
        Ismered?

        Imre

        #9844
        NIN
        Felhasználó

          Szia!

          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” klikkelek

          Ezutá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

          #9845
          horvimi
          Adminisztrátor

            Az összefűzést egyszer jól megcsinálja, de nem frissül, ha új fájlt teszel valamelyik mappába?

            #9846
            NIN
            Felhasználó

              Kaptam 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

              #9847
              NIN
              Felhasználó

                Nem 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.
                #9849
                horvimi
                Adminisztrátor

                  Ha újat adsz valamelyik mappába, akkor azt hozzáfűzi az eredményhez?

                  #9851
                  NIN
                  Felhasználó

                    Szia, 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

                    #9853
                    NIN
                    Felhasználó

                      Szia, 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

                      #9854
                      horvimi
                      Adminisztrátor

                        Szia!

                        É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?

                        #9855
                        NIN
                        Felhasználó

                          Szia! 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.
                          #9858
                          horvimi
                          Adminisztrátor

                            Szia!

                            Csatlakoztam a fő mappához és nekem 97 sort olvasott be, azaz ennyi fájlt talált.
                            Nem tudok limitről

                            Alapbó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

                            #9859
                            NIN
                            Felhasználó

                              Szia! 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

                              #9860
                              horvimi
                              Adminisztrátor

                                É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…

                                #9870
                                eNFeri
                                Felhasználó

                                  Sziasztok

                                  Í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.
                                  #9941
                                  NIN
                                  Felhasználó

                                    eNFeri!

                                    Köszönöm a segítséget! Megoldódni látszik a probléma!

                                  16 bejegyzés megtekintése - 1-16 / 16
                                  • Be kell jelentkezni a hozzászóláshoz.