Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: KV17 am 21.01.11 - 11:13:42

Titel: aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...
Beitrag von: KV17 am 21.01.11 - 11:13:42

Hallo zusammen,

ich möchte per VBA auf eine Notes Kachel(Datenbank) zugreifen. Ich habe mir bis jetzt folgenden Code zusammen gebastelt. Aber irgrendiwe funktioniert das immer noch nicht ...

Code

Private Sub adressenLN_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
Dim Workspace As Object
Dim MainDoc As Object 'The document itself

Set db = s.GetDatabase("rol-apps01/Srv/", "news/news.nsf")


      If db.IsOpen = True Then
                    'Already open
         Else
                 Call Workspace.OpenDatabase("roland-apps01/Srv/Roland", "roland/rap/rapnews.nsf")
         End If        

        Set MainDoc = db.CREATEDOCUMENT
        MainDoc.Form = "Neues Dokument"
        MainDoc.Categories = "aktuelle News"
        Call MainDoc.Save(True, False)
End Sub

könnt ihr mir helfen ?

Vielen Dank

Uwe

Titel: Re: aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...
Beitrag von: m3 am 21.01.11 - 11:32:34

1) Welcher Fehler tritt auf. "Aber irgrendiwe funktioniert das immer noch nicht ..." ist ein "wenig" zu generisch, als dass wir dazu was sagen könnten.
2) Fehlerbehandlung einbauen wird vermutlich auch schon mal helfen (hat "s" überhaupt einen Wert, ...).
3) Der Servername beim GetDatabase ist nicht vollständig.

http://www.tty1.net/smart-questions_de.html#beprecise

Titel: Re: aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...
Beitrag von: Demian am 21.01.11 - 11:37:51

wollte dich gerade auf http://ms-office-forum.de/forum/showthread.php?t=207582&highlight=lotus+notes (http://ms-office-forum.de/forum/showthread.php?t=207582&highlight=lotus+notes) verweisen, hab dann aber gesehen, dass du da schonmal geschrieben hattest...

Es fehlt auf jeden Fall das s.Initialize

Titel: Re: aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...
Beitrag von: KV17 am 21.01.11 - 12:22:26

Hallo,

sorry für die ungenaue Beschreibung. Aber es passiert halt nichts. Kein Fehler keine Daten werden in die Datenbank eingetragen. Ich weis nicht wo ich hier anfangen soll.

Wo fehlt das s.Initialize?

Uwe

Titel: Re: aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...
Beitrag von: Axel am 21.01.11 - 12:36:39

Schau mal hier: COM Together - Domino (http://www.redbooks.ibm.com/redbooks/pdfs/sg245670.pdf).

Da findest du jede Menge Infos und auch viele Beispiele.


Axel

Titel: Re: aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...
Beitrag von: KV17 am 21.01.11 - 13:02:12

Hallo Axel,

auch damit kann ich nicht viel anfangen. Kann mirkeiner spezifisch zu meinem Code helfen ... Danke.

Titel: Re: aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...
Beitrag von: koehlerbv am 21.01.11 - 13:09:48

Warum kannst Du damit nichts anfangen? Konkrete Hinweise hast Du schon bekommen, alles andere / Grundlegende steht im Redbook.
Deinen Code wird Dir hier keiner schreiben.

Bernhard

Titel: Re: aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...
Beitrag von: ascabg am 21.01.11 - 13:12:10

Hallo,

Aber den VBA-Code kannst Du doch auch debuggen?

Entsprechend kannst Du Dir auch anzeigen lassen, was zu welchem Zeitpunkt in den Variablen enthalten ist bzw. ob die Objekte sauber initialisiert werden.

Ausserdem vermisse ich ein Call s.Initialize in Deinem Code


Andreas

Titel: Re: aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...
Beitrag von: Peter Klett am 21.01.11 - 13:18:51

Private Sub adressenLN_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
Dim Workspace As Object
Dim MainDoc As Object 'The document itself

Set db = s.GetDatabase("rol-apps01/Srv/", "news/news.nsf")
      -> der Servername ist falsch, wurde Dir schon mitgeteilt

      If db.IsOpen = True Then
                    'Already open
         Else
                 Call Workspace.OpenDatabase("roland-apps01/Srv/Roland", "roland/rap/rapnews.nsf")
                 -> wenn db nicht offen ist, wird sie damit auch nicht geöffnet, außerdem ist Workspace hier noch nichts
         End If       

        Set MainDoc = db.CREATEDOCUMENT -> wenn db nicht offen ist, gibt das hier einen Fehler
        MainDoc.Form = "Neues Dokument" -> ist das wirklich der Name der Maske?
        MainDoc.Categories = "aktuelle News"
        Call MainDoc.Save(True, False)
End Sub

Ansonsten beachte die Antworten, die man Dir hier schon gegeben hat.

Der Code ist m.E. recht sinnfrei irgendwoher zusammenkopiert.

Titel: Re: aus EXCEL mittels VBA auf eine Notes Datenbank zugreifen ...
Beitrag von: KV17 am 21.01.11 - 15:00:24

Hallo Peter,

danke schonmal und mit deiner Hilfe kann ich schon ein wenig mehr anfangen ...