csv.-Datei ändert sich von alleine nach Abspeicherung

[snb]

Code:

Sub M_snb()
   Workbooks.OpenText "G:\OF\Original_1.csv", 65001, , , , , 0, 0, -1, 0, 0
End Sub

[dionys]

Ich weiß leider nicht, wie mir diese Formel weiterhelfen könnte, das Problem zu lösen?

[maninweb]

Hallo,

das Standard-Listentrennzeichen für eine deutsche Excel-Installation auf einem deutschen Windows ist der Strichpunkt.

Deine Originaldatei verwendet jedoch ein Komma als Trennzeichen für die Datensätze Das ist nicht weiter tragisch.
Problematisch scheint aber zu sein, dass auch der Strichpunkt in den Zeilen vorkommt. Nämlich bei den Bildern,
wo ich vermute, dass das eine Bilderliste sein soll.

Wenn Du die Datei ohne Änderungen in Excel speicherst, ergänzt Excel die Zeilen um ; am Ende pro Zeile. Von daher
stimmt das Format nicht mehr, das Wix erwartet. So sieht das nach einem Speichern in Excel in einem Vergleich in
Notepad++ aus.

   

Das Listentrennzeichen wird durch die Windows-Systemeinstellungen definiert. Das lässt sich zwar jetzt ändern,
wirkt sich dann aber global aus.

Was Du also ausprobieren und testen könntest, ist folgendes:

• Vor dem Öffnen der Originaldatei in Excel, diese in einem Texteditor öffnen.
  
• Über Suchen und Ersetzen den Strichpunkt ; durch $$$ ersetzen.
  
• Datei in Excel öffnen.
  
• Jetzt hängt es davon ab, was Du in Excel machst: Trennst Du die Spalten z.B. durch Text In Spalten,
  dürfte Excel Dir die Datei mit ; als Trennzeichen abspeichern.
• Von Excel gespeicherte CSV-Datei wieder im Texteditor öffnen und zuerst schauen, ob in der CSV-Datei
  als Trennzeichen ein Strichpunkt verwendet wird und dieses durch ein Komma ersetzen. Und danach wieder
  die $$$ durch ; ersetzen.

Es gibt sicherlich vielleicht andere Lösungen, z.B. VBA, hängt aber davon ab, wieviel Aufwand Du da reinstecken möchtest.

Gruß

[snb]

Ich vermute das diese Datei wohl akzeptiert wird:

[dionys]

Vielen Dank für eure nette Unterstützung.

Und dir snb danke ich für die Datei. Doch dasselbe Problem trat leider auch hierbei auf.

Und Maninweb.

Hierbei wäre der Aufwand doch viel zu groß und weit mehr Arbeit, als wenn ich es einfach manuell bei Wix erledigen würde.
Ich wollte mir nämlich immerhin dadurch ein weniger Arbeit ersparen.
Doch durch diese Methode verdreifacht sich der ganze Aufwand für mich auf einen Schlag.

Ich werde wohl von daher doch auf die normale manuelle Methode zurückgreifen müssen.
Doch es war zumindest ein Versuch wert gewesen und möchte mich auch nochmals ganz herzlich bei euch bedanken.

Schöne Grüße
Andreas

[Kuwer]

Hallo Andreas,

so sollte es klappen per VBA:

Sub ImportCSV()
  Workbooks.OpenText Filename:="C:\Users\Uwe\Documents\Excel\Foren\CSV-Test\ORIGINAL.csv", _
                     DataType:=xlDelimited, _
                     TextQualifier:=xlNone, _
                     ConsecutiveDelimiter:=False, _
                     Tab:=False, Semicolon:=False, Comma:=True, Space:=False, Other:=False
End Sub

Sub ExportCSV()
  ActiveWorkbook.SaveAs Filename:="C:\Users\Uwe\Documents\Excel\Foren\CSV-Test\Export.csv", _
                        FileFormat:=xlCSV
  ActiveWorkbook.Close False
End Sub

Gruß Uwe

[dionys]

Vielen Dank Uwe, vielleicht habe ich ja damit etwas mehr Glück:)