CSV-Datei ohne Anführugnszeichen

earlycon · 2024-05-07T09:59:06+00:00

Guten Morgen zusammen, ich erstelle per Makro aus einem Tabellenblatt eine CSV-Datei. In A1 steht z.B. IS;1234;1.0;1234;20240507093743;8;8000,00;0,00;L; Wenn ich die csv mit dem Editor öffne steht der Eintrag jedoch in Anführungszeichen: "IS;1234;1.0;1234;20240507093743;8;8000,00;0,00;L;" Wie ich mich schon belesen habe, hängt das vermutlich mit dem Komma der Zahlen 8000,00 und 0,00 (Soll und Haben Betrag) zusammen, welche als Trennzeichen erkannt werden. Frage: wie kann ich verhindern, dass die Anführungszeichen gesetzt werden ? Mit dem Hochkomma soll das als Text erkannt werden, aber ich bekommen das nicht hin... Würde mich freuen, wenn mir jemand auf die Sprünge hilft. Besten Dank und viele Grüße Stefan

Hallöchen,

hier mal noch die Variante mit Text in Spalten. Das Makro ist jetzt einfach nur aufgezeichnet ...
Wichtig dabei ist, dass bei den Einstellungen dabei alles auf Text gestellt wird, weil ansonsten u.a. die "lange" Zahl in Exponentialschreibweise kommt.
Das Semikolon am Ende nach dem L kommt nur, wenn Du entweder in Spalte J mal irgendwo was hast oder du müsstest in J Leerzeichen einfügen oder ...

Sub Makro1()

'

' Makro1 Makro

'



'

    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _

        TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _

        :=True, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array( _

        Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), _

        Array(8, 2), Array(9, 2), Array(10, 1)), TrailingMinusNumbers:=True

    ActiveWorkbook.SaveAs Filename:="C:\Test\_0509_.csv", FileFormat:=xlCSVUTF8 _

        , CreateBackup:=False

End Sub

Mal noch ein Vorschlag für Yal_s code. Man kann recht viele Daten auch in einem Rutsch ausgeben:
Also, statt

    With Sheets("CSV_Export")

        For Each Z In Range(.Range("A1"), .Range("A99999").End(xlUp))

            Datei.WriteLine Z.Text

        Next

    End With

nur

Datei.WriteLine Join(WorksheetFunction.Transpose(Sheets("CSV_Export").Range("A1:A25200").Value), vbLf)

... wobei man den Bereich natürlich wie bei Yal flexibel beenden und nicht auf 25200 Zeilen festlegen sollte :-)

Hallo Stefan,

mit Aufzeichnung bekommst Du z.B. für eine Textbox auf einem Blatt einen ersten Ansatz

    ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 326.25, 377605.5, _

        168.75, 36).Select

    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "ddd"

Nun könntest Du das kombinieren, hier mal mit der aufgezeichneten Variante und noch zwei andere - wenn Du den Namen der Textbox nehmen willst ...

Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Join(WorksheetFunction.Transpose(Range("A1:A25").Value), vbLf)

'Geht aber auch

ActiveSheet.Shapes("Textbox 1").TextFrame2.TextRange.Text = Join(WorksheetFunction.Transpose(Range("A1:A25").Value), vbLf)

ActiveSheet.Shapes("Textbox 1").DrawingObject.Text = Join(WorksheetFunction.Transpose(Range("A1:A25").Value), vbLf)

Man kann dann natürlich auch noch die Größe der Textbox manuell oder automatisch anpassen und anderes ...

CSV-Datei ohne Anführugnszeichen

Forumthread: CSV-Datei ohne Anführugnszeichen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

CSV-Datei ohne Anführugnszeichen

Forumthread: CSV-Datei ohne Anführugnszeichen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread