|
Ich verstehe nicht genau was das Problem sein soll.
Option Explicit
Sub Test()
Dim values As Variant
Dim QNr As Integer
Dim i As Long
values = Array("Kirsche", "Orange", "Gurke", "Rhabarber")
QNr = FreeFile
Open "D:\test.csv" For Append As #QNr
'Erste Ausgabe
' Print #QNr, """"; Join(values, """;"""); """"
Print #QNr, """"; Join(values, "_1st"";"""); "_1st"""
'Zweite Ausgabe
For i = LBound(values) To UBound(values)
If i < UBound(values) Then
' Write #QNr, values(i),
Write #QNr, values(i) & "_2nd",
Else
' Write #QNr, values(i)
Write #QNr, values(i) & "_2nd"
End If
Next
Close #QNr
QNr = 0
End Sub
Die auskommentierten Zeilen sind ohne den Zusatz "_1st" und "_2nd".
Die Zusätze dienen hier nur zur Unterscheidung in der Ausgabe-Datei, d.h. du willst eigentlich die auskommentierten Zeilen verwenden.
Die Ausgabe sieht so aus:
"Kirsche_1st";"Orange_1st";"Gurke_1st";"Rhabarber_1st"
"Kirsche_2nd","Orange_2nd","Gurke_2nd","Rhabarber_2nd"
Der wesentliche Unterschied ist der, dass man normal mit Komma trennt, oder im zweiten Fall mit einem beliebigen Trennzeichen.
Du solltest dir weiterhin den Unterschied zwischen Write und Print ansehen.
Grüße
|