Hyperlink in Excel auf ein Notesdokument

    Hallo Zusammen,


    ich habe mir einen Excelexport geschrieben, der alles Mögliche nach Excel exportiert.
    Jetzt bräuchte ich in der letzten spalte noch einen Link auf das Exportierte Dokument.


    Muss kein Link sein, kann auch ein Button sein, der eine Markierte UnID öffnet oder so.


    VG
    Pascal

    Erstelle einen Link nach dem Muster


    notes://Host/DominoObject?Aktion


    notes:///DominoObject?Aktion


    Beispiel:
    notes:///sandbox/mybox.nsf/alle+Dokumente/Mai2009


    Öffnet das Dokument Mai2009 in der Ansicht Alle Dokumente der Datenbank mybox.nsf im Unterverzeichnis sandbox (unterhalb des "data" Verzeichnisses)
    Die erste Spalte der Ansicht Alle Dokumente muß dazu sortiert sein.



    In der Adminhilfe findest Du weiter Info's suche nach "notes://"


    Gruß
    MeinerEiner

    Hi, danke für die Antworten,


    es gibt doch die in den Eigenschaften der Dokumente auf dem Reiter mit dem <+> das Feld Bezeichner


    Wie kann ich das denn auslesen?


    mit doc.Notesurl bekomme ich


    Notes:///_asdjflaj/lskdjflkasjf/lfajssdlf?OpenDocument


    oder so ähnlich.


    Warum der _ in der URL? funktioniert das Trotzdem?


    VG
    Pascal

    Hallo,


    genau das ist der Wert, den ich brauche! Danke für eure Hilfe!


    eins aber noch...


    Wie kann ich denn von Notes aus die Spalte in Excel als Hyperlink formatieren?



    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
    "Notes:///C12575B70025EFD1/A971BEF2730E8C35C12575B70025EFF6/CF105F467A4E872DC12575B7002F8612" _
    , TextToDisplay:= _
    "Notes:///C12575B70025EFD1/A971BEF2730E8C35C12575B70025EFF6/CF105F467A4E872DC12575B7002F8612"

    Das wird ja nicht gehen in Lotus Script.

    Wie schreibts Du denn die Werte nach Excel?


    Wenn Du ein Object auf die Applikation hast, dann stehen Dir doch nahezu alle VBA-Befehle ueber dieses Object zur Verfuegung.


    EDIT%
    Versuchs mal mit dieser Schreibweise.


    Code
    Call Application.ActiveSheet.Hyperlinks.Add(Range("E5"), "http://www.yahoo.de", "Yahoo", "Yahoo")


    "http://www.yahoo.de" durch Deinen Notes-Link ersetzten.


    Andreas

    Hi,


    dann kennt er die Funktion "Range" nicht, aber so wird ein Schuh draus:


    uri = Cstr(doc.NotesURL)
    Call Wsheet.Hyperlinks.Add(Wsheet.Cells(i,k), uri)



    Danke für eure Hilfe!!


    Bis dann!
    Pascal