Hallo zusammen,
ich habe mit hilfe des Forums und Google einen Script angepasst.
Dieser Script soll mit eine CSV Datei in eine Notes Datenbank importieren.
Mein Problem ist, das er jede Zeile in ein Feld schreibt und nicht jede Spalte in ein Feld und nach jeder neuen Zeile sollte er ein neues Dokument beginnen.
Code
Sub Click(Source As Button)
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Dim uiws As New NotesUIWorkspace
Dim fileCSV As Variant
Dim teil As String
Dim bestellnr As String
Dim artflgew As Double
Dim Obergruppe As String
Dim Artikelgruppe As String
Dim Serie As String
Dim Klasse As String
Dim teil_bez1 As String
Dim counter As Integer
Dim doc As NotesDocument
counter =0
filenum% = Freefile()
fileCSV = uiws.OpenFileDialog(False, "Datei auswählen","*.csv" ,"c:\")
If Not Isempty(fileCSV ) Then
Open fileCSV(0) For Input As filenum%
Do Until Eof(filenum%)
Input #filenum%, teil, teil_bez1, Obergruppe, Klasse, Artikelgruppe, Serie, bestellnr, artflgew
Set doc = db.CreateDocument
With doc
.BestellNr = bestellnr
.Artnr = teil
.Preis = artflgew
.Wargr = Obergruppe
.Klasse = Klasse
.Artikelgruppename = Artikelgruppe
.BezeichnungDE = teil_bez1
.Serie = Serie
.Form = "Eingabe"
End With
Call doc.save(False, False)
counter = counter +1
Loop
Msgbox "OK!"
End If
End Sub
Alles anzeigen
kann mir jemand Helfen?