Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Dokumente in Lotus Notes DB mit VBA anlegen

164 views
Skip to first unread message

Ulli Jahn

unread,
Jul 14, 2003, 9:48:56 AM7/14/03
to
Hallo zusammen,

ich habe eine größere Exceltabelle mit ein paar tausend,
sich ändernden Einträgen. Jeder dieser Einträge soll ein
Gegenstück in einer Lotus Notes (LN) Datenbank in Form
einen Dokumentes erhalten.
Ich scheitere derzeit beim Zugriff auf die LN Datenbank.

Für Tipps und Ratschläge vielen Dank im Voraus.

Ulli Jahn
Excel 2000 SP3

nike

unread,
Jul 15, 2003, 10:18:45 AM7/15/03
to
Hi,

mal das Folgende ausprobieren:

Re: Lotus Notes mit Excel-VBA anzapfen?

von: Altersberger Peter
Geschrieben am: 31.1.2000
-----------------------------------------------------------
---------------------

Hi Nike !
Mit folgendem Code kannst Du Daten aus Excel in eine Notes
Datenbank schreiben

Sub Daten_ins_Notes_Schreiben()
Dim session As Object
Dim db As Object
Dim doc As Object
Set session = CreateObject("Notes.Notessession")
Set db = session.getdatabase("", "excel.nsf")
Set doc = db.Createdocument()
doc.form = "Testfelder"
doc.field1 = "Hallo1; Hallo2; Hallo3"
Call doc.Save(True, False)
End Sub

Mit folgender Code kannst Du Daten aus Notes lesen

Sub Übernahme_Notes_EXCEL()
'Dimensionierung der Notes - Verbindungsvariablen
Dim session As Object
Dim db As Object
Dim view As Object
Dim doc As Object
'Verbindungsaufbau zu Notes
Set session = CreateObject("Notes.Notessession")
Set db = session.getdatabase
("XXXXXXXX", "NOTESDAT\SCSI\SCSIPCP.NSF") 'XXXXXXXXX =
NOTES SERVER NAME
Set view = db.getview("Ansicht RVS")
Set doc = view.GetFirstDocument
'Auslesen Hauptdokumente
Do Until doc Is Nothing
Set E_BANKNAME = doc.GetFirstItem("BANKNAME")
Worksheets("DATEN").Cells(Anzahl_Hauptdokumente, 1) =
E_BANKNAME.Text
Set doc = view.getnextdocument(doc)
Loop
End Sub

Natürlich müßtest du den Code noch anpassen, aber eine
Basis ist somit vorhanden. Bei Fragen melde Dich bitte.
Ciao, Peter

Oder mal hier suchen:
http://www.google.de/search?hl=de&ie=UTF-8&oe=UTF-
8&q=Notes+Datenbank+site%3A%2F%2Fwww.herber.de&meta=

Bye

Nike


>-----Originalnachricht-----

>.
>

Ulli Jahn

unread,
Jul 17, 2003, 2:24:53 PM7/17/03
to
Hi Nike,
vielen Dank. Das funktioniert allerbest, wenn ich es denn
richtig mache.

Ciao Ulli
>-----Originalnachricht-----

>.
>

0 new messages