CSV mit Anführungszeichen bei Texten

Dominik · 2022-12-09T13:50:17+00:00

Hallo zusammen, ich bin leider ein wenig am verzweifeln und komme nicht wirklich weiter. Habe mich dumm und dusselig gegoogelt aber auch irgendwelche Makros durch die ich nicht durchgestiegen bin haben mir wenig geholfen. Als Info, ich benutze Office365 Business (Excel Desktop App natürlich). Nun benötige ich Hilfe bei der Umsetzung folgendes Problems. Folgendes Szenario: Wir bekommen von einem Kunden eine Liste, diese Liste muss dann als CSV im UTF-8 Format gespeichert werden. Jetzt kommt der Clue. In dieser Liste sind Zahlen, Datumsangaben und Texte, damit das WMS (Warenwirtschaftssystem) das am Ende diese Datei verarbeiten soll, die Daten richtig auslesen kann, müssen alle Textwerte mit "" versehen werden und Zahlenformate sowie Datumsformat ohne "". Wenn ich die Datei in Notepad öffne sollte es folgenderweise aussehen: "Line Status","Picking Ticket No","SOLine","Warehouse","Item Code", (usw) "SHIP",517659,1,"PLWHSE","F5_SL713_DKY", (usw) Ich habe in der angehängten Excel Datei "test inbound file generator" im Tab "transform to csv" die Spaltenüberschriften Rot markiert, wo die Daten als Text formatiert sind und somit mit "" versehen werden müssen. Die Überschriften müssen immer als Text formatiert sein unabhängig von den Daten die darunter folgen. Ich hoffe ich habe mein Problem gut genug dargestellt und das mir vielleicht jemand helfen kann. Zu speichernde CSV Datei: https://www.herber.de/bbs/user/156624.xlsx

Hi Dominik
Die Lösung kommt ohne Zusatztabelle aus.
Kleiner Unklarheiten gibt es noch u.a. ob Datum als Text oder Zahl behandelt werden soll. Aber schau einfach mal ob es passt.


Sub t()
Dim arSpaltenTitel() As Variant
Dim lngZeile As Long, i As Integer
Dim strTemp As String
arSpaltenTitel = Array("Line Status", "Picking Ticket No", "SOLine", "Warehouse", "Item Code", "Description", "Colour", _
"Description", "Fit/Dim", "md3", "md5", "Lading Note Number", "Size Code", "Brand Code", "Unit Qty", "EANUPC", "Customer Code", _
"CustName", "PKQTY", "SELLQ", "Container Code", "Container Type", "Shipping Ref", "Deliver To Comp", "TODAYS", "SHIP date", _
"Completion Date", "PO date", "CLRSEAS")
Open "C:\Pfad\DemoFile.csv" For Output As #1
With Tabelle1
'Spaltentitel schreiben
Print #1, """" & Join(arSpaltenTitel, """,""") & """"
For lngZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To UBound(arSpaltenTitel) + 1
Select Case i
' erste Spalte ohne Komma
Case 1: strTemp = """" & .Cells(lngZeile, i) & """"
' Ausnahme Spaltennummer mit Text ignore
Case 12, 22, 24, 29: strTemp = strTemp & ",""ignore"""
' Spalten mit Datumsformatierung
Case 25, 26, 27: strTemp = strTemp & ",""" & Format(.Cells(lngZeile, i), "dd\/mm\/yyyy") & """"
' Ausnahme Spalte AB, welche den Wert von AA bekommt
Case 28: strTemp = strTemp & ",""" & Format(.Cells(lngZeile, 27), "dd\/mm\/yyyy") & """"
' restliche Spalten
Case Else
' wenn nummerisch
If IsNumeric(.Cells(lngZeile, i)) And .Cells(lngZeile, i)  "" Then
strTemp = strTemp & "," & .Cells(lngZeile, i).Text
' wenn text
Else
strTemp = strTemp & ",""" & .Cells(lngZeile, i).Text & """"
End If
End Select
Next i
Print #1, strTemp
Next lngZeile
End With
Close #1
End Sub

cu
Chris

Hi
Nachfolgend mal die Anpassung betr. Datum.
Den Spaltentitel löschen und dann die Spaltennummern im Code anpassen. Verschiebt sich halt alles und du müsstest die Nummern anpassen.


Sub t()
Dim arSpaltenTitel() As Variant
Dim lngZeile As Long, i As Integer
Dim strTemp As String
arSpaltenTitel = Array("Line Status", "Picking Ticket No", "SOLine", "Warehouse", "Item Code", "Description", "Colour", _
"Description", "Fit/Dim", "md3", "md5", "Lading Note Number", "Size Code", "Brand Code", "Unit Qty", "EANUPC", "Customer Code", _
"CustName", "PKQTY", "SELLQ", "Container Code", "Container Type", "Shipping Ref", "Deliver To Comp", "TODAYS", "SHIP date", _
"Completion Date", "PO date", "CLRSEAS")
Open "C:\Pfad\DemoFile.csv" For Output As #1
With Tabelle1
'Spaltentitel schreiben
Print #1, """" & Join(arSpaltenTitel, """,""") & """"
For lngZeile = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 1 To UBound(arSpaltenTitel) + 1
Select Case i
' erste Spalte ohne Komma
Case 1: strTemp = """" & .Cells(lngZeile, i) & """"
' Ausnahme Spaltennummer mit Text ignore
Case 12, 22, 24, 29: strTemp = strTemp & ",""ignore"""
' Spalten mit Datumsformatierung
Case 25, 26, 27: strTemp = strTemp & "," & Format(.Cells(lngZeile, i), "dd\/mm\/yyyy")
' Ausnahme Spalte AB, welche den Wert von AA bekommt
Case 28: strTemp = strTemp & "," & Format(.Cells(lngZeile, 27), "dd\/mm\/yyyy")
' restliche Spalten
Case Else
' wenn nummerisch
If IsNumeric(.Cells(lngZeile, i)) And .Cells(lngZeile, i)  "" Then
strTemp = strTemp & "," & .Cells(lngZeile, i).Text
' wenn text
Else
strTemp = strTemp & ",""" & .Cells(lngZeile, i).Text & """"
End If
End Select
Next i
Print #1, strTemp
Next lngZeile
End With
Close #1
End Sub

cu
Chris

CSV mit Anführungszeichen bei Texten

Forumthread: CSV mit Anführungszeichen bei Texten

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial