Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or

Sådan eksporteres og gemmes hvert regneark som en separat ny arbejdsbog i Excel?

Lad os sige, at du vil eksportere og gemme et eller flere regneark som en ny arbejdsbog, hvordan vil du håndtere det? Normalt kan du kopiere hvert regneark og indsætte i ny arbejdsbog. Men her giver vi dig nogle handy tricks til at håndtere det:

Eksporter og gem regneark som ny arbejdsbog med Flyt eller Kopier kommando

Eksporter og gem regneark som ny arbejdsbog med VBA-kode

Eksporter og gem regneark som ny arbejdsbog med Kutools for Excel god idé3


Hurtigt opdele flere regneark i separat arbejdsmappe i Excel

I Microsoft Excel kan du gemme eller opdele et regneark fra en projektmappe som en ny Excel-fil ved at kopiere og indsætte dette regneark i en ny arbejdsbog. Det virker generende, hvis du vil opdele hvert ark / regneark i en stor projektmappe som separate Excel, Txt, CSV, PDF-filer. Men med Kutools til Excel's Opdelt arbejdsbog nytteværdi, du kan hurtigt håndtere det. Klik for 60-dages gratis prøveversion med fulde funktioner!
doc delt arbejdsbog 1
Kutools for Excel: med mere end 300 handy Excel-tilføjelser, gratis at prøve uden begrænsning i 60 dage.

pil blå højre boble Eksporter og gem regneark som ny arbejdsbog med Flyt eller Kopier kommando


Brug af Flyt eller Kopier kommando hjælper dig med at eksportere eller kopiere et eller flere regneark til en ny arbejdsbog hurtigt.

Trin 1: Vælg regnearknavne i fanebladet. Du kan vælge flere ved at holde nede Ctrl nøgle eller skifte nøgle.

Trin 2: Højreklik på regnearkets navn, og klik på Flyt eller Kopier fra kontekstmenuen.
doc eksportark 1

Trin 3: I Flyt eller Kopier dialogboksen, vælg den (ny bog) element fra rullemenuen over Flyt valgte ark til bog.

doc eksportark 2

Trin 4: Klik derefter på OK, nu har du skiftet til ny arbejdsbog Med eksporterede eller kopierede regneark skal du klikke på filet > Gem for at gemme den nye projektmappe.

Bemærk: i Flyt eller Kopier dialogboksen er der en Opret en kopi mulighed. Hvis du ikke kontrollerer det, flytter den de valgte regneark ud af den originale arbejdsbog; hvis tjekke det, vil det kopiere udvalgte regneark.


pil blå højre boble Eksporter og gem regneark som ny arbejdsbog med VBA-kode

Denne følgende kode eksporterer hvert synligt regneark i en ny arbejdsbog og gemmer projektmappen med navnet på det originale ark i en nyoprettet mappe i samme sti som den aktive arbejdsbog. Venligst gør som følgende trin:

Trin 1: Hold nede ALT + F11 nøgler, og det åbner Microsoft Visual Basic til applikationer vindue.

Trin 2: Klik indsatte > Moduler, og indsæt følgende makro i modulvinduet:

VBA: Eksporter og gem regneark som ny arbejdsbog i en ny mappe.

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

Trin 3: Tryk på F5 nøgle til at køre denne kode. Og en hurtig boks vil dukke op for at fortælle placeringen af ​​de nye eksporterede arbejdsbøger, og alle regnearkene i den originale projektmappe er blevet eksporteret til nogle nye separate arbejdsbøger, der hedder originale ark i en ny specifik mappe. Se skærmbilleder:

doc eksportark 7

pil blå højre boble Eksporter og gem regneark som ny arbejdsbog med Kutools for Excel

Hvis du har flere regneark, der skal gemmes som en separat arbejdsbog, kan den første metode ikke være et godt valg. Og VBA-koden er måske lidt kompliceret for Excel-begyndere. Her kan du bruge Opdelt arbejdsbog nytte af Kutools til Excel for hurtigt og nemt at eksportere og gemme hvert regneark i en projektmappe for at adskille ny arbejdsbog.

Kutools til Excel, med mere end 300 Praktiske funktioner gør jobbet lettere.

Efter gratis installation Kutools for Excel, gør venligst som nedenfor:

Trin 1: Klik Kutools Plus > Workbook > Split arbejdsbog .... Se skærmbillede:
doc eksportark 3

