Çoklu csv dosyalarını xlsx formatına çevirmek

[Krunk]

Merhaba. Elimde 3000 den fazla csv dosyası var (DAtabasede kayıtlı) .Databaseyi export ederken maalesef eksik veri exportluyor.DAtabase de verileri takip için csv leri ayrı bir klasorde kopyalıyor.Acaba elimdeki 3kdan fazla csv yi nasıl xlsx formatına ceviririm bilen varmı ?

 

[pitchoute]

Excel'de bir makro yazarak bu işlemi gerçekleştirebilirsiniz. Örnek bir VBA kodu:

Sub CSVtoXLSX()
    Dim csvFile As String
    Dim xlsxFile As String
    Dim wb As Workbook
    
    csvFile = Dir("C:\csv_klasoru\*.csv")
    
    Do While csvFile <> ""
        Set wb = Workbooks.Open("C:\csv_klasoru\" & csvFile)
        xlsxFile = Replace(csvFile, ".csv", ".xlsx")
        wb.SaveAs Filename:="C:\xlsx_klasoru\" & xlsxFile, FileFormat:=xlOpenXMLWorkbook
        wb.Close
        csvFile = Dir()
    Loop
End Sub

 

[engin.kilic.73]

sutunları

Excel'de bir makro yazarak bu işlemi gerçekleştirebilirsiniz. Örnek bir VBA kodu:

Sub CSVtoXLSX()
    Dim csvFile As String
    Dim xlsxFile As String
    Dim wb As Workbook
   
    csvFile = Dir("C:\csv_klasoru\*.csv")
   
    Do While csvFile <> ""
        Set wb = Workbooks.Open("C:\csv_klasoru\" & csvFile)
        xlsxFile = Replace(csvFile, ".csv", ".xlsx")
        wb.SaveAs Filename:="C:\xlsx_klasoru\" & xlsxFile, FileFormat:=xlOpenXMLWorkbook
        wb.Close
        csvFile = Dir()
    Loop
End Sub

csv dosyası ( ile ayrılmamış.
Dış kaynaktan veri alıyoruz bu dosyayı csv olarak kaydederken bildiğimiz excel.deki sutunlar olarak her veri ayrı sutuna kaydediliyor.
Burada nasıl yol izleriz.