Excel'de birden fazla Excel dosyasını CSV dosyalarına nasıl toplu dönüştürebilirim?
Excel dosyaları, "Farklı Kaydet" özelliği kullanılarak CSV formatına dönüştürülebilir; ancak birden fazla dosyayı tek tek elle işlemek oldukça zaman alıcıdır. Birden fazla Excel dosyasını ayrı ayrı CSV dosyalarına toplu olarak dönüştürmeniz gerekiyorsa, bu kılavuz size iki verimli yöntem sunar:
Bir klasördeki Excel Dosyaları'leri VBA ile CSV dosyalarına toplu dönüştürme
Çalışma kitabının sayfalarını Kutools for Excel ile ayrı CSV dosyalarına dönüştürme ![]()
Bir klasördeki Excel Dosyaları'leri VBA ile CSV dosyalarına toplu dönüştürme
Excel'de bu görevi hızlıca gerçekleştirmek için yerleşik bir işlev yoktur; VBA kullanımı dışında.
1. Excel'i etkinleştirin ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
2. Ekle > Modül seçeneğine tıklayarak yeni bir modül oluşturun.
3. Aşağıdaki kodu kopyalayın ve yeni Modül penceresine yapıştırın.
VBA: Excel Dosyaları'leri toplu olarak CSV'ye dönüştürme
Sub WorkbooksSaveAsCsvToFolder()
'UpdatebyExtendoffice20181031
Dim xObjWB As Workbook
Dim xObjWS As Worksheet
Dim xStrEFPath As String
Dim xStrEFFile As String
Dim xObjFD As FileDialog
Dim xObjSFD As FileDialog
Dim xStrSPath As String
Dim xStrCSVFName As String
Dim xS As String
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
On Error Resume Next
Set xObjFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjFD.AllowMultiSelect = False
xObjFD.Title = "Kutools for Excel - Select a folder which contains Excel files"
If xObjFD.Show <> -1 Then Exit Sub
xStrEFPath = xObjFD.SelectedItems(1) & "\"
Set xObjSFD = Application.FileDialog(msoFileDialogFolderPicker)
xObjSFD.AllowMultiSelect = False
xObjSFD.Title = "Kutools for Excel - Select a folder to locate CSV files"
If xObjSFD.Show <> -1 Then Exit Sub
xStrSPath = xObjSFD.SelectedItems(1) & "\"
xStrEFFile = Dir(xStrEFPath & "*.xls*")
Do While xStrEFFile <> ""
xS = xStrEFPath & xStrEFFile
Set xObjWB = Application.Workbooks.Open(xS)
xStrCSVFName = xStrSPath & Left(xStrEFFile, InStr(1, xStrEFFile, ".") - 1) & ".csv"
xObjWB.SaveAs Filename:=xStrCSVFName, FileFormat:=xlCSV
xObjWB.Close savechanges:=False
xStrEFFile = Dir
Loop
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub 4. F5 tuşuna basın, ilk açılan iletişim kutusunda CSV dosyalarına dönüştürmek istediğiniz Excel Dosyaları'nın bulunduğu klasörü seçin.
5. Tamam'a tıklayın; ardından açılan ikinci iletişim kutusunda CSV dosyalarının kaydedileceği klasörü seçin.
6. Tamam'a tıklayın; artık klasördeki Excel dosyaları CSV dosyalarına dönüştürülmüş ve başka bir klasöre kaydedilmiştir.
Çalışma kitabının sayfalarını Kutools for Excel ile ayrı CSV dosyalarına dönüştürme
Bildiğiniz gibi, Excel’in **Farklı Kaydet** özelliğiyle tüm çalışma kitabını yalnızca tek bir CSV dosyasına dönüştürebilirsiniz. Ancak bazen bireysel sayfaları ayrı ayrı CSV dosyalarına dönüştürmeniz gerekebilir. İşte tam da bu durumlarda,Çalışma Kitabını Ayır yardımcısı,Kutools for Excel tarafından size sunuluyor.
1. CSV dosyaları halinde ayrı ayrı dönüştürmek istediğiniz çalışma kitabını etkinleştirin ve KUTOOLS PLUS > Çalışma Kitabı > Çalışma Kitabını Ayır seçeneğine tıklayın.
2. Çalışma Kitabını Ayır iletişim kutusunda, bölmek istediğiniz sayfa adını işaretleyin (tüm sayfalar varsayılan olarak seçilidir).Farklı Kaydet türünü seçin ve açılır listeden CSV (*.csv) seçeneğini belirleyin.
3. Böl seçeneğine tıklayarak bir Klasör Seç iletişim kutusu açın ve CSV dosyalarınızı kaydetmek için bir klasör seçin veya oluşturun.
4. Tamam'a tıklayın; çalışma kitabı artık ayrı CSV dosyalarına bölünmüş olacak.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
Demo: Çalışma Kitabını Ayır, Kutools for EXCEL kullanılarak
En İyi Office Verimlilik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve hiç olmadığı kadar verimli çalışmanın keyfini çıkarı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 bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel ve PowerPoint içinde sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- 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 kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint için eklentileri ile Office Tab Pro’yu içerir; bu da Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— dakikalar içinde hazır (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— tek tek eklenti satın almak yerine tasarruf edin