CSV Datei umwandeln

Hallo Excel Freunde.
Ich ziehe jeden Tag eine csv Datei für eine Auswertung. Um das umwandeln habe ich ein Makro gemacht. Es funktioniert nur einmal. Bei nächstem Start bekomme ich Exceldatei mit Daten nur in einer Spalte. Was muss ich da ändern?
ChDir "E:\0000\"
Workbooks.Open Filename:="E:\0000\PD.csv"
Columns("F:AH").Select
Selection.Delete Shift:=xlToLeft
Columns("B:C").Select
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.NumberFormat = "m/d/yyyy"
Columns("B:B").Select
Selection.NumberFormat = "0"
Range("A2").Select
ActiveWorkbook.SaveAs Filename:="E:\0000\PD.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWindow.Close
ActiveWorkbook.Save
Danke für Eure Hilfe.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Austauschen() Workbooks.Open Filename:="E:\0000\PD.csv" Columns("F:AH").Delete Shift:=xlToLeft Columns("B:C").Delete Shift:=xlToLeft Columns("A:A").NumberFormat = "m/d/yyyy" Columns("B:B").NumberFormat = "0" ActiveWorkbook.SaveAs Filename:="E:\0000\PD.xls", FileFormat:=xlNormal, _ Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _ CreateBackup:=False ActiveWorkbook.Close End Sub

Hallo Stan,
Textim- und Export unter Zuhilfename der Excel-Text-Methoden war und ist immer Glücksache. Ob es wunschgemäss funktioniert, hängt von den Ländereinstellungen und der Excel-Version ab. Nachfolgende eine andere Lösung, bitte testen:


Sub TextImport()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
sFile = "c:\pd.csv"
iRow = 1
iCol = 1
Close
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
Do While InStr(sTxt, ";")
Cells(iRow, iCol).Value = Left(sTxt, InStr(sTxt, ";") - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";"))
iCol = iCol + 1
Loop
Cells(iRow, iCol).Value = sTxt
iRow = iRow + 1
iCol = 1
Loop
Close
Columns("F:AH").Delete Shift:=xlToLeft
Columns("B:C").Delete Shift:=xlToLeft
Columns("A:A").NumberFormat = "m/d/yyyy"
Columns("B:B").NumberFormat = "0"
ActiveWorkbook.SaveAs Filename:="c:\PD.xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
ActiveWorkbook.Close savechanges:=False
End Sub

Gruss hans

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CSV Datei umwandeln

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread