Herbers Excel-Forum - das Archiv

XL und Notes

Bild

Betrifft: XL und Notes
von: Markus L
Geschrieben am: 09.10.2003 16:22:14
Hallo zusammen,

wie kann ich von Excel per VBA auf Notes Datenbanken (nicht Mail) zugreifen?
Die Verbindung zu einer Datenbank auf einem Domino Server klappt schon bestens. Jetzt hab ich aber Probleme, auf die einzelnen Felder der Datenbank zuzugreifen, vielleicht kann mir ja jemand weiter helfen. Vielen Dank schon mal.

Markus L

Bild

Betrifft: AW: XL und Notes
von: Andi_H
Geschrieben am: 13.10.2003 12:40:10
Hi Markus,
diesen Code habe ich hier aus dem Forum, vielleicht kannst du damit was anfangen:

Option Explicit
Sub adressen_notes()
Dim session As Object
Dim db As Object
Dim view As Object
Dim doc As Object
Dim feld1 As Object
Dim feld2 As Object
Dim Zeile As Integer
'Positionieren auf DB
Set session = CreateObject("Notes.Notessession")
' datenbanken anpassen
Set db = session.getdatabase("server", "nsf-datei")
'Positionieren auf Ansicht und erstes Dokument
Set view = db.getview("Nach Kategorie")
'     Set doc = view.GetFirstDocument()
Zeile = 1
While Not (doc Is Nothing)
Set feld1 = doc.getfirstitem("Subject")
Worksheets("Tabelle1").Cells(Zeile, 1).Value = feld1.Text
Set feld1 = Nothing
Set doc = view.getnextdocument(doc)
'i = i + 1
Zeile = Zeile + 1
Wend
End Sub


Hoffe das hilft dir.

Gruß

ANdi
 Bild