Tipp: Az egyéb nyelvek a Google Fordítva vannak. Látogasson el a English a link verziója.
Belépek
x
or
x
x
Regisztráció
x

or

Az egyes munkalapok exportálása és mentése különálló új munkafüzetként az Excel programban?

Tegyük fel, hogy egy vagy több munkalapot szeretne exportálni, és új munkafüzetként menteni, hogyan kezelheti azt? Általában minden munkalapot átmásolhat és beilleszthet új munkafüzetbe. De itt hozunk neked néhány hasznos trükköt,

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

A munkalapok exportálása és mentése új munkafüzetként VBA kóddal

A munkalapok exportálása és mentése új munkafüzetként a Kutools for Excel programmal jó ötlet3


Gyorsan osztja több munkalapot külön munkafüzetbe az Excel alkalmazásban

A Microsoft Excel alkalmazásban egy munkafüzetből egy munkalapot menthet vagy oszthat meg új Excel fájlként a munkalap új munkafüzetbe való másolásával és beillesztésével. Úgy tűnik, problémás, ha egy nagy munkafüzet minden egyes lapját / munkalapját külön Excel, txt, csv, pdf fájlként szeretné megosztani. De a Kutools for Excel'S Megosztott munkafüzet segédprogram, akkor gyorsan foglalkozik vele. Kattintson az 60 nap ingyenes próbaverziójára a teljes funkciókkal!
doc split munkafüzet 1
Kutools for Excel: több mint 300 praktikus Excel bővítményekkel, szabadon próbálkozhat az 60 napokban korlátozás nélkül.

arrow 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 parancs segítségével egy vagy több munkalapot gyorsan exportálhat vagy másolhat egy új munkafüzetbe.

Step 1: Válassza ki a munkalap nevét a fülsávban. Többet is kiválaszthat, ha lenyomva tartja Ctrl kulcs vagy váltás kulcs.

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

3 lépés: In Áthelyezés vagy Másolás párbeszédpanelen jelölje ki a (új könyv) elemet a legördülő listából A kijelölt lapok áthelyezése a könyvbe.

doc export lapok 2

4 lépés: Kattints a gombra OK, most már átállt a új munkafüzet exportált vagy másolt munkalapokkal, kattintson a gombra filé > Save az új munkafüzet mentéséhez.

Jegyzet: Ban,-ben Áthelyezés vagy Másolás párbeszédpanel, van egy Hozzon létre egy példányt választási lehetőség. Ha nem ellenőrzi, a kijelölt munkalapokat az eredeti munkafüzetből fogja áthelyezni; ha ellenõrzi, akkor a kijelölt munkalapokat másolja.


arrow kék jobb buborék A munkalapok exportálása és mentése új munkafüzetként VBA kóddal

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

1 lépés: Tartsa lenyomva a ALT + F11 gombokat, és 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 modulablakba:

VBA: A munkalapok exportálása és mentése új munkafüzetként egy új mappában.

Sub SplitWorkbook()
'Updateby20140612
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb 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
MkDir FolderName
For Each xWs In xWb.Worksheets
    xWs.Copy
    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
    xFile = FolderName & "\" & Application.ActiveWorkbook.Sheets(1).Name & FileExtStr
    Application.ActiveWorkbook.SaveAs xFile, FileFormat:=FileFormatNum
    Application.ActiveWorkbook.Close False
Next
MsgBox "You can find the files in " & FolderName
Application.ScreenUpdating = True
End Sub

3 lépés: Nyomja meg a F5 kulccsal futtatni ezt a kódot. Ekkor megjelenik egy prompt doboz, amely megmutatja az új exportált munkafüzetek helyét, és az eredeti munkafüzet összes munkalapja egy új különálló munkafüzetbe került, amely eredeti lapokat tartalmaz egy új speciális mappában. Lásd a képernyőképeket:

doc export lapok 7

arrow kék jobb buborék A munkalapok exportálása és mentése új munkafüzetként a Kutools for Excel programmal

Ha több munkafüzetet kell külön munkakönyvként menteni, az első módszer nem lehet jó választás. A VBA-kód talán egy kicsit bonyolultabb az Excel kezdőknek. Itt használhatja a Megosztott munkafüzet hasznossága Kutools for Excel egy munkafüzet minden munkalapjának gyors és egyszerű exportálása és mentése az új munkafüzet elküldéséhez.

Kutools for Excel, Több mint 300 praktikus funkciók, könnyebbé teszi munkáit.

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 > Split munkafüzet .... Lásd a képernyőképet:
doc export lapok 3

