Note: The other languages of the website are Google-translated. Back to English

Hogyan kombinálhat több munkafüzetet egy fő munkafüzetbe az Excelben?

Elakadt már valaha, amikor több munkafüzetet össze kell kapcsolnia az Excel fő munkafüzetévé? A legszörnyűbb az, hogy a kombinálandó munkafüzetek több munkalapot tartalmaznak. És hogyan lehet egyetlen munkafüzetbe egyesíteni csak a több munkafüzet meghatározott munkalapjait? Ez az oktatóprogram számos hasznos módszert mutat be, amelyek segítségével lépésről lépésre megoldhatja a problémát.


Egyesítsen több munkafüzetet egy munkafüzetbe az Áthelyezés vagy Másolás funkcióval

Ha csak pár munkafüzetet kell kombinálni, akkor az Áthelyezés vagy Másolás paranccsal manuálisan áthelyezheti vagy másolhatja a munkalapokat az eredeti munkafüzetből a fő munkafüzetbe.

1. Nyissa meg a munkafüzeteket, amelyeket egyesít egy fő munkafüzetbe.

2. Jelölje ki az eredeti munkafüzet munkalapjait, amelyeket áthelyez vagy átmásol a fő munkafüzetbe.

Megjegyzések:

1). Több nem szomszédos munkalapot is kijelölhet a Ctrl gombot, és egyenként kattintson a lapfülekre.

2). Több szomszédos munkalap kiválasztásához kattintson az első lap fülre, és tartsa lenyomva a gombot műszak gombot, majd az összes lap kijelöléséhez kattintson az utolsó lap fülre.

3). Kattintson jobb gombbal bármelyik lap fülre, majd kattintson a gombra Válassza az Összes lap lehetőséget a helyi menüből válassza ki a munkafüzet összes munkalapját egyszerre.

3. A szükséges munkalapok kiválasztása után kattintson a jobb gombbal a lap fülre, majd kattintson a gombra Áthelyezés vagy Másolás a helyi menüből. Lásd a képernyőképet:

4. Ezután a Áthelyezés vagy Másolás párbeszédpanel jelenik meg, a Foglalni legördülő menüből válassza ki azt a fő munkafüzetet, amelybe áthelyezi vagy másolja a munkalapokat. Válassza ki az áthelyezést a Lap előtt jelölje be a négyzetet Hozzon létre egy példányt mezőbe, és végül kattintson a gombra OK gombot.

Ezután láthatja a munkalapokat két munkafüzetben, amelyek egybe vannak egyesítve. Kérjük, ismételje meg a fenti lépéseket a munkalapok más munkafüzetekből a fő munkafüzetbe történő áthelyezéséhez.


Kombináljon több munkafüzetet vagy meghatározott munkafüzetlapokat a VBA-val ellátott fő munkafüzetbe

Ha több munkafüzetet kell egyesíteni, akkor a következő VBA-kódokat alkalmazhatja annak gyors eléréséhez. Kérjük, tegye a következőket.

1. Helyezze az összes egyesíteni kívánt munkafüzetet egy könyvtárba.

2. Indítson el egy Excel fájlt (ez a munkafüzet lesz a fő munkafüzet).

3. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic alkalmazásokhoz ablak. Ban,-ben Microsoft Visual Basic alkalmazásokhoz ablakban kattintson betétlap > Modulok, majd másolja a VBA kód alatt a Modul ablakba.

1. VBA-kód: Több Excel munkafüzet egyesítése egybe

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub
	

Megjegyzések:

1. A fenti VBA-kód megőrzi az eredeti munkafüzetek lapneveit az összevonás után.

2. Ha meg akarja különböztetni, hogy a fő munkafüzet mely munkalapjai honnan jöttek az összevonás után, kérjük, alkalmazza az alábbi VBA kódot 2.

3. Ha csak a munkafüzetek meghatározott munkalapjait szeretné összekapcsolni egy fő munkafüzettel, akkor az alábbi 3. VBA-kód segíthet.

