Excel'de her bir çalışma sayfasını ayrı yeni bir çalışma kitabı olarak nasıl dışa aktarır ve kaydedersiniz?

Excel'de bireysel çalışma sayfalarını ayrı çalışma kitapları olarak dışa aktarmak ve kaydetmek, özellikle veri paylaşımı veya düzenlemesi sırasında sıkça yapılan bir işlemdir. Çalışma sayfalarını yeni çalışma kitaplarına manuel olarak kopyalayıp yapıştırmak mümkün olsa da, özellikle çok sayfalı çalışma kitaplarında bu yöntem oldukça zahmetli ve zaman alıcı olabilir. Bu rehberde, ihtiyacınıza ve deneyim seviyenize göre en uygun çözümü seçebilmeniz için adım adım birkaç farklı yöntemi inceleyeceğiz.

Çalışma sayfalarını "Taşı veya Kopyala" komutuyla tek tek yeni bir çalışma kitabı olarak kaydedin

"Taşı veya Kopyala" komutunu kullanarak bir veya birden fazla çalışma sayfasını hızlıca yeni bir çalışma kitabına dışa aktarabilir veya kopyalayabilirsiniz.

Adım1: Sekme çubuğundan çalışma sayfası adlarını seçin. Birden fazla çalışma sayfası seçmek için "Ctrl" tuşunu basılı tutarak sayfa sekmelerine tek tek tıklayın.

Adım2: Çalışma sayfası adına sağ tıklayın ve açılan menüden "Taşı veya Kopyala" seçeneğine tıklayın.

Adım3: "Taşı veya Kopyala" iletişim kutusunda, "Seçili çalışma sayfalarını kitaba taşı" açılır listesinden "(yeni kitap)" seçeneğini seçin.

Adım4: Ardından "Tamam"a tıklayın; şimdi dışa aktarılan veya kopyalanan çalışma sayfalarıyla birlikte "yeni çalışma kitabına" geçmiş olacaksınız. Yeni çalışma kitabını kaydetmek için "Dosya" > "Kaydet" seçeneğini kullanın.

Not: "Taşı veya Kopyala" iletişim kutusunda "Bir kopyasını oluştur" seçeneği bulunur. Bu seçeneği işaretlemezseniz, seçili çalışma sayfaları orijinal çalışma kitabından taşınır; işaretlerseniz, seçili çalışma sayfalarının bir kopyası oluşturulur.

Kutools for Excel ile çalışma sayfalarını toplu olarak kolayca yeni bir çalışma kitabı olarak kaydedin

Birden fazla çalışma sayfasını ayrı çalışma kitapları olarak kaydetmeniz gerekiyorsa, ilk yöntem uygun olmayabilir. Ayrıca, aşağıdaki VBA kodu Excel'e yeni başlayanlar için biraz karmaşık olabilir. Burada, "Kutools for Excel"in "Çalışma Kitabını Ayır" özelliğini kullanarak bir çalışma kitabındaki her bir çalışma sayfasını kolayca toplu olarak ayrı yeni çalışma kitaplarına kaydedebilirsiniz.

Kutools for Excel'i yükledikten sonra, "Kutools Plus" > "Çalışma Kitabı" > "Çalışma Kitabını Ayır" seçeneğine tıklayarak "Çalışma Kitabını Ayır" iletişim kutusunu açın. Ardından aşağıdaki gibi yapılandırın.

1. Yeni çalışma kitabı olarak kaydetmek istediğiniz çalışma sayfalarını işaretleyin. Varsayılan olarak tüm çalışma sayfaları seçilidir.
2. "Seçenekler" bölümündeki ilgili kutucukları işaretleyerek gizli ve boş çalışma sayfalarını atlamak isteğe bağlıdır.
3. "Tamam"a tıklayın.

   

4. Bir "Klasör Seçin" iletişim kutusu açılır; yeni çalışma kitaplarını kaydetmek için bir hedef klasör seçin ve "Klasör Seçin" düğmesine tıklayın.

Belirttiğiniz çalışma sayfaları veya tüm çalışma sayfaları anında ayrı yeni çalışma kitapları olarak kaydedilecektir.

VBA kodu ile çalışma sayfalarını yeni bir çalışma kitabı olarak dışa aktarın ve kaydedin

Aşağıdaki kod, her görünür çalışma sayfasını yeni bir çalışma kitabına aktaracak ve bu çalışma kitabını, etkin çalışma kitabının bulunduğu dizinde yeni oluşturulan bir klasörde, orijinal sayfa adıyla kaydedecektir. Lütfen aşağıdaki adımları izleyin:

Adım1: "ALT" + "F11" tuşlarına basılı tutun; "Microsoft Visual Basic for Applications" penceresi açılacaktır.

Adım2: "Ekle" > "Modül"e tıklayın ve aşağıdaki makroyu Modül Penceresine yapıştırın:

VBA: Çalışma sayfalarını yeni bir klasörde yeni bir çalışma kitabı olarak dışa aktarın ve kaydedin.

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

Adım3: Bu kodu çalıştırmak için "F5" tuşuna basın. Yeni dışa aktarılan çalışma kitaplarının konumunu bildiren bir uyarı kutusu açılacak ve orijinal çalışma kitabındaki tüm çalışma sayfaları, yeni oluşturulan belirli bir klasörde, orijinal sayfa adlarıyla adlandırılmış ayrı yeni çalışma kitaplarına aktarılmış olacaktır.

Demo: Her bir çalışma sayfasını yeni bir çalışma kitabı olarak dışa aktarın ve kaydedin

İlgili makaleler:

• Birden fazla çalışma kitabını tek bir çalışma kitabında birleştirin
• Bir aralığı ayrı bir dosya olarak kaydedin
• Bir çalışma kitabını ayrı Excel dosyalarına bölün