This is working for me, but the file extension is not changing. Any tips?
-
To post as a guest, your comment is unpublished.
-
To post as a guest, your comment is unpublished.
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
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 : 30 günlük tam özellikli ücretsiz deneme için tıklayın! |
![]() |
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz olarak deneyin. |