Export Datei aus Listbox, Zeile als Überschrift
23.04.2019 10:56:17
Andre
ich exportiere die ersten drei Spalten aus einer Listbox in eine Datei.
Das funktioniert als solches wie gewünscht.
In der ersten Zeile der Datei soll aber jetzt noch eine Überschrift, die immer gleich ist "KUNDENREF;NR;LHMID".
Ich kenne mich nicht wirklich aus und weiß nicht wo ich den Code ergänzen muss. Könnte mir jemand helfen?
Danke und Gruß
Andre
Private Sub CommandButton_Export_Click()
Dim i As Long
Dim j As Long
Dim sFile As String, stext$, sSep As String, iFilenr
iFilenr = FreeFile
sSep = ";"
With UserForm_WA.ListBox1
sFile = "Z:\W A\GP_WA_Rückmeldung_" & TextBox_Auftrag.Value & _
".csv"
Open sFile For Output As iFilenr
For i = 0 To .ListCount - 1
stext = .List(i, 0)
stext = stext & sSep & .List(i, 1)
stext = stext & sSep & "'" & .List(i, 2)
Print #iFilenr, stext
Next
Close iFilenr
End With
MsgBox "Datei wurde angelegt:" & vbLf & sFile, vbInformation, " "
End Sub
Anzeige