VBA: CSV in xls konvertieren
30.07.2013 12:42:54
WalterK
den folgenden Code habe ich im Internet gefunden, damit sollen CSV-Dateien in XLS-Dateien konvertiert werden.
ABER:
1.) Fehler: Wenn ich die konvertierten xls-Dateien öffne ist alles in Spalte A angeführt, d.h. die Spaltentrennung hat nicht funktioniert.
2.) Frage: Wenn die Codezeile Workbooks.Open .FoundFiles(i), local:=False lautet wird als Trennzeichen ; angeführt, wenn ich auf True ändere wird als Trennzeichen , angeführt. Ist das richtig so?
Option Explicit
Sub Convert_CSV_to_XLS() 'funktioniert nur bei Office 2003
Dim i As Long, verz As String
Dim dateiForm As String
'Mit Backslash am Ende
verz = "D:\_Neuerungen vom HomePC - 2013.07.29\Test CSV in XLS\"
'Dateiform
dateiForm = "csv"
On Error GoTo fehler
ChDrive Left(verz, 2)
ChDir verz
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
Application.StatusBar = "Datei " & i & " von " & .FoundFiles.Count & " wird _
bearbeitet"
If Right(.FoundFiles(i), 3) = dateiForm Then
Application.ScreenUpdating = False
Debug.Print .FoundFiles(i)
Workbooks.Open .FoundFiles(i), local:=False
ActiveWorkbook.SaveAs Left(.FoundFiles(i), Len(.FoundFiles(i)) - 3) & "xls"
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End If
Next i
End With
ErrorExit:
Application.ScreenUpdating = True
Application.StatusBar = False
Exit Sub
fehler:
MsgBox Err.Number & "; " & Err.Description
Resume ErrorExit
End Sub
Besten Dank für die Hilfe und Servus, Walter