Excel'de her bir çalışma sayfasını ayrı bir Yeni Çalışma Kitabı olarak nasıl dışa aktarır ve kaydederim?
Excel'de bireysel çalışma sayfalarını ayrı çalışma kitapları olarak dışa aktarmak ve kaydetmek, özellikle verileri paylaşırken veya düzenlerken oldukça yaygındır. El ile çalışma sayfalarını yeni bir çalışma kitabına kopyalayıp yapıştırmak mümkün olsa da, özellikle çok sayıda sayfası olan dosyalarda bu yöntem hem yorucu hem de zaman alıcı olabilir. Bu kılavuzda, ihtiyaçlarınıza ve Excel konusundaki uzmanlık düzeyinize en uygun çözümü seçmeniz için birkaç yöntemi adım adım inceleyeceğiz.
Taşı veya Kopyala komutuyla çalışma sayfalarını tek tek Yeni Çalışma Kitabı olarak kaydedin
"Taşı veya Kopyala" komutu, bir veya birkaç çalışma sayfasını hızlıca yeni bir çalışma kitabına aktarmanıza ya da kopyalamanıza olanak tanır.
Adım 1: Sekme Çubuğu menüsünden “Çalışma Sayfası Adı” seçeneğini seçin. Birden fazla çalışma sayfası seçmek için “Ctrl” tuşunu basılı tutarken ilgili Sayfa Sekmelerine tek tek tıklayın.
Adım 2: Çalışma sayfası adına sağ tıklayın ve açılan bağlam menüsünden “Taşı veya Kopyala” seçeneğini seçin.
Adım 3: "Taşı veya Kopyala" iletişim kutusunda, "Çalışma kitabına taşı" açılır listesinden "(yeni kitap)" seçeneğini belirleyin.
Adım 4: Ardından “Tamam”a tıklayın; artık dışa aktarılan veya kopyalanan çalışma sayfalarıyla birlikte “Yeni Çalışma Kitabı” içindesiniz. Yeni Çalışma Kitabı dosyasını kaydetmek için “Dosya” > “Kaydet” seçeneğine tıklayın.
Not: "Taşı veya Kopyala" iletişim kutusunda "Bir kopya oluştur" seçeneği yer alır. Bu seçeneği işaretlemerseniz, Seçilen Çalışma Sayfaları orijinal çalışma kitabından taşınır; işaretlerseniz ise Seçilen Çalışma Sayfaları kopyalanır.
Kutools for Excel ile çalışma sayfalarını kolayca toplu olarak Yeni Çalışma Kitabı olarak kaydedin
Birden fazla çalışma sayfanız varsa ve bunların ayrı çalışma kitapları olarak kaydedilmesi gerekiyorsa, ilk yöntem iyi bir seçenek değildir. Ayrıca aşağıdaki VBA kodu, Excel başlangıç düzeyi kullanıcılar için biraz karmaşık olabilir. İşte tam da bu noktada "Kutools for Excel" eklentisinin "Çalışma Kitabını Ayır" yardımcı programıyla, bir çalışma kitabındaki tüm çalışma sayfalarını ayrı yeni çalışma kitapları olarak kolayca ve toplu şekilde kaydedebilirsiniz.
Kutools for Excel yüklendikten sonra, "Çalışma Kitabını Ayır" iletişim kutusunu açmak için "KUTOOLS PLUS" > "Çalışma Kitabı" > "Çalışma Kitabını Ayır" seçeneğine tıklayın. Ardından aşağıdaki gibi yapılandırın.
- Yeni bir Çalışma Kitabı olarak kaydetmek istediğiniz çalışma sayfalarını işaretleyin. Varsayılan olarak tüm çalışma sayfaları seçili gelir.
- "Seçenekler" bölümündeki ilgili onay kutularını işaretleyerek gizli ve boş çalışma sayfalarını atlamak isteğe bağlıdır.
- “Tamam” düğmesine tıklayın.
- “Klasör Seç” iletişim kutusu açılır; Yeni Çalışma Kitabı dosyalarını kaydetmek için bir hedef klasör seçtikten sonra “Klasör Seç” düğmesine tıklamanız gerekir.
Ardından, belirtilen çalışma sayfaları veya tüm çalışma sayfaları hemen ayrı bir Yeni Çalışma Kitabı olarak kaydedilecektir.
- Bu özellik, her bir çalışma sayfasını ayrı TXT, CSV veya PSF dosyası olarak kaydetmenizi sağlar. Tek yapmanız gereken, “Kaydetme Biçimini Belirt” onay kutusunu işaretleyip açılır menüden ihtiyacınız olan seçeneği seçmektir.
- Bu özelliği kullanmak için bilgisayarınızda "Kutools for Excel" yüklü olmalıdır.Kutools for Excel uygulamasını şimdi indirin.
VBA koduyla çalışma sayfalarını Yeni Çalışma Kitabı olarak dışa aktarın ve kaydedin
Aşağıdaki kod, bir Yeni Çalışma Kitabı içindeki tüm görünür çalışma sayfalarını dışa aktarır ve her birini orijinal sayfa adıyla, Geçerli Çalışma Kitabı ile aynı dizine oluşturulan yeni bir klasöre kaydeder. Lütfen aşağıdaki adımları uygulayın:
Adım 1: "ALT" + "F11" tuşlarına basılı tutun; böylece "Microsoft Visual Basic for Applications" penceresi açılır.
Adım 2: "Ekle" > "Modül" seçeneğine tıklayın ve aşağıdaki makroyu Modül Penceresine yapıştırın:
VBA: Çalışma sayfalarını yeni bir çalışma kitabı olarak dışa aktarın ve yeni bir klasöre 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 SubAdım 3: Bu kodu çalıştırmak için "F5" tuşuna basın. Ardından, yeni dışa aktarılan çalışma kitaplarının konumunu gösteren bir uyarı kutusu açılacak; orijinal çalışma kitabındaki tüm çalışma sayfaları, kendi orijinal adlarıyla yeni bir klasörde ayrı ayrı çalışma kitabı olarak dışa aktarılacaktır.
Demo: Her bir sayfayı Yeni Çalışma Kitabı olarak dışa aktarma ve kaydetme
İlgili makaleler:
- Birden fazla çalışma kitabını tek bir çalışma kitabında birleştirin
- Bir seçimi ayrı dosya olarak kaydedin
- Bir çalışma kitabını ayrı Excel Dosyaları bölün
En İyi Office Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işlerinizi çok daha kolay hale getirir
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro'yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat-performans— ayrı eklentileri satın almaya göre tasarruf edin