Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe kan jy elke werkblad as aparte nuwe werkboek in Excel eksporteer en stoor?

Kom ons sê jy wil een of meer werkkaarte uitvoer en stoor as 'n nuwe werkboek. Hoe sal jy dit hanteer? Gewoonlik kan u elke werkblad kopieer en na nuwe werkboek plak. Maar hier bring ons jou handige truuks om dit te hanteer:

Uitvoer en stoor werkkaarte as nuwe werkboek met die skuif of kopieer opdrag

Uitvoer en stoor werkkaarte as nuwe werkboek met VBA-kode

Uitvoer en stoor werkkaarte as nuwe werkboek met Kutools vir Excel goeie idee3


Vinnig verdeel verskeie werkkaarte in aparte werkboek in Excel

In Microsoft Excel kan u 'n werkblad van 'n werkboek as 'n nuwe Excel-lêer stoor of verdeel deur hierdie werkkaart te kopieer en in 'n nuwe werkboek te plak. Dit lyk moeilik om elke blad / werkblad van 'n groot werkboek as aparte Excel-, txt-, csv-, pdf-lêers te verdeel. Maar met Kutools for Excel'N Gesplete werkboek nut, jy kan dit vinnig hanteer. Kliek vir 60 dae gratis proeflopie met volle funksies!
doc verdeel werkboek 1
Kutools vir Excel: met meer as 300 handige Excel invoegtoepassings, kan u sonder beperking in 60 dae probeer.

pyl blou regte borrel Uitvoer en stoor werkkaarte as nuwe werkboek met die skuif of kopieer opdrag


Die gebruik van die Skuif of Kopieer Opdrag sal u help om een ​​of verskeie werkkaarte vinnig na 'n nuwe werkboek te eksporteer of te kopieer.

Stap 1: Kies die werkblad name in die oortjie balk. Jy kan meer kies as jy hou Ctrl sleutel of skuif sleutel.

Stap 2: Klik regs op die werkblad naam en klik op die Skuif of Kopieer uit konteks kieslys.
doc export sheets 1

Stap 3: In Skuif of Kopieer dialoogkassie, kies die (nuwe boek) item uit die aftreklys van Skuif geselekteerde velle om te boek.

doc export sheets 2

Stap 4: Klik dan OK, nou het jy oorgeskakel na die nuwe werkboek Met uitgevoerde of gekopieerde werkkaarte, klik File > Stoor om die nuwe werkboek te stoor.

let wel: In die Skuif of Kopieer dialoogkassie, daar is 'n Skep 'n kopie opsie. As u dit nie nagaan nie, sal dit die geselekteerde werkkaarte uit oorspronklike werkboek verskuif. as dit gekontroleer word, sal dit geselekteerde werkkaarte kopieer.


pyl blou regte borrel Uitvoer en stoor werkkaarte as nuwe werkboek met VBA-kode

Hierdie volgende kode sal elke sigbare werkblad in 'n nuwe werkboek uitvoer en die werkboek stoor met die naam van die oorspronklike blad in 'n nuutgeskepte gids in dieselfde pad as die aktiewe werkboek. Doen asseblief as volg stappe:

Stap 1: Hou die ALT + F11 sleutels, en dit maak die Microsoft Visual Basic vir toepassings venster.

Stap 2: Kliek Plaas > module, en plak die volgende makro in die Module-venster:

VBA: Uitvoer en stoor werkkaarte as nuwe werkboek in 'n nuwe gids.

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

Stap 3: Druk die F5 sleutel om hierdie kode uit te voer. En 'n vinnige blokkie sal opduik om die ligging van die nuwe uitgevoerde werkboeke te vertel en al die werkkaarte van die oorspronklike werkboek is na sekere nuwe afsonderlike werkboeke uitgevoer wat oorspronklike velle in 'n nuwe spesifieke vouer genoem word. Sien skermkiekies:

doc export sheets 7

pyl blou regte borrel Uitvoer en stoor werkkaarte as nuwe werkboek met Kutools vir Excel

