Kako izvoziti in shraniti vsak delovni list kot ločen nov delovni zvezek v Excelu?

Recimo, da želite izvoziti in shraniti enega ali več delovnih listov kot nov delovni zvezek, kako se boste z njim spopadli? Običajno lahko kopirate vsak delovni list in prilepite v nov delovni zvezek. Tu pa vam ponujamo nekaj priročnih trikov, s katerimi se lahko spopadete:

Shranite delovne liste kot nov delovni zvezek enega za drugim z ukazom Premakni ali Kopiraj

Uporaba Premakni ali Kopiraj Ukaz vam bo pomagal hitro izvoziti ali kopirati enega ali več delovnih listov v nov delovni zvezek.

1. korak: V vrstici z zavihki izberite imena delovnih listov. Izberete lahko več z držanjem Ctrl ključ ali premik ključ.

2. korak: Z desno miškino tipko kliknite ime delovnega lista in kliknite Premakni ali Kopiraj iz kontekstnega menija.

3. korak: noter Premakni ali Kopiraj v pogovornem oknu izberite (nova knjiga) s spustnega seznama Premaknite izbrane liste v knjigo.

4. korak: Nato kliknite OK, zdaj ste prešli na nov delovni zvezek z izvoženimi ali kopiranimi delovnimi listi kliknite file > Shrani shranite nov delovni zvezek.

Opomba: v Premakni ali Kopiraj pogovorno okno, obstaja Ustvari kopijo možnost. Če tega ne preverite, bo izbrane delovne liste premaknil iz prvotnega delovnega zvezka; če ga označite, bo kopiral izbrane delovne liste.

Preprosto paketno shranjevanje delovnih listov kot novega delovnega zvezka s programom Kutools for Excel

Če imate več delovnih listov, ki jih je treba shraniti kot ločen delovni zvezek, prva metoda ni dobra izbira. In spodnja koda VBA je morda nekoliko zapletena za začetnike Excela. Tukaj lahko uporabite Razdeljeni delovni zvezek uporabnost Kutools za Excel za preprosto paketno shranjevanje vsakega delovnega lista enega delovnega zvezka za ločeno novo delovno zvezko.

Po namestitvi Kutools za Excel, Kliknite Kutools Plus > Delovni zvezek > Razdeljeni delovni zvezek da odprete Razdeljeni delovni zvezek pogovorno okno. In nato konfigurirajte na naslednji način.

1. Preverite delovne liste, ki jih želite shraniti kot nove delovne zvezke. Privzeto so označeni vsi delovni listi.
2. Skrite in prazne delovne liste lahko preskočite tako, da potrdite ustrezna potrditvena polja v možnosti oddelek.
3. klik OK.

   

4. A Izberite mapo se prikaže pogovorno okno, nato morate izbrati ciljno mapo za shranjevanje novih delovnih zvezkov in klikniti Izberite mapo gumb.

Nato bodo navedeni delovni listi ali vsi delovni listi takoj shranjeni kot ločeni novi delovni zvezki.

Izvozite in shranite delovne liste kot nov delovni zvezek s kodo VBA

Ta naslednja koda bo izvozila vsak vidni delovni list v nov delovni zvezek in shranila delovni zvezek z imenom izvirnega lista v novo ustvarjeno mapo na isti poti kot aktivni delovni zvezek. Naredite naslednje:

Korak 1: Držite pritisnjeno ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

Korak 2: kliknite Vstavi > Moduliin v okno modula prilepite naslednji makro:

VBA: Izvozite in shranite delovne liste kot nov delovni zvezek v novo mapo.

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

Korak 3: Pritisnite tipko F5 tipko za zagon te kode. Pojavilo se bo tudi okno za poziv, v katerem boste našli lokacijo novih izvoženih delovnih zvezkov, vsi delovni listi izvirnega delovnega zvezka pa so bili izvoženi v nekatere nove ločene delovne zvezke, ki so izvirne liste poimenovali v novi posebni mapi. Oglejte si posnetke zaslona:

Izvozite in shranite vsak list kot nov delovni zvezek

Sorodni članki:

• Združite več delovnih zvezkov v en delovni zvezek
• Shranite izbor kot posamezno datoteko
• Razdelite delovni zvezek, da ločite Excelove datoteke