Ugrás a tartalomra

Hogyan lehet exportálni és menteni az egyes munkalapokat külön új munkafüzetekként az Excelben?

Szerző: Kelly Utolsó módosítás: 2020-08-07

Tegyük fel, hogy egy vagy több munkalapot szeretne új munkafüzetként exportálni és menteni, hogyan fogja kezelni? Általában minden munkalapot átmásolhat és beilleszthet egy új munkafüzetbe. De itt néhány praktikus trükköt hozunk a kezelésére:

Exportálja és mentse a munkalapokat új munkafüzetként az Áthelyezés vagy Másolás paranccsal

Exportálja és mentse a munkalapokat új munkafüzetként VBA kóddal

Munkalapok exportálása és mentése új munkafüzetként a Kutools for Excel segítségével jó ötlet3


nyíl kék jobb buborék Exportálja és mentse a munkalapokat új munkafüzetként az Áthelyezés vagy Másolás paranccsal

az Áthelyezés vagy Másolás A parancs segítségével egy vagy több munkalapot gyorsan exportálhat vagy átmásolhat egy új munkafüzetbe.

1. lépés: Válassza ki a munkalap nevét a fülsávon. A nyomva tartással többet is kiválaszthat Ctrl kulcs vagy váltás kulcs.

2. lépés: Kattintson a jobb gombbal a munkalap nevére, majd kattintson a gombra Áthelyezés vagy Másolás a helyi menüből.
doc exportlapok 1

3. lépés: Be Áthelyezés vagy Másolás párbeszédpanelen válassza a ikont (új könyv) elem a legördülő listából A kijelölt lapok áthelyezése a könyvbe.

doc exportlapok 2

4. lépés: Ezután kattintson a gombra OK, most átállt a új munkafüzet exportált vagy másolt munkalapokkal kattintson a gombra filé > Megtakarítás hogy mentse az új munkafüzetet.

Jegyzet: A Áthelyezés vagy Másolás párbeszédpanelen van egy Hozzon létre egy példányt választási lehetőség. Ha nem jelöli be, akkor a kijelölt munkalapokat eltávolítja az eredeti munkafüzetből; ha bejelöli, akkor másolja a kijelölt munkalapokat.


Gyorsan ossza fel több munkalapot külön munkafüzetre az Excelben

A Microsoft Excel alkalmazásban elmentheti vagy feloszthatja egy munkalapot egy munkafüzetből új Excel fájlként, ha ezt a munkalapot másolja és beilleszti egy új munkafüzetbe. Problémásnak tűnik, ha egy nagy munkafüzet egyes lapjait / munkalapjait külön Excel, txt, csv, pdf fájlként szeretné felosztani. De azzal Kutools az Excel számára'S Felosztott munkafüzet segédprogram, gyorsan kezelheti.  Kattintson a 30 napos ingyenes próbaverzióért a teljes funkciókkal!
doc split munkafüzet 1
 
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, 30 napon belül korlátozás nélkül kipróbálható.

nyíl kék jobb buborék Exportálja és mentse a munkalapokat új munkafüzetként VBA kóddal

Ez a következő kód minden látható munkalapot exportál egy új munkafüzetbe, és a munkafüzetet az eredeti lap nevével együtt újonnan létrehozott mappába menti, ugyanazon az útvonalon, mint az aktív munkafüzet. Kérjük, tegye a következőket:

1 lépés: Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2 lépés: Kattintson a gombra betétlap > Modulok, és illessze be a következő makrót a Modul ablakba:

VBA: Munkalapok exportálása és mentése új munkafüzetként egy új mappába.

Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb As Workbook
Dim FolderName As String
Application.ScreenUpdating = False
Set xWb = Application.ThisWorkbook

DateString = Format(Now, "yyyy-mm-dd hh-mm-ss")
FolderName = xWb.Path & "\" & xWb.Name & " " & DateString

If Val(Application.Version) < 12 Then
    FileExtStr = ".xls": FileFormatNum = -4143
Else
    Select Case xWb.FileFormat
        Case 51:
            FileExtStr = ".xlsx": FileFormatNum = 51
        Case 52:
            If Application.ActiveWorkbook.HasVBProject Then
                FileExtStr = ".xlsm": FileFormatNum = 52
            Else
                FileExtStr = ".xlsx": FileFormatNum = 51
            End If
        Case 56:
            FileExtStr = ".xls": FileFormatNum = 56
        Case Else:
            FileExtStr = ".xlsb": FileFormatNum = 50
        End Select
End If

MkDir FolderName

For Each xWs In xWb.Worksheets
On Error GoTo NErro
    If xWs.Visible = xlSheetVisible Then
    xWs.Select
    xWs.Copy
    xFile = FolderName & "\" & xWs.Name & FileExtStr
    Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
    xNWb.SaveAs xFile, FileFormat:=FileFormatNum
    xNWb.Close False, xFile
    End If
NErro:
    xWb.Activate
Next

    MsgBox "You can find the files in " & FolderName
    Application.ScreenUpdating = True
End Sub

3 lépés: Nyomja meg a F5 gombot a kód futtatásához. És megjelenik egy felszólító mező, amely megadja az új exportált munkafüzetek helyét, és az eredeti munkafüzet összes munkalapját exportálták néhány új, külön munkafüzetbe, amelyek az eredeti lapokat egy új, speciális mappában nevezték el. Képernyőképek megtekintése:

doc exportlapok 7

nyíl kék jobb buborék Munkalapok exportálása és mentése új munkafüzetként a Kutools for Excel segítségével

Ha több munkalapot kell külön munkafüzetként menteni, az első módszer nem lehet jó választás. És a VBA kód talán kissé bonyolult az Excel kezdők számára. Itt használhatja a Felosztott munkafüzet hasznossága Kutools az Excel számára gyorsan és egyszerűen exportálhatja és elmentheti egy munkafüzet minden munkalapját az új munkafüzet elkülönítéséhez.

