Hallo zusammen,

ich versuche einige csv Dateien in xlsx umzuwandeln, das funktioniert auch ganz gut das Problem ist: In der ersten Spalte habe ich ein Datum in folgendem Format DD/MM/YYYY hh:mm:ss mein Script formatiert dies jedoch nicht in DD.MM.YYYY hh:mm:ss. Lediglich ein Teil als amerkanisches Format.

Also:

31/07/2017 17:22:17 bleibt gleich

01/08/2017 07:42:20 wird zu 08.01.2017 07:42:20 
 

Mein Code sieht wie folgt aus:

Set XL = CreateObject("Excel.Application")
    Set FSO = CreateObject("Scripting.FileSystemObject")

    For Each Datei In FSO.GetFolder(OrdnerEin).Files
        If LCase(FSO.GetExtensionName(Datei.Name)) = "csv" Then
        XL.Workbooks.OpenText Filename:=Datei.Path, Comma:=True
        XL.ActiveWorkbook.SaveAs OrdnerAus & "\" & FSO.GetBaseName(Datei.Name) & ".xlsx", 51, , , , False
        XL.ActiveWorkbook.Close False
    End If
Next
XL.Quit
Set XL = Nothing
Set FSO = Nothing

Über Unterstützung würde ich mich sehr freuen. 

Vielen Dank und Grüße

Philipp