CSV Format speicher, trotzdem getrennte Zellen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
eine CSV-Datei hat keine Aufteilung in Zellen, egal was du machst. die Kennzeichnung für die Zellentrennung ist, wie der Name CSV schon sagt, das KOMMA (in deutschen CSV-Dateien allerdings öfters auch das Semikolon)
der eindruck, daß die Zellteilung mal bestehen bleibt und mal aufgehoben wird, kommt dadurch, daß excel versucht, beim Öffenen der CSV-Datei diese automatisch in Zellen aufzuteilen. bei bestimmten Trennzeichen (Semikolon) funktioniert das, bei anderen (Komma) eben nicht, aber das liegt nicht an der CSV-Datei, sondern an der Import-Routine von Excel.
wenn du gewissheit haben willst, was du tatsächlich abgespeichert hast, dann öffnest du die CSV-Datei mit dem Windows-Editor (oder einem vergleichbaren Programm). Nur dort siehst du die CSV-Daten auch so, wie sie tatsächlich vorliegen.
Entscheidend ist also, welches Trennzeichen in der CSV-Datei verwendet wird, Komma oder Semikolon.
das wird über die Eigenschaft "Local:=True / False" gesteuert.
bei "Local:=True" wird das deutsche Semikolon verwendet, ansonsten das internationale Komma.
dein Befehl zum Speichern müsste also so lauten:


ActiveWorkbook.SaveAs ""C:\Name", FileFormat:=xlCSVWindows, local:=True

(die Dateiendung ".csv" kannst du beim Speichern weglassen, die wird automatsich ergänzt)
Gruß, Daniel

Hi Marc,

VBA-Code:

Sub export_CSV()
Dim fileSaveName As Variant
Dim Trennzeichen As String, Text As String
Dim ZeileMax As Long, SpalteMax As Long, _
  Zeile As Long, Spalte As Long
Close #1
'fileSaveName = Application.GetSaveAsFilename(fileFilter:="CSV Files (*.csv), *.csv", Title:="Als CSV beliebiges Trennzeichen separiert speichern")
fileSaveName = "C:\Test.csv"
If fileSaveName <> False Then
  Open fileSaveName For Output As #1
  Trennzeichen = ";"
  ZeileMax = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
  SpalteMax = ActiveSheet.UsedRange.Columns.Count + ActiveSheet.UsedRange.Column - 1
  For Zeile = 1 To ZeileMax
    Text = ""
      For Spalte = 1 To SpalteMax
        Text = Text & ActiveSheet.Cells(Zeile, Spalte).Value & Trennzeichen
      Next Spalte
    Print #1, Text
  Next Zeile
Close #1
End If
End Sub
Gruß Jürgen

AW: Mit sanfter Gewalt! ;)

Marc

Hallo Jürgen,
vielen Dank für Deinen Code. Ehrlich gesagt verstehe ich ihn noch nicht so ganz... Aber es scheint mir, als ob der Code die Datei zwar aufgreift und sie mit der Dateiendung .csv versieht, sie aber trotzdem immer noch im xls Format abspeichert. Oder bin ich da jetzt auf dem Holzweg? Vielleicht habe ich ja den Code auch falsch eingebaut?! Ich bin zwar dabei mich mit Programmierung zu beschäftigen. Aber wie schon angegeben bin ich bei VBA immer noch bescheiden. Kannst Du mir vielleicht ein paar Erläuterungen dazu geben?
@ Daniel, ich habe nachgesehen. Wenn ich mich nicht irre oder ich an der falschen Stelle nachgesehen habe müsste die lokale Einstellung auf Deutschland stehen. Aber wer weiß schon, was MS Produkte hin und wieder machen... Ich danke Dir trotzdem sehr für Deine Hilfe. Mein Hintergrundwissen hat sich auf jeden Fall erweitert!
Grüße,
Marc

Der Code macht folgendes!

Backowe

Hi Marc,
als erstes wird in dem aktuellen Tabellenblatt die Zeilen- und Spaltenanzahl festgelegt, dann durch läuft der Code Zeile für Zeile und es wird jede Zelle in der Zeile als Zelle, Trennzeichen, Zelle usw. als Variable belegt, ist die komplette Zeile durchlaufen, wird die Variable Zeile für Zeile in die vorher festgelegte Textdatei geschrieben.
Gruß Jürgen

AW: CSV Format speicher, trotzdem getrennte Zellen

Daniel

Hi
nein.
bei mir überredet das Setzen des Parameters "Local:=True" Excel dazu, das Semikolon zu verwenden.
kommt vielleicht auch darauf an, was du grad für ne Ländereinstellung hast, ist die bei dir auf "Deutschland" eingestellt
ein letzter Workaround wäre natürlich, pro Zeile die ganzen Zellen in eine zusammenzufassen und dabei das Semikolon als Trennzeichen zu verwenden, beispielsweise in Spalte A eine neue Zeile einfügen mit dieser Formel:


=A1&";"&B1&";"&C1&";"&D1

dann in dieser Zeile Formeln durch Werte ersetzen, die alten Spalten löschen und dieses Blatt als CSV-Datei speichern. (wenn die originaldaten nicht gelöscht werden sollen, dann kann man diese Formel ja in einem anderen Blatt einfügen oder sich ein kleines Makro schreiben)
da jetzt für Excel die Datei nur eine Spalte hat, wird kein Spaltentrennzeichen eingefügt.
allerdings haben wir ja die Semikolons schon in den Text eingefügt und für die einlesende Anwendung ist es egal, ob die Semikolons aus dem Text kommen oder von Excel als Spaltentrennzeichen eingefügt werden, das ist nachträglich nicht mehr zu differnzieren.
Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

CSV Format speicher, trotzdem getrennte Zellen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

152 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CSV Format speicher, trotzdem getrennte Zellen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

152 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread