Excel: Tüm Sayfaları Ayrı CSV veya Metin Dosyaları Olarak Kaydetme veya Dışa Aktarma (2 kolay yöntem)

Çoklu çalışma sayfaları içeren Excel çalışma kitaplarıyla veri analizi ve iş raporlamasında yaygın olarak çalışılır. Genellikle, veri paylaşımı, diğer sistemlerle entegrasyon veya arşivleme amacıyla her sayfayı ayrı bir CSV (Virgülle Ayrılmış Değerler) veya metin dosyası olarak dışa aktarmanız gerekir. Excel, tüm sayfaları dışa aktarmak için yerleşik bir özellik sağlamasa da bu görevi gerçekleştirmek için birkaç etkili yöntem bulunmaktadır.

Tüm sayfaları VBA kodu ile CSV veya Metin dosyaları olarak kaydetme veya dışa aktarma
Kutools for Excel ile tüm / belirli sayfaları CSV veya Metin dosyaları olarak kaydetme veya dışa aktarma

Tüm sayfaları VBA kodu ile CSV veya Metin dosyaları olarak kaydetme veya dışa aktarma

Aşağıdaki VBA kodları ile bir çalışma kitabındaki tüm çalışma sayfalarını ayrı CSV veya metin dosyaları olarak kaydedebilirsiniz. Lütfen aşağıdaki adımları izleyin.

Tüm sayfaları ayrı CSV dosyalarına dönüştürme veya dışa aktarma

1. Microsoft Visual Basic Application penceresini açmak için Alt + F11 tuşlarına aynı anda basın.

2. Microsoft Visual Basic Application penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki kodu Modül penceresine kopyalayıp yapıştırın.

Sub ExportSheetsToCSV()
	Dim xWs As Worksheet
	Dim xcsvFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xcsvFile = CurDir & "\" & xWs.Name & ".csv"
		Application.ActiveWorkbook.SaveAs Filename: = xcsvFile, _
		FileFormat: = xlCSV, CreateBackup: = False
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın. Dışa aktarılan tüm CSV dosyalarının Belgeler klasöründe olduğunu göreceksiniz. Her çalışma sayfası, sayfa ile aynı ada sahip ayrı bir .csv dosyası olarak kaydedilmiştir. Ekran görüntüsüne bakın:

Tüm sayfaları ayrı Metin dosyalarına dönüştürme veya dışa aktarma

Aşağıdaki kod, çalışma kitabındaki tüm sayfaları ayrı Metin dosyalarına dönüştürmenize veya dışa aktarmanıza yardımcı olabilir.

Sub ExportSheetsToText()
	Dim xWs As Worksheet
	Dim xTextFile As String
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Copy
		xTextFile = CurDir & "\" & xWs.Name & ".txt"
		Application.ActiveWorkbook.SaveAs Filename: = xTextFile, FileFormat: = xlText
		Application.ActiveWorkbook.Saved = True
		Application.ActiveWorkbook.Close
	Next
End Sub

Dışa aktarılan Metin dosyaları da Belgeler klasöründe bulunur. Ekran görüntüsüne bakın:

Kutools for Excel ile tüm / belirli sayfaları CSV veya Metin dosyaları olarak kaydetme veya dışa aktarma

Kutools for Excel, tümünü veya seçilen çalışma sayfalarını birkaç tıklamayla bireysel CSV veya metin dosyalarına hızlıca aktarabilmeniz için güçlü ve kullanıcı dostu bir özellik sunar.

1. Kutools Plus > Çalışma Kitabı > Çalışma Kitabını Ayır'a tıklayın. Ekran görüntüsüne bakın:

2. Çalışma Kitabını Ayır iletişim kutusunda:

• 1). Tüm sayfaları CSV veya metin dosyalarına dönüştürmek istiyorsanız, Çalışma Sayfası Adı kutusundaki tüm sayfa adlarının işaretli kalmasını sağlayın; sadece birden fazla sayfayı dönüştürmek istiyorsanız, onları işaretli tutup dönüştürmek istemediğiniz diğer sayfaların işaretini kaldırın.
• 2). Seçenekler bölümünde, Kaydetme Biçimini Belirt kutusunu işaretleyip açılır listeden Unicode Metin (*.txt) veya CSV (Macintosh)(*.csv) seçeneğini seçin.
• 3). Ayır düğmesine tıklayın.

3. Klasör Gözatma iletişim kutusunda, dışa aktarılan dosyaları kaydetmek için bir klasör belirleyin ve ardından Tamam düğmesine tıklayın.

Şimdi tüm sayfalar veya belirtilen sayfalar ayrı CSV veya metin dosyalarına dönüştürülmüş durumda ve yukarıda belirttiğiniz klasörde yer alıyor.

Demo: Kutools for Excel ile birden fazla / tüm sayfaları CSV veya metin dosyalarına kaydetme, dışa aktarma veya dönüştürme