Trin 2: I Opdelt arbejdsbog dialogboksen, gør som nedenfor:

doc eksportark 4
1: Alle regnearknavne er som standard blevet tjekket, hvis du ikke vil dele nogle af regnearkene, kan du fjerne markeringen af ​​dem.


2: Hvis du vil undgå at opdele de skjulte eller blanke regneark, kan du tjekke Spring over skjulte regneark or Spring over tomme regneark.);


3: og også du kan tjekke Angiv gemme format og for at vælge opdeling af arkene, gem derefter som tekstfil, pdf-fil eller csv-fil, hvis du ikke kontrollerer denne indstilling, deler den ark og gemmer som arbejdsbog.

Trin 3: Klik derefter på Dele knappen, og vælg den mappe, du vil sætte de nye arbejdsbøger til. Se skærmbillede:
doc eksportark 6

Trin 4: Og klik derefter på OK, derefter hvert tjekket regneark i Opdelt arbejdsbog dialogboksen eksporteres og gemmes som individuel projektmappe. Hver ny arbejdsbog hedder det originale regnearks navn. Se skærmbillede:
doc eksportark 5

Klik for at vide mere information om dette Split Workbook-værktøj.

pil blå højre boble Eksporter og gem hvert ark som ny arbejdsbog


Hurtigt opdele data i flere regneark baseret på kolonne eller faste rækker i Excel

Hvis du antager, at du har et regneark, der har data i kolonne A til G, er sælgerens navn i kolonne A, og du skal automatisk dele disse data i flere regneark baseret på kolonne A i samme arbejdsbog, og hver sælger bliver splittet i en ny regneark. Kutools til Excel's Opdelt dato hjælpeprogrammet kan hjælpe dig med hurtigt at opdele data i flere regneark baseret på valgt kolonne som nedenstående skærmbillede vist i Excel. Klik for den komplette 60-dages gratis prøveversion!
doc split data 2
Kutools for Excel: med mere end 300 handy Excel-tilføjelser, gratis at prøve uden begrænsning i 60 dage.

Relaterede artikler:



Anbefalede produktivitetsværktøjer

Office-fanen

guld star1 Medbring praktiske faner til Excel og andre Office-software, ligesom Chrome, Firefox og nye Internet Explorer.

Kutools til Excel

guld star1Fantastiske! Forøg din produktivitet i 5 minutter. Har ikke brug for særlige færdigheder, spar to timer hver dag!

guld star1300 Nye funktioner til Excel, gør Excel meget nemt og kraftfuldt:

  • Fusionere celler / rækker / kolonner uden at miste data.
  • Kombiner og konsolidér flere ark og arbejdsbøger.
  • Sammenlign ranges, kopier flere rækker, konverter tekst til dato, enheds- og valutaomregning.
  • Tæl efter farver, Personsøgning Subtotaler, Avanceret Sort og Super Filter,
  • Mere Vælg / Indsæt / Slet / Tekst / Format / Link / Kommentar / Arbejdsbøger / Regneark Værktøjer ...

Skærmbillede af Kutools til 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.
    Eunice · 1 years ago
    Hi Sunny,

    Thank you for sharing this code!

    I keep getting this error "Compile Error: Wrong number of arguments or invalid property assignment" at the "format" portion of the following string:

    DateString = format(Now, "yyyy-mm-dd hh-mm-ss")
  • To post as a guest, your comment is unpublished.
    Mario · 1 years ago
    Hi, I use this VBA code all the time to separate commission statements into individual spreadsheets. Is it possible to add a line to the code so it will automatically email the report to each person using outlook?
  • To post as a guest, your comment is unpublished.
    RD Raajput · 1 years ago
    i cant find enterprise toolbar kindly help me
  • To post as a guest, your comment is unpublished.
    RD Raajput · 1 years ago
    this code cahnge dates in my sheets
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      What dates have been changed? The modified dates? The Enterprise tab will be appeared after installing Kutools for Excel.
  • To post as a guest, your comment is unpublished.
    Isuru · 1 years ago
    xWs.Copy line comes up with an error in my case with 2016 "Method 'Copy of object'_Worksheet' failed.
    Please suggest me a correction if possible.
    • To post as a guest, your comment is unpublished.
      Sunny · 1 years ago
      Sorry, I have no idea about your problem.