Kutools az Excel számára, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Után ingyenes telepítés Kutools for Excel, kérjük, tegye a következőket:

1 lépés: Kattintson a gombra Kutools Plus > Munkafüzet > Felosztott munkafüzet…. Lásd a képernyőképet:
doc exportlapok 3

2. lépés: A Felosztott munkafüzet párbeszédpanelt tegye az alábbiak szerint:

doc exportlapok 4
1: az összes munkalap neve alapértelmezés szerint be lett jelölve, ha nem akarja megosztani a munkalapok egy részét, akkor törölheti a jelölést;


2: Ha el akarja kerülni a rejtett vagy üres munkalapok felosztását, akkor ellenőrizheti a A rejtett munkalapok kihagyása or Üres munkalapok kihagyása) .;


3: és azt is ellenőrizheti Adja meg a mentést formátumban, és a lapok felosztásának kiválasztásához mentse szöveges fájlként, pdf fájlként vagy csv fájlként defualt formában, ha nem jelölje be ezt az opciót, akkor fel fogja osztani a lapokat, és munkafüzetként menti.

3. lépés: Ezután kattintson a gombra Hasított gombra, és válassza ki azt a mappát, ahová az új munkafüzeteket el szeretné helyezni. Lásd a képernyőképet:
doc exportlapok 6

4. lépés: Ezután kattintson OK, majd minden ellenőrzött munkalap a Felosztott munkafüzet párbeszédpanel exportálása és mentése egyedi munkafüzetként. Minden új munkafüzet megnevezése az eredeti munkalap nevével történik. Lásd a képernyőképet:
doc exportlapok 5

Kattintson, ha többet szeretne tudni erről a Split Workbook eszközről.

nyíl kék jobb buborék Exportálja és mentse az egyes munkalapokat új munkafüzetekként


Az adatokat gyorsan oszthatja több munkalapra az Excel oszlopai vagy rögzített sorai alapján

Tegyük fel, hogy van egy munkalapja, amelynek az A-tól G-ig terjedő oszlopai vannak, az eladó neve az A oszlopban található, és ezeket az adatokat automatikusan több munkalapra kell felosztania ugyanazon munkafüzet A oszlopa alapján, és minden eladó új részre lesz osztva. munkalap. Kutools az Excel számára'S Felosztás dátuma segédprogram segítségével gyorsan feloszthatja az adatokat több munkalapra a kiválasztott oszlop alapján, az alábbi képernyőképen látható az Excelben.  Kattintson a teljes funkcionalitású 30 napos ingyenes próbaverzióért!
doc split adatok 2
 
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, 30 napon belül korlátozás nélkül kipróbálható.

Kapcsolódó cikkek:

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Comments (63)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Thanks, this was awesome. There are dozens of pages on the internet talking about how to do this. You guys are the only ones that got the VBA code right. Many thanks. I had a big monster workbook with about 100 tabs, all relatively small, and the VBA macro knocked it out in about five minutes. Thank God for smart guys like you. :)
Rated 5 out of 5
This comment was minimized by the moderator on the site
This has been extremely helpful, my job was doing some data management manually and this helped me automate it. I do have a question though, as the code is a bit over my head to figure out on my own.

What would I need to change to make it so that it always saves as a CSV file instead of an excel file? I know it'll be part of the IF VAL THEN CASES but I don't follow the formatting of that area.

Thank you,
Matt
This comment was minimized by the moderator on the site
Hi, Matt, I am glad that this article can help you. If you want to save sheets as new CSV files, this article https://www.extendoffice.com/documents/excel/5537-excel-batch-convert-to-csv.html lists the methods on exporting sheets as separated CSV files, hope it can do you a favor.
This comment was minimized by the moderator on the site
I have been using this VBA Code for some time and it worked like a charm until I changed computers. I have the same version of excel but now I am getting a Run Time Error "76" Path Not found. Any ideas what could be causing this? It looks like it is hanging up at MkDir. Any help you can provide is appreciated.
This comment was minimized by the moderator on the site
Hi, can I ask which office version you use?
This comment was minimized by the moderator on the site
I'm having this issue as well. I ran it once a month ago just fine and this came up just now.
This comment was minimized by the moderator on the site
You are amazing! Thank you so very much!
This comment was minimized by the moderator on the site
Thank you so much ! great and useful.
This comment was minimized by the moderator on the site
For Each xWs In xWb.Worksheets
How to do export only selected / grouped sheets to separate excel sheets by using this code.?
This comment was minimized by the moderator on the site
Hi there,

Keep getting a pop up that says 'compile error, invalid outside procedure' when i try and run the code. Any thoughts? Thanks for all your help.
This comment was minimized by the moderator on the site
Hi, Issybeee, I have update the VBA code in the tutorial, you can try the new one again.
This comment was minimized by the moderator on the site
For those of you who save macros in your "Personal.XLSB" or XLSTART (I see more questions below related to this), change the line

Set xWb = Application.ThisWorkbook to

Set xWB = ActiveWorkbook

That will make the macro run from the Active Workbook instead and save in a subfolder to that.
This comment was minimized by the moderator on the site
With the first method, if I hit F5, it opens a pop up window with the function "Go to". My excel is in spanish, im not sure if that is a factor. Any idea on how to fix it?
This comment was minimized by the moderator on the site
You can directly click the Run button of the Microsoft Visual Basic for Applications window.
This comment was minimized by the moderator on the site
Un aporte realmente útil. He probado el módulo con código VBA y funciona a la perfección. Muchas gracias, me has salvado una tarea que me hubiera llevado mucho tiempo con el mover y copiar.
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations