Birden çok Excel dosyasını Excel'deki CSV dosyalarına toplu olarak nasıl dönüştürebilirim?
Excel'de, Farklı Kaydet işleviyle çalışma kitabını CSV dosyasına dönüştürebiliriz, ancak birden çok Excel dosyasını ayrı CSV dosyalarına toplu olarak nasıl dönüştüreceğinizi biliyor musunuz? Bu makalede, bir klasördeki tüm Excel dosyalarını Excel'deki CSV dosyalarına toplu olarak dönüştürmek için bir VBA kodu tanıtıyorum.
Bir klasörün Excel dosyalarını VBA ile CSV dosyalarına toplu olarak dönüştürün
Kutools for Excel ile çalışma kitabı sayfalarını ayrı CSV dosyalarına dönüştürün
Bir klasörün Excel dosyalarını VBA ile CSV dosyalarına toplu olarak dönüştürün
Excel'de, VBA dışında bu işi hızlı bir şekilde çözebilecek yerleşik bir işlev yoktur.
1. Excel'i etkinleştirin ve Alt + F11 anahtarlar açık Uygulamalar için Microsoft Visual Basic pencere.
2. tık Ekle > modül yeni bir Modül oluşturmak için.
3. Aşağıdaki kodu kopyalayın ve yeni Modül penceresine yapıştırın.
VBA: Excel dosyalarını CSV'ye toplu 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. Basın F5 tuşu, ilk açılan iletişim kutusunda CSV dosyalarına dönüştürmek istediğiniz Excel dosyalarını içeren klasörü seçin.
5. tık OK, ardından ikinci açılır iletişim kutusunda, CSV dosyalarının yerleştirileceği klasörü seçin.
6. tık OK, şimdi klasördeki Excel dosyaları CSV dosyalarına dönüştürülmüş ve başka bir klasöre kaydedilmiştir.
Kutools for Excel ile çalışma kitabı sayfalarını ayrı CSV dosyalarına dönüştürün
Bildiğimiz gibi, tüm çalışma kitabını Excel'de Farklı Kaydet işlevi ile yalnızca tek bir CSV dosyasına dönüştürebiliriz. Ancak bazı durumlarda, tek sayfayı CSV dosyasına dönüştürmek istersiniz, bu durumda Çalışma Kitabını Böl yarar Kutools for Excel size yardımcı olabilir.
Kutools for Excel, ile daha fazla 300 kullanışlı fonksiyonlar, işlerinizi daha kolay hale getirir. |
Kurduktan sonra Kutools for Excel, lütfen aşağıdaki işlemleri yapın:(Şimdi Excel için Kutools'u Ücretsiz İndirin!)
1. Sayfalarını ayrı CSV dosyaları olarak dönüştürmek istediğiniz çalışma kitabını etkinleştirin, Kutools Artı > alıştırma kitabı > Çalışma Kitabını Böl.
2. içinde Çalışma Kitabını Böl iletişim kutusunda, bölmek istediğiniz sayfa adını kontrol edin (varsayılan olarak tüm sayfalar kontrol edilir), kontrol edin Olarak kaydet yazın, seçin CSV (Macintosh) (* .CSV) açılır listeden seçin.
3. tık Bölünmüş bir Klasöre Göz At iletişim kutusunda, CSV dosyalarını yerleştirmek için bir klasör seçin veya oluşturun.
4. tık OK, şimdi çalışma kitabı ayrı CSV dosyaları olarak bölünmüştür.
Çalışma Kitabını Böl
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!