Domino 9 und frühere Versionen > ND6: Administration & Userprobleme

Adressbuch per VBA Makro in Excel auslesen

<< < (3/3)

guesswho:
Hallo Uwe,

kann da keinen Fehler entdecken. Wenn ich das in Excel kopiere, tut das problemlos. Schon mal in Excel im Debugger nachgeschaut, wo der Fehler auftritt ?

Wird das Notes-Kennwort abgefragt nach dem Start ?!

Welche Excel-Version ?

Jo

KV17:
Hallo hab das problem gefunden. Lag an an dem Punkt CreateObject("Lotus.NotesSession") den habe ich in CreateObject("Notes.NotesSession") umbenannt. Nun liest er das adressbuch aus. einProb hab ich noch. Ich möchte nicht denn ganzen Ordner "People" auslesen sondern eine Grupe unter "by Organization"
mit dem Namen "bals" unterordner "sup1"

Hiernochmal der Code. Könnt ihr mir da helfen?


--- Code: ---Private Sub CommandButton1_Click()

Dim s As Object
Set s = CreateObject("Notes.NotesSession")

Dim db As Object
Dim view As Object
Dim doc As Object
Dim feld As Object
Dim i As Long

Set db = s.GetDatabase("mail01/Srv/sland", "names.nsf")
Set view = db.GetView("People")

Range("a1").Activate
ActiveCell.Value = "Nachname"
ActiveCell.Offset(0, 1).Value = "Vorname"
Range("a2").Activate


Set doc = view.GetFirstDocument

For i = 1 To view.AllEntries.Count
    ActiveCell.Value = doc.GetItemValue("Lastname")
    ActiveCell.Offset(0, 1).Value = doc.GetItemValue("Firstname")
    ActiveCell.Offset(1, 0).Select
   
    Set doc = view.GetNextDocument(doc)
Next i
End Sub
--- Ende Code ---

Hirnbeisz:
Locating documents within a view or folder in LotusScript classes:
http://publib.boulder.ibm.com/infocenter/domhelp/v8r0/index.jsp?topic=/com.ibm.help.domino.designer85.doc/DOC/H_LOCATING_DOCUMENTS_WITHIN_A_VIEW_OR_FOLDER.html

KV17:
Sorry Jungs, das ist für mich wie Bahnhof. Kann mir das jemand erklären ?

BigWim:
Hallo Uwe,


--- Zitat ---Kann mir das jemand erklären
--- Ende Zitat ---
Diese Abhandlung beschreibt die verschiedenen Methoden, in Notes auf ein einzelnes Dokument zuzugreifen. Wenn Du nur ein bestimmtes Dokument im "Ordner" (=View oder Ansicht) suchst, dann versuche es mal mit GetDocumentByKey method


--- Code: ---Set view = db.GetView("[b]<evtl. anzupassen>[/b]")' ich tippe mal auf "groups"
...
Set doc = view.[b]GetDocumentByKey ("bals", TRUE)[/b]

--- Ende Code ---
(Die For-Schleife brauchst Du dann nicht mehr)

Markus

Navigation

[0] Themen-Index

[*] Vorherige Sete