test
22.12.2013 12:15:54
Pere
ist es möglich, das unten stehen Makro so zu modifizieren, dass auswählbar ist, welches Trennzeichen für die Konvertierung von CSV zu XLS genommen wird (Komma, Semikolon, etc.)? Aktuell sind die CSV Dateien mit einem Semikolon getrennt. Das Makro erkennt dies anscheinend automatisch. Ich möchte aber explizit angeben können, was als Trennzeichen verwendet wird.
Viele Grüße
Pere
Sub CSVXLS()
Dim wb As Workbook
Dim strFile As String, strDir As String
strDir = "C:\test\"
strFile = Dir(strDir & "*.csv")
Do While strFile ""
Set wb = Workbooks.Open(Filename:=strDir & strFile, Local:=True)
wb.SaveAs Replace(wb.FullName, ".csv", ".xlsx"), 51
wb.Close True
Set wb = Nothing
strFile = Dir
Loop
End Sub