As u verskeie werkkaarte benodig om as aparte werkboek gestoor te word, kan die eerste metode nie 'n goeie keuse wees nie. En die VBA-kode is dalk 'n bietjie ingewikkeld vir Excel-beginners. Hier kan jy die Gesplete werkboek nut van Kutools for Excel Om vinnig en maklik elke werkblad van 'n werkboek uit te voer en te stoor om 'n nuwe werkboek te skei.

Kutools for Excel, met meer as 300 handige funksies, maak jou werk makliker.

Na gratis installeer Kutools vir Excel, doen asseblief soos hieronder:

Stap 1: Kliek Kutools Plus > werkboek > Gesplete werkboek .... Sien skermkiekie:
doc export sheets 3

Stap 2: In die Gesplete werkboek dialoogkassie, doen soos hieronder:

doc export sheets 4
1: al die werkkaartname is standaard nagegaan, as u nie van die werkkaarte wil verdeel nie, kan u dit ontmerk.


2: As jy die versteekte of leë werkkaarte wil verdeel, kan jy die Slaan verborge werkkaarte oor or Slaan leë werkblaaie oor.);


3: en ook jy kan kyk Spesifiseer red formaat, en om die lakens te verdeel, dan stoor as tekslêer, pdf-lêer of csv-lêer, in defualt. As u hierdie opsie nie nagaan nie, sal dit lakens verdeel en as werkboek stoor.

Stap 3: Klik dan Split knoppie, en kies die gids waarin u die nuwe werkboeke wil plaas. Sien skermkiekie:
doc export sheets 6

Stap 4: En klik dan OK, dan het elke werkblad in die Gesplete werkboek dialoogkassie word uitgevoer en gestoor as individuele werkboek. Elke nuwe werkboek word genoem met die oorspronklike werkblad naam. Sien skermkiekie:
doc export sheets 5

Kliek om meer inligting oor hierdie Split Werkboek-instrument te leer ken.

pyl blou regte borrel Uitvoer en stoor elke vel as nuwe werkboek


Vinnig verdeel data in verskeie werkkaarte gebaseer op kolom- of vaste rye in Excel

Gestel jy het 'n werkblad wat data in kolomme A tot G bevat, is die naam van die handelaar in kolom A en jy moet hierdie data outomaties in verskillende werkkaarte verdeel op grond van die kolom A in dieselfde werkboek en elke verkoopsman sal in 'n nuwe werkblad. Kutools for Excel'N Verdeeldatum nut kan u help om vinnig data in verskeie werkkaarte te verdeel, gebaseer op geselekteerde kolom soos hieronder aangedui in Excel. Kliek vir volledige 60 dae gratis proeflopie!
doc split data 2
Kutools vir Excel: met meer as 300 handige Excel invoegtoepassings, kan u sonder beperking in 60 dae probeer.

Verwante artikels:



Aanbevole Produktiviteitsinstrumente

Office Tab

goud star1 Bring handige oortjies na Excel en ander Office-sagteware, net soos Chrome, Firefox en nuwe Internet Explorer.

Kutools for Excel

goud star1Amazing! Verhoog jou produktiwiteit in 5 minute. Geen spesiale vaardighede nodig nie, bespaar twee uur elke dag!

goud star1300 Nuwe funksies vir Excel, maak Excel baie maklik en kragtig:

  • Voeg sel / Rye / Kolomme saam sonder om data te verloor.
  • Kombineer en konsolideer veelvuldige blaaie en werkboeke.
  • Vergelyk waardes, Kopieer verskeie reekse, skakel teks na datum, Eenheid en Geld Omskakeling.
  • Tel deur kleure, plasingsubtotale, gevorderde sorteer en superfilter,
  • Meer Kies / Invoeg / Skrap / Teks / Formaat / Skakel / Kommentaar / Werkboeke / Werkkaarte Gereedskap ...

Skermskoot van Kutools vir 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 · 5 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??