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

Farklı Kaydet özelliğini uygulayarak bir CSV dosyasını XlS veya XLSX dosyasına dönüştürmek sizin için çok kolaydır. Ancak, birden çok CSV dosyasını bir klasörden XLS veya XLSX dosyalarına dönüştürmek, tek tek manuel olarak kaydederek zaman alıcıdır. Burada, tüm CSV dosyalarını bir klasörden XLS (x) dosyalarına hızlı bir şekilde toplu olarak dönüştürmek için bir makro kodu sunuyoruz.

Makro koduyla CSV dosyalarını XlS (X) dosyalarına toplu dönüştürün

Makro koduyla CSV dosyalarını XlS (X) dosyalarına toplu dönüştürün

Birden çok CSV dosyasını bir klasörden XLS (X) dosyalarına dönüştürmek için aşağıdaki adımları uygulayabilirsiniz:

1. Yeni bir çalışma kitabını etkinleştirin, Alt + F11 açmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere ve tıklayın Ekle > modül. 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 makro kodunun altına yapıştırın. modül komut dosyası ve basın F5 kodu çalıştırmak için anahtar.

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 iletişim kutusunda, dönüştürmek istediğiniz CSV dosyalarını içeren belirtilen klasörü seçin. Ekran görüntüsüne bakın:

4. tık OK, seçili klasördeki tüm CSV dosyaları içindeki XLS dosyalarına dönüştürülmüştür.

Bahşiş: CSV dosyalarını XLSX dosyalarına dönüştürmek istiyorsanız aşağıdaki VBA kodunu kullanırsınız.

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

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

XLS / Word / PDF veya diğer format dosyalarını bir defada ayırmak için bir sayfa aralığını hızlı bir şekilde dönüştürün veya dışa aktarın

Normalde, Excel bir aralığı hızlı bir şekilde dışa aktarma veya CSV veya Excel dosyası olarak kaydetme seçeneği sunmaz. Bir dizi veriyi Excel'de CSV veya çalışma kitabı olarak kaydetmek istiyorsanız, bunu yapmak için bir VBA Makrosu kullanmanız veya aralığı panoya kopyalayıp yeni bir çalışma kitabına yapıştırmanız ve ardından çalışma kitabını CSV olarak kaydetmeniz gerekebilir veya Çalışma kitabı. Kutools for Excel Excel'i artırır Aralığı Dosyaya Aktar aşağıdaki işlemleri hızlı bir şekilde gerçekleştirmek isteyen Excel kullanıcıları için yardımcı program ：  Için tıklayınız 30günlük tam özellikli ücretsiz deneme!

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile, hiçbir sınırlama olmadan denemesi ücretsiz 30 gün.

İlgili Makaleler:

• Csv dosyasını xls dosyasına dönüştürme veya Excel'de csv'yi içe aktarma / açma
• Word belgesini excel çalışma sayfasına nasıl dönüştürebilirim?

---

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

• Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
• Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
• Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
• Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
• Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
• Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
• Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
• Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
• 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma... 

---

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

• Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
• Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
• Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!

Devamı ... Ücretsiz indirin... Satın alma...