Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1268to1272
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Datei richtig in CVS speichern

Datei richtig in CVS speichern
Sascha
Hallo liebe Excel-Profis,
ich habe das Problem, dass ich diese Datei:
https://www.herber.de/bbs/user/80713.xlsx
gerne via Makro als Auftrag.csv im Verzeichnis S:\Vertrieb\Pulver\Kalkulation\Import\ speichern möchte.
Allerdings ergibt sich hierbei immer das folgende Problem, dass in den Datenzeilen hinter dem letzten Datenfeld (WAHR) ein Semikolon fehlt.
Ebenfalls müsste ich die Anführungszeichen im zweiten Datenfeld unterdrücken!
K;Pulverbeschichtungsauftrag;11049;9016;0;0;0;;;;
D;pblkantcolor;"Aluminium-Kantung ( # x # x # )
Abw.in mm 680 Länge in mm 2250";BEIDSEITIG RAL ;2;3,06;12,00;0,00;0,00;BEK;WAHR
D;pblkantcolor;"Aluminium-Kantung ( # x # x # )
Abw.in mm 680 Länge in mm 1780";BEIDSEITIG RAL ;2;2,4208;12,00;0,00;0,00;BEK;WAHR
D;pblrowe;"Aluminium-Rohr ( # x # x #)
Abw.in mm 130 Länge in mm 6000";RUNDUM;45;35,1;7,00;0,00;0,00;BEK;WAHR
D;pblverapckung;"
";0;1;1;18,40;0,00;0,00;BEK;WAHR
So sollte die Datei dann aussehen:
https://www.herber.de/bbs/user/80714.txt
Wäre klasse, wenn jemand hierzu eine Idee hätte.
Liebe Grüße
Sascha

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
Datei in CSV Format speichern
25.06.2012 12:51:14
NoNet
Hallo Sascha,
teste doch mal folgenden Code :
Sub SaveAsCSV()
Dim rngBereich As Range
ActiveSheet.Copy 'Blatt in neue Mappe kopieren
'Leerzeichen in zusätzliche Spalte eintragen, um Semikolon hinter letzte Spalte zu erzeugen
Set rngBereich = [A1].CurrentRegion
Cells(1, rngBereich.Columns.Count + 1).Resize(rngBereich.Rows.Count).Value = " "
Cells.Replace Chr(34), "", lookat:=xlPart 'Anführungszeichen durch Leerstring ersetzen
Cells.Replace Chr(10), "", lookat:=xlPart 'Zeilenumbruch in Zellen ersetzen
ActiveWorkbook.SaveAs Filename:="C:\Temp\Auftrag.csv", FileFormat:=xlCSV, Local:=True
ActiveWorkbook.Close False
End Sub
Gruß, NoNet
- 2 : 1 n.V.    
Anzeige
Sorry : Pfadname bitte selbst anpassen !
25.06.2012 12:55:28
NoNet
Hallo Sascha,
den Namen des Pfades (C:\Temp\) musst Du natürlich noch anpassen - aber das schaffst du sicherlich selbst ;-))
Salut, NoNet
- 2 : 1 n.V.    
AW: Sorry : Pfadname bitte selbst anpassen !
27.06.2012 14:39:39
Sascha
Hallo,
vielen Dank.
Hat mir wunderbar geholfen.
LG
Sascha

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige