Hur exporterar jag och sparar varje kalkylblad som separat ny arbetsbok i Excel?
Låt oss säga att du vill exportera och spara ett eller flera kalkylblad som en ny arbetsbok, hur ska du hantera det? Normalt kan du kopiera varje kalkylblad och klistra in i en ny arbetsbok. Men här ger vi dig några praktiska knep för att hantera det:
Exportera och spara kalkylblad som en ny arbetsbok med kommandot Flytta eller Kopiera
Exportera och spara kalkylblad som ny arbetsbok med VBA-kod
Exportera och spara kalkylblad som ny arbetsbok med Kutools för Excel
Exportera och spara kalkylblad som en ny arbetsbok med kommandot Flytta eller Kopiera
Använda Flytta eller Kopiera kommandot hjälper dig att snabbt exportera eller kopiera ett eller flera kalkylblad till en ny arbetsbok.
Steg 1: Välj kalkylbladets namn i flikfältet. Du kan välja flera genom att hålla ned ctrl nyckel eller skifta nyckel.
Steg 2: Högerklicka på kalkylbladets namn och klicka på Flytta eller Kopiera från snabbmenyn.
Steg 3: In Flytta eller Kopiera dialogrutan väljer du (ny bok) objekt från rullgardinsmenyn Flytta valda ark till bok.
Steg 4: Klicka sedan på OK, nu har du bytt till ny arbetsbok med exporterade eller kopierade kalkylblad, klicka på Fil > Save för att spara den nya arbetsboken.
Notera: I Flytta eller Kopiera dialogrutan finns en Skapa en kopia alternativ. Om du inte markerar det flyttar det de valda kalkylbladen ur den ursprungliga arbetsboken. om du markerar det kommer det att kopiera valda kalkylblad.
Dela snabbt upp flera kalkylblad i separat arbetsbok i Excel
|
I Microsoft Excel kan du spara eller dela ett kalkylblad från en arbetsbok som en ny Excel-fil genom att kopiera och klistra in detta kalkylblad i en ny arbetsbok. Det verkar besvärligt om du vill dela upp varje ark / kalkylblad i en stor arbetsbok som separata Excel-, txt-, csv-, pdf-filer. Men med Kutools för ExcelÄr Dela arbetsbok verktyg kan du snabbt hantera det. Klicka för 30 dagars gratis provperiod med alla funktioner! |
Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. |
Exportera och spara kalkylblad som ny arbetsbok med VBA-kod
Den här följande koden exporterar alla synliga kalkylblad i en ny arbetsbok och sparar arbetsboken med namnet på originalarket i en nyskapad mapp i samma sökväg som den aktiva arbetsboken. Gör så här:
Steg 1: Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.
Steg 2: Klicka Insert > Modulernaoch klistra in följande makro i modulfönstret:
VBA: Exportera och spara kalkylblad som ny arbetsbok i en ny mapp.
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
Steg 3: Tryck på F5 nyckel för att köra den här koden. Och en snabbruta dyker upp för att berätta platsen för de nya exporterade arbetsböckerna, och alla kalkylblad i den ursprungliga arbetsboken har exporterats till några nya separata arbetsböcker som namngav originalark i en ny specifik mapp. Se skärmdumpar:
Exportera och spara kalkylblad som ny arbetsbok med Kutools för Excel
Om du har flera kalkylblad som behövs för att sparas som separat arbetsbok kan den första metoden inte vara ett bra val. Och VBA-koden kanske lite komplicerad för Excel-nybörjare. Här kan du använda Dela arbetsbok nytta av Kutools för Excel för att snabbt och enkelt exportera och spara varje kalkylblad i en arbetsbok för att separera ny arbetsbok.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. | ||
Efter gratis installation Kutools för Excel, gör så här:
Steg 1: Klicka Kutools Plus > Arbetsbok > Dela arbetsbok .... Se skärmdump:
Steg 2: I Dela arbetsbok dialogrutan, gör som nedan:
2: Om du vill undvika att dela dolda eller tomma kalkylblad kan du markera Hoppa över dolda kalkylblad or Hoppa över tomma kalkylblad.);
3: och du kan också kontrollera Ange spara format och för att välja dela arken och sedan spara som textfil, pdf-fil eller csv-fil, i defualt, om du inte markerar det här alternativet kommer det att dela ark och spara som arbetsbok.
Steg 3: Klicka sedan på Split och välj den mapp som du vill lägga till de nya arbetsböckerna till. Se skärmdump:
Steg 4: Och klicka sedan på OK, sedan varje kontrollerat kalkylblad i Dela arbetsbok dialogrutan exporteras och sparas som enskild arbetsbok. Varje ny arbetsbok har fått namnet på det ursprungliga kalkylbladet. Se skärmdump:
Klicka för att få mer information om detta Split Workbook-verktyg.
Exportera och spara varje ark som ny arbetsbok
Dela snabbt data i flera kalkylblad baserat på kolumn eller fasta rader i Excel
|
Om du antar att du har ett kalkylblad som har data i kolumnerna A till G, så finns säljarens namn i kolumn A och du måste automatiskt dela dessa data i flera kalkylblad baserat på kolumn A i samma arbetsbok och varje säljare kommer att delas upp i en ny kalkylblad. Kutools för ExcelÄr Delat datum verktyget kan hjälpa dig att snabbt dela upp data i flera kalkylblad baserat på vald kolumn enligt nedanstående skärmdump som visas i Excel. Klicka för en 30 dagars gratis provperiod med alla funktioner! |
Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. |
Relaterade artiklar:
- Kombinera flera arbetsböcker till en enda arbetsbok
- Spara ett val som enskild fil
- Dela en arbetsbok för att separera Excel-filer
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!