Hallo PeterT,
ich habe mir den unten beigefügten Code aus dem LDD entliehen und etwas angepasst. Er sollte dir auch hilfreich sein. Das Trennzeichen ist hier ein ";", die Datei heist "C:\USER.CSV" und hat 14 Spalten.
Sub Click(Source As Button)
Dim session As New notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim fileNum As Integer, cells As Integer, k As Integer
Dim fileName As String
Dim InputStr As String, delimiter As String
Dim FieldArray As Variant
resp% = Messagebox ( "Wollen Sie wirklich alle Anwender aus C:\USER.CSV importieren", 36 , "Anwender importieren" )
REM Yes
If resp% = 6 Then
fileNum% = Freefile()
' Dateipfad
fileName$ = "C:\USER.CSV"
' Trennzeichen
delimiter = ";"
' Anzahl der Zellen plus 1
cells = 14 + 1
k = 0
Open fileName$ For Input As fileNum%
Do While Not Eof(fileNum%)
' Zeile für Zeile einlesen
Line Input #1, InputStr$
FieldArray = parseall(InputStr$, delimiter, cells)
response% = CreateDocument(FieldArray)
k = k + 1
' Info in der Fußzeile ausgeben
Print Cstr(k) + " Abteilungen importiert."
Loop
Close fileNum%
Else
Exit Sub
End If
End Sub
Viel Spaß
