Tips: Andre språk er Google-oversatt. Du kan besøke English versjon av denne lenken.
Logg inn
x
or
x
x
Registrere
x

or

Hvordan eksporteres og lagres hvert regneark som en egen ny arbeidsbok i Excel?

La oss si at du vil eksportere og lagre ett eller flere regneark som en ny arbeidsbok, hvordan vil du takle det? Vanligvis kan du kopiere hvert regneark og lime inn til ny arbeidsbok. Men her tar vi deg med noen praktiske triks for å håndtere det:

Eksporter og lag regneark som ny arbeidsbok med Flytt eller Kopier-kommando

Eksporter og lagre regneark som ny arbeidsbok med VBA-kode

Eksporter og lag regneark som ny arbeidsbok med Kutools for Excel god idé3


Raskt dele flere regneark i separat arbeidsbok i Excel

I Microsoft Excel kan du lagre eller dele et regneark fra en arbeidsbok som en ny Excel-fil ved å kopiere og lime inn dette regnearket i en ny arbeidsbok. Det virker plagsom hvis du vil dele hvert ark / regneark i en stor arbeidsbok som separate Excel, Txt, CSV, PDF-filer. Men med Kutools for Excel'S Split arbeidsbok verktøy, kan du raskt takle det. Klikk for 60-dagers gratis prøveversjon med fulle funksjoner!
doc delt arbeidsbok 1
Kutools for Excel: med mer enn 300 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60-dager.

pil blå høyre boble Eksporter og lag regneark som ny arbeidsbok med Flytt eller Kopier-kommando


Bruke Flytt eller Kopier Kommandoen hjelper deg med å eksportere eller kopiere et eller flere regneark til en ny arbeidsbok raskt.

Trinn 1: Velg regnearknavnene i fanen. Du kan velge flere ved å holde nede Ctrl nøkkel eller skift nøkkel.

Trinn 2: Høyreklikk på regnearknavnet, og klikk på Flytt eller Kopier fra kontekstmenyen.
doc eksportark 1

Trinn 3: I Flytt eller Kopier dialogboksen, velg (ny bok) element fra rullegardinlisten over Flytt valgte ark for å bestille.

doc eksportark 2

Trinn 4: Klikk deretter OK, nå har du byttet til ny arbeidsbok med eksporterte eller kopierte regneark, klikk filet > Lagre for å lagre den nye arbeidsboken.

Merk:Flytt eller Kopier dialogboksen, det er en Lag en kopi alternativ. Hvis du ikke sjekker det, flyttes det valgte regneark ut av original arbeidsbok hvis sjekk det, vil det kopiere utvalgte regneark.


pil blå høyre boble Eksporter og lagre regneark som ny arbeidsbok med VBA-kode

Denne følgende koden vil eksportere hvert synlig regneark i en ny arbeidsbok og lagre arbeidsboken med navnet på det opprinnelige arket i en nylig opprettet mappe i samme bane som den aktive arbeidsboken. Vennligst gjør følgende trinn:

Trinn 1: Hold nede ALT + F11 nøkler, og den åpner Microsoft Visual Basic for Applications vinduet.

Trinn 2: Klikk innfelt > Modules, og lim inn følgende makro i modulvinduet:

VBA: Eksporter og lag regneark som ny arbeidsbok 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

Trinn 3: Trykk på F5 nøkkel for å kjøre denne koden. Og en ledig boks vil dukke opp for å fortelle deg plasseringen av de nye eksporterte arbeidsbøkene, og alle regnearkene i den opprinnelige arbeidsboken har blitt eksportert til noen nye separate arbeidsbøker som heter opprinnelige ark i en ny bestemt mappe. Se skjermbilder:

doc eksportark 7

pil blå høyre boble Eksporter og lag regneark som ny arbeidsbok med Kutools for Excel

Hvis du har flere regneark som trengs for å bli lagret som en egen arbeidsbok, kan den første metoden ikke være et godt valg. Og VBA-koden er kanskje litt komplisert for Excel-nybegynnere. Her kan du bruke Split arbeidsbok nytte av Kutools for Excel for raskt og enkelt å eksportere og lagre hvert regneark i en arbeidsbok for å skille ny arbeidsbok.

Kutools for Excel, med mer enn 300 Hendige funksjoner, gjør jobbene lettere.

Etter gratis installering Kutools for Excel, vennligst gjør som nedenfor:

Trinn 1: Klikk Kutools More > Arbeidsbok > Split arbeidsbok .... Se skjermbilde:
doc eksportark 3

Trinn 2: I Split arbeidsbok dialogboksen, gjør som nedenfor:

doc eksportark 4
1: Alle navnene på regnearket er standard sjekket, hvis du ikke vil dele noen av regnearkene, kan du fjerne merket av dem.


2: Hvis du vil unngå å dele de skjulte eller tomme regnearkene, kan du sjekke Hopp over skjulte regneark or Hopp over tomme regneark.);


3: og du kan også sjekke Angi lagre format, og for å velge å dele arkene, lagre det som tekstfil, pdf-fil eller csv-fil, hvis du ikke sjekker dette alternativet, vil det dele ark og lagre som arbeidsbok.

Trinn 3: Klikk deretter Dele knappen, og velg mappen du vil sette de nye arbeidsbøkene til. Se skjermbilde:
doc eksportark 6

Trinn 4: Og klikk deretter OK, deretter hvert kontrollert regneark i Split arbeidsbok dialogboksen eksporteres og lagres som individuell arbeidsbok. Hver ny arbeidsbok er oppkalt med det opprinnelige regnearknavnet. Se skjermbilde:
doc eksportark 5

Klikk for å vite mer informasjon om dette Split arbeidsbokverktøyet.

pil blå høyre boble Eksporter og lagre hvert ark som ny arbeidsbok


Del data raskt i flere regneark basert på kolonne eller faste rader i Excel

Hvis du antar at du har et regneark som har data i kolonne A til G, er selgerens navn i kolonne A, og du må automatisk dele disse dataene i flere regneark basert på kolonne A i samme arbeidsbok og hver selger blir splittet inn i en ny regneark. Kutools for Excel'S Split Date verktøyet kan hjelpe deg med å raskt dele data i flere regneark basert på valgt kolonne som under skjermbilde vist i Excel. Klikk for fullverdig 60-dagers gratis prøveversjon!
doc delt data 2
Kutools for Excel: med mer enn 300 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60-dager.

Relaterte artikler:



Anbefalte produktivitetsverktøy

Office-fanen

gull star1 Ta med praktiske faner til Excel og annen Office-programvare, akkurat som Chrome, Firefox og ny Internet Explorer.

Kutools for Excel

gull star1Fantastisk! Øk produktiviteten din i 5 minutter. Trenger ikke noen spesielle ferdigheter, lagre to timer hver dag!

gull star1300 Nye funksjoner for Excel, gjør Excel veldig enkelt og kraftig:

  • Slett Cell / Rows / Columns uten å miste data.
  • Kombinere og konsolidere flere ark og arbeidsbøker.
  • Sammenlign Ranges, Kopier flere ranger, Konverter tekst til dato, Enhet og Valutaomregning.
  • Telling av farger, personsøkende subtotaler, avansert sortering og superfilter,
  • Mer Velg / Sett inn / Slett / Tekst / Format / Link / Kommentar / Arbeidsbøker / Regneark Verktøy ...

Skjermbilde av Kutools for 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 · 2 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??