Patarimas: kitos kalbos yra "Google" išverstos. Galite aplankyti English šios nuorodos versija.
Prisijungti
x
or
x
x
Registruotis
x

or

Kaip eksportuoti ir išsaugoti kiekvieną darbalapį kaip atskirą naują „Excel“ darbaknygę?

Tarkime, kad norite eksportuoti ir įrašyti vieną ar kelis darbalapius kaip naują darbo knygą, kaip su juo spręsite? Paprastai galite kopijuoti kiekvieną darbo lapą ir įklijuoti į naują darbo knygą. Bet čia mes pateikiame keletą naudingų gudrybių, kad galėtume su juo spręsti:

Eksportuokite ir išsaugokite darbalapius kaip naują darbo knygą su komanda "Perkelti arba kopijuoti"

Eksportuokite ir išsaugokite darbalapius kaip naują darbo knygą su VBA kodu

Eksportuokite ir išsaugokite darbalapius kaip naują darbaknygę su "Kutools" Excel gera idėja3


Greitai suskirstykite kelis darbalapius į atskirą "Excel" darbaknygę

"Microsoft Excel" galite išsaugoti arba suskaidyti darbinį lapą iš vienos darbo knygos kaip naują "Excel" failą, kopijuodami ir įklijuodami šį darbalapį į naują darbo knygą. Tai atrodo varginantis, jei norite suskaidyti kiekvieno didelio darbaknygės kiekvieną lapą / darbalapį kaip atskirus "Excel", txt, csv, pdf failus. Bet su Kutools for ExcelS Splitas knygynas naudingumo, galite greitai spręsti. Spustelėkite 60 dienų nemokamą bandymą su visomis funkcijomis!
doc padalinta darbo knyga 1
"Kutools for Excel": daugiau nei "300" patogių "Excel" priedų, galite nemokamai išbandyti be apribojimų per 60 dienas.

rodyklė mėlyna dešinė burbulas Eksportuokite ir išsaugokite darbalapius kaip naują darbo knygą su komanda "Perkelti arba kopijuoti"


Naudojant Perkelti arba kopijuoti komanda padės jums greitai arba greitai nukopijuoti vieną ar keletą darbo lapų į naują darbo knygą.

Žingsnis 1: skirtuko juostoje pasirinkite darbalapio pavadinimus. Galite pasirinkti kelis, laikydami nuspaudę "Ctrl" raktas arba perkelti Raktas.

Žingsnis 2: dešiniuoju pelės klavišu spustelėkite darbo lapo pavadinimą ir spustelėkite mygtuką Perkelti arba kopijuoti iš kontekstinio meniu.
doc eksporto lapai 1

Žingsnis 3: In Perkelti arba kopijuoti Dialogo lange pasirinkite (nauja knyga) iš sąrašo iš sąrašo Perkelkite pasirinktus lapus į knygą.

doc eksporto lapai 2

Žingsnis 4: tada spustelėkite OK, dabar jūs perėjote į naują darbo knygą su eksportuotais arba nukopijuotais darbalapiais spustelėkite filė > Išsaugoti išsaugoti naują darbo knygą.

Pastaba: Lauke Perkelti arba kopijuoti Dialogo lange yra a Sukurkite kopiją pasirinkimas. Jei nesitikėsite, jis perkelia pasirinktus darbus iš originalios knygos; jei patikrinsite, tai bus nukopijuoti pasirinktus darbus.


rodyklė mėlyna dešinė burbulas Eksportuokite ir išsaugokite darbalapius kaip naują darbo knygą su VBA kodu

Šis kodas iš kiekvieno matomo darbo lapo bus eksportuojamas į naują darbo knygą ir išsaugos darbo knygą su originalaus lapo pavadinimu naujai sukurtuose aplankuose tame pačiame kelyje kaip ir aktyvi knyga. Prašome atlikti šiuos veiksmus:

Žingsnis 1: laikykite nuspaudę ALT + F11 raktus, ir tai atveria "Microsoft Visual Basic for Applications" langas.

Žingsnis 2: spustelėkite įsiuvas > Moduliaiir į modulio langą įklijuokite šią makrokomandą:

VBA: Eksportuokite ir išsaugokite darbalapius kaip naują darbo knygą naujame aplanke.

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

Žingsnis 3: paspauskite F5 raktas paleisti šį kodą. Pasirodys greitas langas, kuriame bus nurodyta naujų eksportuojamų knygų vieta, o visos originalios darbo knygos darbų lapai buvo eksportuoti į kai kuriuos naujus atskirus darbaknygius, kuriuose pavadinta originaliais lapais naujame konkrečiame aplanke. Žr. Ekrano kopijas:

doc eksporto lapai 7

rodyklė mėlyna dešinė burbulas Eksportuokite ir išsaugokite darbalapius kaip naują darbaknygę su "Kutools" Excel

