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

Beiträge aus den Excel-Beispielen zum Thema " Spaltenbreite"