Opgelost csv naar xlsx zonder openen

[moensk]

Maandelijks heb ik +- 100 csv bestanden die ik moet gaan omzetten naar XLSX om netjes te tonen.
nu kan ik die allemaal opendoen en dan via gegevens - tekst naar kolom ... gaan bewerken
vanuit ons TMS kan ik ze niet anders exporteren als csv.

iemand oplossing met convertie tool of een script dat ik gewoon de excel in een map zet en daar geconverteerd wordt ?

 

[AlexCEL]

Verdiep je eens in Power Query. Daarmee kun je een complete map met csv's automatisch importeren.

Genoeg filmpjes op Youtube met demonstraties, zoek maar eens op "import csv folder power query"

 

[edmoor]

Of gebruik dit Visual Basic Script:

Set objFSO = Createobject("Scripting.FileSystemObject")
Set oFolder = objFSO.GetFolder("E:\Helpmij\moensk")
Set exc = CreateObject("Excel.Application")

exc.DisplayAlerts = False
For Each oFile in oFolder.Files
    If Right(oFile, 4) = ".csv" Then
        On Error Resume Next
        Set WB = exc.Workbooks.Open(oFile)
        WB.Activesheet.Columns.Autofit
        WB.SaveAs Replace(WB.FullName, ".csv", ".xlsx"), 51
        WB.Close False
    End If
Next
exc.Quit
WScript.Echo "Klaar!"

Alleen de waarde voor oFolder even aanpassen naar de folder waar de CSV bestanden staan.
Maak een nieuw tekst bestand en plak die code er in.
Geef het bestand de extensie .vbs en dubbelklik er dan op.

Eventueel kan je dat dan ook op een gewenst tijdstip door de Windows Task Scheduler laten uitvoeren.

 

[moensk]

edmoor
script werkt super snel
thanks