Excel'de birden fazla CSV dosyasını toplu olarak XLS(X) dosyalarına nasıl dönüştürebilirim?

Bir CSV dosyasını XLS veya XLSX dosyasına dönüştürmek için 'Farklı Kaydet' özelliğini kullanmak oldukça kolaydır. Ancak, bir klasördeki birden fazla CSV dosyasını tek tek manuel olarak kaydederek XLS veya XLSX dosyalarına dönüştürmek zaman alıcı olabilir. Burada, bir klasördeki tüm CSV dosyalarını hızlıca toplu dönüştürmek için bir makro kodu tanıtacağım.

Makro kodu ile CSV dosyalarını toplu olarak XLS(X) dosyalarına dönüştürme

Makro kodu ile CSV dosyalarını toplu olarak XLS(X) dosyalarına dönüştürme

Bir klasördeki birden fazla CSV dosyasını XLS(X) dosyalarına dönüştürmek için aşağıdaki adımları izleyebilirsiniz:

1. Yeni bir Çalışma Kitabı açın ve Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın ve Ekle > Modül'e tıklayın. Ekran görüntüsüne bakın:

Not: Dönüştürmek istediğiniz tüm CSV dosyalarının kapalı olduğundan emin olun.

2. Ardından aşağıdaki makro kodunu Modül betiğine yapıştırın ve kodu çalıştırmak için F5 tuşuna basın.

VBA: CSV'yi XLS'ye dönüştürme

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xls", vbTextCompare), xlNormal
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

3. Açılan diyalog kutusunda, dönüştürmek istediğiniz CSV dosyalarını içeren belirli klasörü seçin. Ekran görüntüsüne bakın:

4. Tıklayın Tamam, seçilen klasördeki tüm CSV dosyaları XLS dosyalarına dönüştürülmüştür.

İpucu: Eğer CSV dosyalarını XLSX dosyalarına dönüştürmek istiyorsanız, aşağıdaki VBA kodunu kullanabilirsiniz.

VBA: CSV dosyalarını XLSX'e dönüştürme

Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
    Dim xFd As FileDialog
    Dim xSPath As String
    Dim xCSVFile As String
    Dim xWsheet As String
    Application.DisplayAlerts = False
    Application.StatusBar = True
    xWsheet = ActiveWorkbook.Name
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    xFd.Title = "Select a folder:"
    If xFd.Show = -1 Then
        xSPath = xFd.SelectedItems(1)
    Else
        Exit Sub
    End If
    If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
    xCSVFile = Dir(xSPath & "*.csv")
    Do While xCSVFile <> ""
        Application.StatusBar = "Converting: " & xCSVFile
        Workbooks.Open Filename:=xSPath & xCSVFile
        ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
        ActiveWorkbook.Close
        Windows(xWsheet).Activate
        xCSVFile = Dir
    Loop
    Application.StatusBar = False
    Application.DisplayAlerts = True
End Sub

İlgili Makaleler:

• CSV dosyasını xls dosyasına nasıl dönüştürebilirim veya Excel'de csv dosyasını nasıl içe aktarabilirim/açabilirim?
• Word belgesini Excel çalışma sayfasına nasıl dönüştürebilirim?