05. december 2003 - 10:28Der er
1 kommentar og 1 løsning
Åben Notesdokument fra Excel
Hvordan kan man åbne et notesdokument fra excel ?? Jeg har en knap i mit excel dokument som skal finde et notesdokument og åbne det. Jeg finder dokumentet, men hvordan får jeg det åbnet ??
Min Excelknap indtil videre: Private Sub CommandButton2_Click() Dim session As Object Dim db As Object Dim view As Object Dim doc As Object Dim uidoc As Object
Set session = CreateObject("Notes.NotesSession")
Set db = session.GetDatabase("Server1", "Viden\Dokumentation\EdbProjDok.nsf") 'MsgBox db.Title opgavenr = ActiveWindow.ActiveCell.Value 'MsgBox opgavenr Set view = db.GetView("(Fase1PrOpgaveNr)") Set doc = view.GetDocumentByKey(opgavenr, True) End Sub
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
Problemet var at jeg brugte COM, og UIWorkspace kan ikke bruges via COM. Jeg har derfor brugt OLE (Nødigt, men desværre nødvendigt) og så virker det.
Her er løsningen:
Dim session As Object Dim db As Object Dim ws As Object Dim view As Object Dim doc As Object
Set session = CreateObject("Notes.Notessession") Set ws = CreateObject("Notes.NotesUiWorkspace") Set db = session.GetDatabase("Server1", "Viden\Dokumentation\EdbProjDok.nsf") Set view = db.GetView("(Fase1PrOpgaveNr)") opgavenr = ActiveWindow.ActiveCell.Value Set doc = view.GetDocumentByKey(opgavenr, True) Set uidoc = ws.EDITDOCUMENT(True, doc)
Nej, du har faktisk også i første omgang anvendt OLE. COM oprettes med CreateObject("Lotus.Notessession"). Men problemet var at NotesSession er Backendklasse, mens du også har brug for FrontEnd klasser. Notes.NotesUIWorkspace er OLE FrontEnd-klassen. //Jörg
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.