2 lépés: A Megosztott munkafüzet párbeszédpanelt, tegye a következőket:

doc export lapok 4
1: alapértelmezés szerint az összes munkalap nevét ellenőrizték, ha nem szeretné megosztani a munkalapokat, kiválaszthatja őket;


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


3: és ellenőrizheti is Adja meg a mentést formátumot, és kiválaszthatja a lapok felosztását, majd mentse szöveges fájlként, pdf fájlként vagy csv fájlként defualt formátumban, ha nem ellenőrizze ezt az opciót, akkor az osztja a lapokat és menti a munkafüzetet.

3 lépés: Kattints a gombra Hasított gombra, és válassza ki az új munkafüzeteket tartalmazó mappát. Lásd a képernyőképet:
doc export lapok 6

4 lépés: És kattintson OK, majd minden egyes bejelölt munkalapot a Megosztott munkafüzet párbeszédpanelt exportálják és mentik el egyéni munkafüzetként. Minden új munkafüzet neve az eredeti munkalap nevével történik. Lásd a képernyőképet:
doc export lapok 5

Kattints a további tudnivalókért a megosztott munkafüzet eszközzel kapcsolatban.

arrow kék jobb buborék Exportálja és mentse az egyes lapokat új munkafüzetként


Gyorsan osztja az adatokat több munkalapra az Excel oszlopban vagy rögzített sorokban

Feltéve, hogy van egy munkalapja, amely az A-tól G-ig terjedő oszlopokban van, az eladó neve az A oszlopban van, és ezeket az adatokat egy munkalapon az A oszlop alapján automatikusan fel kell osztani több munkalapra, és minden kereskedőnek egy új munkalap. Kutools for Excel'S Split Date segédprogram segítségével gyorsan oszthatja meg az adatokat több munkalapon a kiválasztott oszlop alapján, az Excel alatt bemutatott képen. Kattintson a teljes funkcionalitású 60 nap ingyenes próbaverziójára!
doc osztott adatok 2
Kutools for Excel: több mint 300 praktikus Excel bővítményekkel, szabadon próbálkozhat az 60 napokban korlátozás nélkül.

Kapcsolódó cikkek:



Ajánlott termelékenységi eszközök

Office Tab

arany star1 Kényelmes lapokat hozhat Excel és más Office szoftverekhez, akárcsak a Chrome, a Firefox és az új Internet Explorer.

Kutools for Excel

arany star1Elképesztő! Növelje termelékenységét 5 perc alatt. Nincs szükség különleges képességekre, kivéve két órát minden nap!

arany star1300 Az Excel új funkciói, az Excel nagyon egyszerű és erőteljes:

  • A cella / sorok / oszlopok egyesítése adatok elvesztése nélkül.
  • Több lap és munkafüzet kombinálása és egységesítése.
  • Hasonlítsa össze a tartományokat, másolja a többszörös tartományokat, konvertálja a dátumot, a mértékegységet és a pénznemek konverzióját.
  • Számolás a Színek, a Paging Subtotals, az Advanced Sort és a Super Filter,
  • Több Select / Insert / Delete / Szöveg / Formátum / Link / Comment / Workbooks / Worksheets Tools ...

A Kutools for Excel képernyőkép

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    PK · 29 days ago
    How to convert this macro so that I can save it in my personal workbook and can use to where ever I need it.
    • To post as a guest, your comment is unpublished.
      Sunny · 11 hours ago
      Click Developer tab > Record Macro > select Personal Macro Workbook, and give the vba a name.
      Then in Microsoft Visual Basic for Applications window, click VBAProject(PERSONA_XLSB) > Modules > double click Module1, paste the code between Sub() and End Sub, save the code.
      When you want to use the code, click Developer > Macro, choose the code you name.
  • To post as a guest, your comment is unpublished.
    Sergii · 1 months ago
    February 2019 - after some update Excel silently exits macro right after Application.ActiveWorkbook.SaveAs
    It means, that commands Application.ActiveWorkbook.Close does not run and file stays opened... Could it be fixed? This happened all the machines in our office on several workbooks that were using such kind of Macro.
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Do you have the formula to make sure that each excel sheet when saved as a new work book is in total format Comma Delimited .CSV
  • To post as a guest, your comment is unpublished.
    Jenne · 6 months ago
    Love this and another info you have on splitting data into each worksheet. However I keep getting an error when trying to upload my single reports into my system

    I needed them as a csv file so just changed the last part of the module to .csv I am wondering if I missed something else that should've been changed.

    Thanks a million
  • To post as a guest, your comment is unpublished.
    Ananda · 1 years ago
    what is the use of Worksheet.Save??