Hvordan eksporteres og gemmes hvert regneark som separat ny projektmappe i Excel?
Lad os sige, at du vil eksportere og gemme et eller flere regneark som en ny projektmappe, hvordan vil du håndtere det? Normalt kan du kopiere hvert regneark og indsætte i en ny projektmappe. Men her bringer vi dig nogle nyttige tricks til at håndtere det:
Eksporter og gem regneark som en ny projektmappe med kommandoen Flyt eller Kopi
Eksporter og gem regneark som ny projektmappe med VBA-kode
Eksporter og gem regneark som ny projektmappe med Kutools til Excel
Eksporter og gem regneark som en ny projektmappe med kommandoen Flyt eller Kopi
Brug af Flyt eller Kopier kommando hjælper dig med hurtigt at eksportere eller kopiere et eller flere regneark til en ny projektmappe.
Trin 1: Vælg regnearknavne i fanebjælken. 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 genvejsmenuen.
Trin 3: I Flyt eller Kopier dialogboksen skal du vælge (ny bog) element fra rullelisten over Flyt valgte ark til bog.
Trin 4: Klik derefter på OK, nu er du skiftet til ny projektmappe med eksporterede eller kopierede regneark skal du klikke på File (Felt) > Gem for at gemme den nye projektmappe.
Bemærk: I Flyt eller Kopier dialogboksen, er der en Opret en kopi mulighed. Hvis du ikke markerer det, flytter det de valgte regneark ud af den originale projektmappe. hvis du markerer det, kopieres det valgte regneark.
Opdel hurtigt flere regneark i separat projektmappe 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 projektmappe. Det virker besværligt, 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 værktøj, kan du hurtigt håndtere det. Klik for 30 dages gratis prøveperiode med alle funktioner! |
Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Eksporter og gem regneark som ny projektmappe med VBA-kode
Denne følgende kode eksporterer hvert synligt regneark i en ny projektmappe og gemmer projektmappen med navnet på det originale ark i en nyoprettet mappe i samme sti som den aktive projektmappe. Gør som følger:
Trin 1: Hold nede ALT + F11 tasterne, 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 projektmappe i en ny mappe.
Sub SplitWorkbook()
'Updateby20200806
Dim FileExtStr As String
Dim FileFormatNum As Long
Dim xWs As Worksheet
Dim xWb As Workbook
Dim xNWb 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
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
MkDir FolderName
For Each xWs In xWb.Worksheets
On Error GoTo NErro
If xWs.Visible = xlSheetVisible Then
xWs.Select
xWs.Copy
xFile = FolderName & "\" & xWs.Name & FileExtStr
Set xNWb = Application.Workbooks.Item(Application.Workbooks.Count)
xNWb.SaveAs xFile, FileFormat:=FileFormatNum
xNWb.Close False, xFile
End If
NErro:
xWb.Activate
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 der vises en hurtigboks for at fortælle dig placeringen af de nye eksporterede projektmapper, og alle regnearkene i den originale projektmappe er eksporteret til nogle nye separate projektmapper, der navngiver originale ark i en ny specifik mappe. Se skærmbilleder:
Eksporter og gem regneark som ny projektmappe med Kutools til Excel
Hvis du har flere regneark, der skal gemmes som separat projektmappe, kan den første metode ikke være et godt valg. Og VBA-koden 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 projektmappe.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. | ||
Efter gratis installation Kutools til Excel, gør venligst som nedenfor:
Trin 1: Klik Kutools Plus > Workbook > Opdel arbejdsbog .... Se skærmbillede:
Trin 2: I Opdelt arbejdsbog dialogboks, gør som nedenfor:
2: Hvis du vil undgå at opdele de skjulte eller tomme regneark, kan du kontrollere Spring skjulte regneark over or Spring blanke regneark over.);
3: og du kan også kontrollere Angiv gem format, og for at vælge opdele arkene, gem derefter som tekstfil, pdf-fil eller csv-fil, i defualt. Hvis du ikke markerer denne mulighed, deler den ark og gemmes som projektmappe.
Trin 3: Klik derefter på Dele knappen, og vælg den mappe, du vil placere de nye projektmapper i. Se skærmbillede:
Trin 4: Og klik derefter på OKderefter hvert afkrydsede regneark i Opdelt arbejdsbog dialogboksen eksporteres og gemmes som individuel projektmappe. Hver nye projektmappe er navngivet med det originale regnearknavn. Se skærmbillede:
Klik for at få flere oplysninger om dette Split Workbook-værktøj.
Eksporter og gem hvert ark som ny projektmappe
Del hurtigt data i flere regneark baseret på kolonne eller faste rækker i Excel
|
Antag at du har et regneark, der har data i kolonne A til G, sælgerens navn er i kolonne A, og du skal automatisk opdele disse data i flere regneark baseret på kolonne A i den samme projektmappe, og hver sælger bliver opdelt i en ny regneark. Kutools til Excel's Opdel dato hjælpeprogram kan hjælpe dig med hurtigt at opdele data i flere regneark baseret på den valgte kolonne som vist nedenfor i Excel. Klik for fuld 30 dages gratis prøveperiode! |
Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. |
Relaterede artikler:
- Kombiner flere projektmapper til en enkelt projektmappe
- Gem et valg som individuel fil
- Del en projektmappe for at adskille Excel-filer
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!