csv in xlsx via Makro
05.01.2016 11:52:06
Michael
ich muss monatlich mehr als 400 csv-Dateien in das xlsx-Format umwandeln. Manuell mit Öffnen und im xlsx-Format abspeichern klappt das hervorragend, ist aber sicherlich nicht praktikabel.
Aus dem Internet habe ich mir folgendes Makro geholt:
Sub Convert_CSV_to_XLS_Punkte()
Dim OrdnerEin As String
Dim XL As Variant, FSO As Variant, Datei As Variant
OrdnerEin = "E:\Test"
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.Open Datei.Path
XL.ActiveWorkbook.SaveAs OrdnerEin & "\" & FSO.GetBaseName(Datei.Name) & ".xlsx", 51, , , , _
False
XL.ActiveWorkbook.Close False
End If
Next
XL.Quit
Set XL = Nothing
Set FSO = Nothing
End Sub
Es werden auch xlsx-Dateien erzeugt, jedoch anstelle der Zahlenwerte steht in den Zellen: 00";"0, außerdem ist die Anordnung der Spalten anders.
Wer kann mir weiterhelfen?
Vielen Dank
Michael