Jei turite kelis darbalapius, kuriuos reikia išsaugoti kaip atskirą darbo knygą, pirmasis metodas negali būti geras pasirinkimas. O „VBA“ kodas gali būti šiek tiek sudėtingas „Excel“ pradedantiesiems. Čia galite naudoti Splitas knygynas naudingumas Kutools for Excel greitai ir lengvai eksportuoti ir išsaugoti kiekvieną vieno darbaknygės darbalapį, kad atskirtumėte naują darbo knygą.

Kutools for Excel, su daugiau nei 300 patogios funkcijos, palengvina jūsų darbą.

Po nemokama diegimas "Kutools for Excel", atlikite toliau nurodytus veiksmus.

Žingsnis 1: spustelėkite Kutools Daugiau > Darbaknygė > Splitas knygynas .... Žr. Ekrano kopiją:
doc eksporto lapai 3

Žingsnis 2: į Splitas knygynas Dialogo lange atlikite toliau nurodytus veiksmus.

doc eksporto lapai 4
1: visi darbalapio pavadinimai buvo patikrinti pagal numatytuosius nustatymus, jei nenorite dalyti kai kurių darbalapių, galite juos panaikinti;


2: Jei norite išvengti paslėptų ar tuščių darbalapių padalijimo, galite patikrinti Praleiskite paslėptus darbalapius or Praleiskite tuščius darbalapius.);


3: ir taip pat galite patikrinti Nurodykite išsaugoti formatą ir pasirinkti padalijimo lapus, tada išsaugoti kaip teksto failą, pdf failą ar CSV failą, jei neatsižvelgiama į šią parinktį, jis suskaidys lapus ir išsaugos kaip darbaknygę.

Žingsnis 3: tada spustelėkite skilimas mygtuką ir pasirinkite aplanką, į kurį norite įtraukti naujus darbo knygas. Žr. Ekrano kopiją:
doc eksporto lapai 6

Žingsnis 4: tada spustelėkite OK, tada kiekvieną patikrintą darbalapį Splitas knygynas dialogo langas eksportuojamas ir išsaugomas kaip atskira darbo knyga. Kiekviena nauja darbo knyga yra pavadinta su originaliu darbalapio pavadinimu. Žr. Ekrano kopiją:
doc eksporto lapai 5

Spustelėkite, jei norite sužinoti daugiau informacijos apie šį "Split" knygų įrankį.

rodyklė mėlyna dešinė burbulas Eksportuokite ir išsaugokite kiekvieną lapą kaip naują darbo knygą


Greitai suskirstykite duomenis į kelis darbalapius pagal stulpelius arba fiksuotas eilutes "Excel"

Darant prielaidą, kad turite darbalapį, kuriame yra duomenys stulpeliuose nuo A iki G, pardavėjo vardas yra A stulpelyje, ir jūs turite automatiškai padalyti šiuos duomenis į kelis darbalapius, remiantis tos pačios knygos stulpeliu A, ir kiekvienas pardavėjas bus padalytas į naują darbalapį. Kutools for ExcelS Splitas data naudingumas gali padėti jums greitai padalinti duomenis į keletą darbo lapų, remiantis pasirinktu stulpeliu, kaip parodyta "Excel" ekrane. Paspauskite, kad galėtumėte nemokamai išbandyti 60 dienas!
doc padalinti duomenys 2
"Kutools for Excel": daugiau nei "300" patogių "Excel" priedų, galite nemokamai išbandyti be apribojimų per 60 dienas.

Susiję straipsniai:



Rekomenduojami įrankiai našumui

Office Tab

aukso žvaigždutė1 Pateikite patogius skirtukus "Excel" ir kitai "Office" programinei įrangai, kaip ir "Chrome", "Firefox" ir "Internet Explorer".

Kutools for Excel

aukso žvaigždutė1Nuostabi! Padidinkite savo našumą per 5 min. Nereikia jokių specialių įgūdžių, išskyrus dvi valandas kiekvieną dieną!

aukso žvaigždutė1"300" naujos funkcijos "Excel", "Excel" daug lengvumo ir galingumo:

  • Sujungti elementus / eilutes / stulpelius neprarandant duomenų.
  • Suderinkite ir susinenkite kelis lapus ir darbaknygius.
  • Palyginkite diapazonus, nukopijuokite keletą diapazonų, konvertuokite tekstą į datą, vienetą ir valiutos konvertavimą.
  • Skaičiuojamas pagal spalvas, tarpinių pranešimų vidurkis, išplėstinis rūšiavimas ir super filtras,
  • Daugiau Pasirinkite / Įterpti / Ištrinti / Tekstas / Formatas / Nuoroda / Komentaras / Darbaknygiai / Užduotys Įrankiai ...

Kutools ekrano kopija Excel

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 · 1 months 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 · 8 days 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??