.csv Inhalt in Spalten speichern
03.07.2018 14:16:52
xKurtx
ich habe folgendes Problem, vielleicht könnt ihr mir weiterhelfen. Ich habe eine .csv Datei, welche ich "Local" per Makro öffne und die erste Spalte lösche. Ich öffne diese als "Local" damit der Inhalt in Spalten angezeigt wird. Danach speichere ich eine Kopie von dieser Datei in einem anderen Pfad. Das Problem ist nun, dass wenn ich die neue Datei öffne, der Inhalt nicht mehr in Spalten angezeigt wird, sondern alles nur in Spalte A. Wenn ich das Löschen der Spalte und Speichern der Datei selbst mache, wird die neue Datei korrekt dargestellt.
Wie kann ich die Kopie per Makro speichern, sodass diese die Endung .csv behält und trozdem der Inhalt in Spalten angezeigt wird?
Vielen Dank für die Hilfe!
Code:
Sub bearbeiten()
Dim pfad1, WB1, pfad2 As String
Application.ScreenUpdating = False
pfad1 = Range("Pfad") & "Datei.csv"
pfad2 = Range("Pfadneu") & Range("Datei.csv")
WB1 = "Datei.csv"
Workbooks.OpenText Filename:=(pfad1), Local:=True
Columns("A:A").Delete Shift:=xlToLeft
ActiveWorkbook.SaveCopyAs pfad2
Workbooks(WB1).Close SaveChanges:=False
End Sub
Anzeige