CSV mit Anführungszeichen bei Texten

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

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

Beliebteste Forumthreads (12 Monate)

CSV mit Anführungszeichen bei Texten

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

30 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CSV mit Anführungszeichen bei Texten

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

30 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread