per VBA eine CSV speichern
22.08.2018 11:55:11
Chillie.x3
ich benötige mal eure Hilfe.
Und zwar habe ich ein Excel Workbook namens "Marktpreis.xlsm", in diesem ist eine Mappe in der ich die Daten in eine CSV exportieren muss.
Leider funktioniert es mit meinem aktuellen "Code" nur so, dass die Formatierung nicht so hinhaut, wie es unser Programm benötigt.
Artikelnr.,Filiale,Startdatum,Enddatum,Preis inkl. Mwst.,Debitornummer
12181207613,,,,19.99,
12181014048,,,,22.99,
12185002039,,,,39.99,
12185001039,,,,39.99,
12181050159,,,,99,
12181119048,,,,74.99,
Allerdings erkennt mein System das ganze so nicht an.
Wenn ich die Datei allerdings per Hand speicher.. über Speichern unter -> Andere Formate -> und dort .csv auswähle funktioniert der ganze Spaß so wie ich es haben möchte.
Jedoch ist es mir aktuell nicht möglich, das ganze per VBA umzusetzen und nun kommt ihr ins Spiel, ich hoffe ihr habt eine Idee, wie man das ganze umsetzen kann.
Mein vorhandenes Makro sieht aktuell wie folgt aus:
Workbooks.Add
ActiveWorkbook.SaveAs "C:\Users\bw1\Desktop\Marktpreis.csv", FileFormat:=xlCSV
ActiveWorkbook.Close SaveChanges:=True
Workbooks.Open "C:\Users\bw1\Desktop\Marktpreis.csv"
Windows("Marktpreis Kalkulation BW.xlsm").Activate
Columns("A:F").Select
Selection.Copy
Windows("msdoscsv.csv").Activate
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:="C:\Users\bw1\Desktop\msdoscsv.csv", _
FileFormat:=xlCSV, CreateBackup:=False
ActiveWorkbook.Close SaveChanges:=False
Artikelnr. Filiale Startdatum Enddatum Preis inkl. Mwst. Debitornummer
12181207613 19,99
12181014048 22,99
12185002039 39,99
12185001039 39,99
12181050159 99
12181119048 74,99