A VBA kódokban „C: \ Users \ DT168 \ Desktop \ KTE \”A mappa elérési útja. A VBA kódban 3 "1. lap, 3. lap"a munkafüzetek meghatározott munkalapjai, amelyeket össze fog állítani egy fő munkafüzettel. Megváltoztathatja azokat az Ön igényei szerint.

2. VBA-kód: Egyesítse a munkafüzeteket (mindegyik munkalapot az eredeti fájlnevének előtagjával nevezik el):

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

3. VBA-kód: Egyesítse a munkafüzetek meghatározott munkalapjait egy fő munkafüzetbe:

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. megnyomni a F5 gombot a kód futtatásához. Ezután az adott mappában található összes munkafüzet vagy a megadott munkafüzetek egyszerre egyesülnek egy fő munkafüzettel.


Könnyen kombinálhat több munkafüzetet vagy meghatározott munkafüzetlapokat egy munkafüzetbe

Szerencsére a Kombájn munkafüzet segédprogramja Kutools az Excel számára sokkal könnyebbé teszi a több munkafüzet egyesítését egyben. Nézzük meg, hogyan érhető el ez a funkció több munkafüzet kombinálásakor.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Hozzon létre egy új munkafüzetet, és kattintson a gombra Kutools Plus > Kombájn. Ezután megjelenik egy párbeszédpanel, amely emlékeztet arra, hogy az összes kombinált munkafüzetet el kell menteni, és a funkciót nem lehet alkalmazni a védett munkafüzetekre. Kérjük, kattintson a OK gombot.

2. Ban,-ben Kombinálja a munkalapokat varázsló, válassza a lehetőséget Kombinálja a munkafüzetek több munkalapját egy munkafüzetbe lehetőséget, majd kattintson a gombra Következő gomb. Lásd a képernyőképet:

3. Ban,-ben Kombinálja a munkalapokat - 2/3 lépés párbeszédpanelen kattintson a hozzáad > filé or Mappa az Excel fájlok hozzáadásához össze fogja egyesíteni. Az Excel fájlok hozzáadása után kattintson a gombra befejez gombra, és válasszon egy mappát a fő munkafüzet mentéséhez. Lásd a képernyőképet:

Most az összes munkafüzet egybe van egyesítve.

A fenti két módszerrel összehasonlítva Kutools az Excel számára a következő előnyökkel rendelkezik:

  • 1) Az összes munkafüzet és munkalap megtalálható a párbeszédpanelen;
  • 2) Az egyesítésből kizárni kívánt munkalapokhoz csak törölje a jelet;
  • 3) Az üres munkalapok automatikusan kizárásra kerülnek;
  • 4) Az eredeti fájlnév az egyesítés után előtagként kerül a lap nevéhez;
  • A funkció további funkcióinak megtekintéséhez kérjük, látogasson el ide.

  Ha szeretnél egy ingyenes próbaidőszakot (30-nap) ebből a segédprogramból, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Kutools Excelhez - Segít a munka idő előtti befejezésében, legyen több ideje élvezni az életet
Gyakran találja magát magával a munka felzárkóztatásában, a saját és családja számára eltöltött idő hiányában?  Kutools az Excel számára segíthet megbirkózni 80% Excel rejtvények és 80%-os munkahatékonyság javítása, több idő jut a családdal való törődésre és az élet élvezetére.
300 fejlett eszköz 1500 munkamenethez, sokkal könnyebbé teszi munkáját, mint valaha.
Nincs többé szüksége képletek és VBA kódok memorizálására, mostantól pihentesse az agyad.
A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
Csökkentse a napi billentyűzet és egér több ezer műveletét, búcsúzzon el a foglalkozási betegségektől.
Legyen 3 perc alatt Excel-szakértő, segítsen gyorsan elismertetni és fizetésemelési promóciót kapni.
110,000 300 rendkívül hatékony ember és több mint XNUMX világhírű vállalat választása.
Tegyen 39.0 dollárt többet, mint mások 4000.0 dolláros képzése.
Teljes szolgáltatás ingyenes próbaverzió 30-nap. 60 napos pénzvisszafizetési garancia ok nélkül.

A megjegyzések rendezése szerint
Hozzászólások (146)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia kérem segítsen nekem az alábbi feltételen. Különféle munkafüzetem van, amelyben több mint 5 munkalap van, mindegyik különböző útvonalon. A különböző munkafüzetekből származó összes munkalapot egyetlen munkafüzetbe kell összevonnom. Tudna valaki segíteni a macro.TIA megoldásában!
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]Szia kérem, segítsen nekem az alábbi feltételen. Különféle munkafüzetem van, amelyben több mint 5 munkalap van, mindegyik különböző útvonalon. A különböző munkafüzetekből származó összes munkalapot egyetlen munkafüzetbe kell összevonnom. Tudna valaki segíteni a macro.TIA megoldásában!Írta: A. Karthi[/quote] Kérjük, töltse le és telepítse a Kutools for Excel programot, és gyorsan elvégezheti. De ha VBA-t szeretne használni, az túl bonyolult lehet. Ha többet szeretne megtudni a megvalósítás módjáról, látogasson el a következő oldalra:http://www.extendoffice.com/product/kutools-for-excel/excel-combine-worksheets-into-one.html
A weboldal moderátora ezt a megjegyzést minimalizálta
KUTOOLS Remek megoldás. Még egy segítségre van szükségem a fő munkafüzet létrehozásakor, majd a munkalap cellájának színe megváltozik az eredeti munkalaphoz képest. Hogyan tudom megtartani, mint az eredeti munkalapot.
A weboldal moderátora ezt a megjegyzést minimalizálta
Irodánk több excel eredeti adatmásolattal rendelkezik (pl. név, cím, település, összeg, aláírás dátuma), és az adatok egyesítése folyamatban van. Hogyan lehet ezt megtenni a kettős munka és a kettős információbevitel elkerülése érdekében?
A weboldal moderátora ezt a megjegyzést minimalizálta
„1004-es futásidejű hiba” üzenetet kapok, a Worksheet osztály másolási módszere nem sikerült a következő sorban: Sheet.Copy After:=ThisWorkbook.Sheets(1). Excel 2010-et használok. Tudna segíteni? Köszönöm, - Susie
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Susie, én magam is dolgozom ezen a problémán egy ideje, és ugyanazt a hibát kapom. Ellenőrizze, hogy a modult a SZEMÉLYES alatt hozták-e létre az aktív munkafüzet helyett. Miután létrehoztam a modult a megfelelő fa alatt, az alábbi kód jól működött. Sub GetSheets_xls() Dim Sheet As Worksheet Path = "C:\Users\yournamehere\Desktop\Testingfolder\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Elérési út és fájlnév, ReadOnly:=False Set Sheet = ActiveWorkbook.Sheets(1) Sheet.Copy After:=ThisWorkbook.Sheets(1) 'Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub Reméljük, ez segít!
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon köszönöm. A kódod jól működött.
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]„1004-es futásidejű hiba” üzenetet kapok, a Worksheet osztály másolási módszere nem sikerült a következő sorban: Sheet.Copy After:=ThisWorkbook.Sheets(1). Excel 2010-et használok. Tudna segíteni? Köszönöm, - SusieSusie által[/quote] Ugyanez a probléma, működik, amikor a "SZEMÉLYES" megtekintésére és felfedésére lépek, úgy tűnik, hogy gondjai vannak a makró elérésével, ha a master rejtett.
A weboldal moderátora ezt a megjegyzést minimalizálta
Menjen a "SZEMÉLYES" megtekintésére és felfedésére – úgy tűnik, hogy gondjai vannak a teljes kód végrehajtásával, miközben a mester rejtve van. A makrót natívvá teheti a munkafüzetben, de minden alkalommal újra kell készítenie az egészet, amikor használni szeretné.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Köszönöm szépen ezt a fájlt............. :roll: Üdvözlettel
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia remek tipp. Igen majdnem minden amit akartam. A kombinált munkafüzetben szerettem volna, ha a munkalap neve az eredeti munkafüzet nevét tartalmazza, így tudom, hogy az adatok melyik munkafüzetből származnak. Az adatok, amelyeket egyesítek, különböző archívumokból származnak. Keresnem kell egy bejegyzést, de nem tudom, melyik archívumban van. Tehát az összes adat egy fájlban való egyesítése lehetővé teszi, hogy az összes archívumban egyszerre keressek. De még tudnom kell, melyik archívumban van a bejegyzés. Henrik
A weboldal moderátora ezt a megjegyzést minimalizálta
Ahhoz, hogy a kód tartalmazza a fájlnevet, csak ezt tegye. Sub GetSheets() Dim temp As String Path = "C:\Users\....\Desktop\Excel combin\" Filename = Dir(Path & "*.xlsx") Do While Filename "" Workbooks.Open Filename:= Elérési út és fájlnév, csak olvasható:=True temp = ActiveWorkbook.Name ActiveSheet.Name = temp ActiveWorkbook.Sheets(temp).Copy After:=ThisWorkbook.Sheets(1) Workbooks(Filename).Close Filename = Dir() Loop End Sub Note : ez csak az első lapot másolja, tweekelhető, hogy minden lapot megcsináljon
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan építhet be több lapot, és hogyan adhat meg egy másik mesterfájlt az összes lap beillesztéséhez.
A weboldal moderátora ezt a megjegyzést minimalizálta
Valóban remek megoldás. köszönöm. Egy probléma azonban, amikor úgy hajtom végre, hogy ez az excel megkérdezi, hogy szeretném-e menteni a módosításokat a bezárás előtt (mióta a név megváltozott), és nem akarom ezt minden fájlnál megtenni (végrehajtásonként körülbelül 32). Meg lehetne ezt oldani?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez nagyszerű :lol: nekem nagyon sokat segített....
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm, haver, feldobtad a napomat ettől a nagyon hasznos weboldaltól... Valójában a különböző lapok ugyanazon fejlécadatait is szerettem volna 1 fő munkalapba egyesíteni, a KUTOOL for Excel sokat segített... Még egyszer köszönöm .... :)
A weboldal moderátora ezt a megjegyzést minimalizálta
Köszönöm szépen az értékes információkat. Ez tényleg működik. A cikkben felsorolt ​​lépések valóban megkönnyítették a munkámat. Köszönöm, Dinesh
A weboldal moderátora ezt a megjegyzést minimalizálta
köszönöm, hogy megosztotta tudását
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan érheti el az eredeti munkafüzet módosításainak frissítését? Megpróbálok egy országos összefoglalót készíteni, amelyben minden régió beírja adatait a saját munkafüzetébe, majd meglesz az országos összefoglaló, amely ebből frissül? Szeretném, ha ezt az egész évre beállítanák az elején, és nem utólag dolgoznék.
A weboldal moderátora ezt a megjegyzést minimalizálta
Miután egyesítette a munkalapokat egy munkafüzetben, hogyan lehet elmenteni, nem tudtam elmenteni, a Book1 nevet kaptam, és a Mentés vagy a Mentés másként gombra kattintok, de nem működik. Van javaslat?
A weboldal moderátora ezt a megjegyzést minimalizálta
Követtem a „Több munkafüzet egyesítése egy munkafüzetbe VBA-val” című részben leírtakat, és rákattintottam a „Futtatás” gombra, semmi sem történt. Nem vagyok tisztában a hibákkal, és nem tudom, hogyan javítsam ki. Segítenél? a következő az a kód, amelyet bevittem egy új munkafüzetbe. Köszönöm Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Elérési út és fájlnév, ReadOnly:=Igaz minden lapra ActiveWorkbook.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Next Sheet Workbooks(Filename).Close Fájlnév = Dir() Loop End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Tisztelt Hölgyem/Uram! Követtem a "Több munkafüzet egyesítése egy munkafüzetbe VBA-val" lépéseit a következő modul beállításához, de semmi sem történt. Segítenél megtalálni a problémát? köszönöm Sub GetSheets() Path = "p:\download\macro\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Elérési út és fájlnév, ReadOnly:=Igaz mindegyikre Lap az ActiveWorkbookban.Sheets Sheet.Copy After:=ThisWorkbook.Sheets(1) Következő munkalap Munkafüzetek(Fájlnév).Bezárás Fájlnév = Dir() Loop End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Az excel újabb verzióihoz próbálja ki ezt. A nyitott munkafüzetet katalógusként mentettem, és az összes fájl a c:\temp mappában van. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Elérési út és fájlnév, ReadOnly:=Igaz az ActiveWorkbook minden egyes lapjára. Sheets Sheet.Copy After:=Munkafüzetek("katalógus.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Próbálja ki ezt az excel újabb verzióihoz. A munkafüzetemet katalógusként mentettem, az összes fájl a c:\temp mappában van. Sub GetSheets() Path = "c:\temp\" Fájlnév = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Elérési út és fájlnév, ReadOnly:=Igaz minden egyes lapra az ActiveWorkbookban. Sheets Sheet.Copy After:=Munkafüzetek("katalógus.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
[quote]Próbáld ki ezt az Excel újabb verzióihoz. A munkafüzetemet katalógusként mentettem, az összes fájl a c:\temp mappában van. Sub GetSheets() Path = "c:\temp\" Filename = Dir(Path & "*.xls") Do While Filename "" Workbooks.Open Filename:=Elérési út és fájlnév, ReadOnly:=Igaz az ActiveWorkbook minden egyes lapjára. Sheets Sheet.Copy After:=Munkafüzetek("katalógus.xlsx").Sheets(1) Next Sheet Workbooks(Filename).Close Filename = Dir() Loop End SubÍrta: Dave[/quote] Folyamatosan azt kapom, hogy "nem lehet hozzárendelni csak olvasható tulajdonsághoz" az elérési úttal kapcsolatban... Valami ötlet?
A weboldal moderátora ezt a megjegyzést minimalizálta
nekem is van ezzel a problémám. Rájöttél?
A weboldal moderátora ezt a megjegyzést minimalizálta
Még semmi... Nem találtam megoldást, vagy valaki javasolta a megoldást. Sajnálom...
A weboldal moderátora ezt a megjegyzést minimalizálta
Én is. 6 hónapja működött, utoljára kellett futtatnom. Valaki megtalálta már a megoldást? Ha korábban futott, de most nem fog működni, lehet valami köze a Microsoft frissítéséhez? Ez egy nagyon praktikus eszköz a feladataimhoz, és rengeteg időt takarít meg. Mi változhatott meg, ami miatt az Excel hirtelen elkezdte megjeleníteni ezt az üzenetet? Mivel meglehetősen új vagyok a VBA-ban, nem nagyon tudom, hol kezdjem a logika elemzését. Üdvözlettel, Greg. Glasgow, Skócia.
A weboldal moderátora ezt a megjegyzést minimalizálta
Úgy tűnik, hogy az "Útvonal" most le van foglalva, ezért használjon bármilyen más nevet, és cserélje le az "Útvonalat", pl. "Mypath".
A weboldal moderátora ezt a megjegyzést minimalizálta
Talán módosítania kellene a ReadOnly:=True to ReadOnly:=Hamis, megtettem, és hasznos volt
A weboldal moderátora ezt a megjegyzést minimalizálta
Valami ilyesmit kerestem, de hozzá akartam szólni. A Do While fájlnévnek nem kell valami másnak lennie, mint a ""? vagy rosszul olvasom? Talán Do While NOT fájlnév = "" Csak egy gondolat...
A weboldal moderátora ezt a megjegyzést minimalizálta
Az összes lapot egy lapba szeretném egyesíteni, ahol a címsorok közösek... kérem segítsen
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, megpróbáltam a fenti makrókat használni néhány fájl összeválogatására, de sajnos nem sikerült... tudna valaki segíteni, hogy megszabaduljak a fájlok manuális rendezésétől.
A weboldal moderátora ezt a megjegyzést minimalizálta
112 excel lapom van, amit egyetlen lapra akarok helyezni másolás és beillesztés nélkül. Kérlek, segíts ki.
A weboldal moderátora ezt a megjegyzést minimalizálta
Van egy munkafüzetem, ami körülbelül 250 lapot tartalmaz. Cobaint kell egy lapban. kérlek adj megoldást
A weboldal moderátora ezt a megjegyzést minimalizálta
Próbálja ki ezt...egy másik webhelyről szereztem, de sajnos nem emlékszem a hölgy nevére, ezért elnézést kérek, hogy nem említettem, én rossz" Több WB kombinálása Excelben: NE felejtse el megváltoztatni a MyPath-t = ! Sub Merge2MultiSheets( ) Dim wbDst mint munkafüzet Dim wbSrc mint munkafüzet Dim wsSrc mint munkalap Dim MyPath mint karakterlánc Dim strFilename mint karakterlánc Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False MyPath = "\c\MyPath\et" Set wbDst = Munkafüzetek.Add(xlWBATWorksheet) strFilename = Dir(MyPath & "\*.xls", vbNormal) Ha Len(strFilename) = 0, akkor Lépjen ki a Sub-ból Do Until strFilename = "" Állítsa be a wbSrc = Workbooks.Open(Fájlnév:= MyPath & "\" & strFilename) Set wsSrc = wbSrc.Worksheets(1) wsSrc.Copy After:=wbDst.Worksheets(wbDst.Worksheets.Count) wbSrc.Close Hamis strFilename = Dir() Loop wbDst.Wor). Application törlése.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, hozzáadtam a kódot egy modulhoz. Az Excel-könyvet Masterfile-nek nevezték el. A kódban hol kell hozzáadnom. köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Ezek közül egyik sem működött nekem, végül sikerült ezt is beállítani. Tájékoztatásul 2010-et használok Leírás: Egy mappában lévő összes fájlt egy főfájllá egyesíti. Sub MergeFiles() Dim elérési út Karakterláncként, ThisWB As String, lngFilecounter As Long Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet Dim Filename As String, Wkb As Workbook Dim In CopyRng As Range, Dest RofWoSheet As Aswoswosheet Dim 2 ' A ThisWB-ről másolt lapok kezdősora = ActiveWorkbook.Name path = "mypath....." ' Ne felejtse el módosítani ezt az alkalmazást.EnableEvents = False Application.ScreenUpdating = False Set shtDest = ActiveWorkbook .Sheets(1) Fájlnév = Dir(elérési út & "\*.xls", vbNormál) Ha Len(Fájlnév) = 0 Akkor Lépjen ki a Sub-ból Do Amíg Fájlnév = vbNullString Ha nem Fájlnév = ThisWB Akkor állítsa be Wkb = Workbooks.Open(Fájlnév: =útvonal & "\" & fájlnév) CopyRng = Wkb.Sheets(1).Tartomány(Cellák(RowofCopySheet, 1), Cells(ActiveSheet.UsedRange.Rows.Count, ActiveSheet.UsedRange.Columns.Count)) Cél beállítása = shtDest.Range("A" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1) CopyRng.Copy Dest Wkb.Close False End Ha Filename = Dir() Loop Rang e("A1").Select Application.EnableEvents = True Application.ScreenUpdating = True MsgBox "Kész!" Vége Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan szerkeszthetem ezt úgy, hogy a behúzott adatok mindig a felső sorban kezdődjenek? Ha kétszer lefuttatom ezt a kódot, akkor az adatokat a korábbi adataim végéhez adja hozzá (a makró első futtatásából).
A weboldal moderátora ezt a megjegyzést minimalizálta
Módosítsa ezt a sort: RowofCopySheet = 2 a RowofCopySheet = 1 értékre
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Több Excel fájl (egy lapos) különböző mappám van jelszavas védelemmel. A nap végén szeretném az összes adatot egyetlen főfájlba egyesíteni. Minden alkalommal, amikor meg kell adnom a jelszót, megnyitnom a fájlt, és másolni kell a főfájlba. Kérem, segítsen nekem VBA kóddal ehhez.
Még senki sem írt megjegyzést
Több ingatlan
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi