Export aus Listbox in csv - letzte Zeile
01.07.2020 15:50:40
Andre
ich habe eine Lagerdatei erstellt, wo aus einer Listbox die Werte in eine CSV-Datei geschrieben werden.
Mein Problem ist, dass in der CSV-Datei der Cursor am Ende in einer neuen Zeile steht und nicht am Ende der letzten Zeile mit Werten. Dadurch funktioniert der Import der Datei nicht.
Beispiel:
KUNDENREF;NR;LHMID
55555;1;'00340370413400190678
55555;2;'00340370413400190784
|
Der Code ist wie folgt:
Private Sub CommandButton_Export_Click()
Const sSep As String = ";"
Dim i As Long
Dim j As Long
Dim sFile As String, stext$, iFilenr As Integer
iFilenr = FreeFile
sFile = "D:\GP_WA_Rückmeldung_" & TextBox_Auftrag.Value & ".csv"
Open sFile For Output As #iFilenr
Print #iFilenr, "KUNDENREF;NR;LHMID"
With UserForm_WA.ListBox1
For i = 0 To .ListCount - 1
Print #iFilenr, .List(i, 0) & sSep & .List(i, 1) & sSep & "'" & .List(i, 2)
Next
End With
Close #iFilenr
MsgBox "Datei wurde angelegt:" & vbLf & sFile, vbInformation, " "
End Sub
Wie muss der Code aussehen, damit der Cursor am Ende nicht in der neuen Zeile steht?
Gruß
Andre