Domino 9 und frühere Versionen > ND7: Entwicklung

Zugriff auf Excel Datei

(1/4) > >>

vbis:
Hallo zusammen,

ich würde gerne aus Notes heraus auf eine Excel Datei (z.B. im csv-Format) zugreifen.
Leider weiß ich nicht genau, wie dies zu machen ist und was alles zu beachten ist.

Geht es evtl. mit der Funktion @DBColumn ?

Ich stelle mir dies als eine Art Live Zugriff auf diese Datei vor.
Anhand einer Kundennummer die eingegeben wird, werden andere Felder automatisch anhand der gefundenen Kundennummer aus der Tabelle ergänzt.

Es wäre schön wenn ich hier Tipps kriegen könnte, wie ich dies am besten Umsetzen kann, da ich soetwas noch nicht gemacht habe.

Vielen Dank für Eure Hilfe
thomas

Ozan:
Hallo,

hmm, das kann ich dir nicht sagen, aber ich könnte dir eine Agent anbieten der die Daten in die NSF importiert, dann kannst du problemlos mit @DBColumn arbeiten.

Sub Initialize
 Dim db As NotesDatabase
 Dim doc As NotesDocument
 Dim field(1 To 2) As String 'gesamt Anzahl der Felder in der csv angeben
 Dim session As New NotesSession
 Dim sentence As String
 Set db = session.CurrentDatabase
   
 Open "c:\input.csv" For Input As #1
   
  While Not Eof(1)
   Line Input #1, sentence
   For i = 1 To 2 'gesamt Anzahl der Felder in der csv angeben
    field(i) = ""
   Next i
  fieldnr = 1
  For i = 1 To Len(sentence)
   If Mid(sentence, i, 1) = ";" Then fieldnr = fieldnr + 1 Else field(fieldnr) = field(fieldnr) + Mid(sentence, i, 1)
  Next i
  For i = 1 To 2 'gesamt Anzahl der Felder in der csv angeben
   field(i) = Replace(field(i),Chr(34),"")
  Next i
  Set doc = New NotesDocument( db )

  doc.Form = "Person"
  doc.Name=field(1)
'......      

 Call doc.Save(True,True)
 Wend    
Close #1
End Sub

ascabg:
Hallo,

Man kann auf die CSV-Datei zugreifen oder aber auch auf die Excel-Datei direkt.

Hierzu kannst Du die COM-Schnittstelle Verwenden. (vorausgesetzt Excel ist auf dem Rechner auch installiert).

@Ozan
Wie wuerde in Deinem Script eine CSV-Datei importiert, die folgenden Aufbau hat,
Wert1;Wert2;Wert3;Wert4;...;Wertx

Andreas

Ozan:
über die Feldnummerierung:
doc.Name=field(1)
doc.Vorname=field(n)

ascabg:
Strasse, PLZ, Ort, ... ???

Navigation

[0] Themen-Index

[#] Nächste Seite