Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

XL und Notes

XL und Notes
09.10.2003 16:22:14
Markus L
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: XL und Notes
13.10.2003 12:40:10
Andi_H
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige