Ich brauch drigend Hilfe bei einem Code.
Folgende Situation: Ich habe eine Excel Mappe die ich in CSV umwandeln möchte, ich will alle Zeilen und Spalten importieren.
Mein Code bist jetzt:
Sub SaveToCSVs()
Dim fDir As String
Dim wB As Workbook
Dim wS As Worksheet
Dim fPath As String
Dim sPath As String
fPath = "C:\Users\Admin\Documents\EINGANG\"
sPath = "C:\Users\Admin\Documents\AUSGANG\"
fDir = Dir(fPath)
Do While (fDir <> "")
If Right(fDir, 4) = ".xls" Or Right(fDir, 5) = ".xlsx" Then
On Error Resume Next
Set wB = Workbooks.Open(fPath & fDir)
For Each wS In wB.Sheets
wS.SaveAs sPath & wS.Name, xlCSV
Next wS
wB.Close False
Set wB = Nothing
End If
fDir = Dir
On Error GoTo 0
Loop
End Sub
Dieser wandelt mir die gewünschte Mappe zwar in csv um, nur wird dort nicht alles wie gewollt in den Zeilen & Spalten (wie in Excel angezeigt).
Denn es wird ein
Komma als Trennzeichen verwendet statt einem
Semikolon.
Ich denke hier liegt der Fehler aber ich kann ihn nicht beheben.
Bitte drigend um Hilfe!
Danke im vorraus, ich hoffe meine Problembeschreibung ist ausführlich genug
