Reopen eines Dokumentes

[DAU-in]

Diese Woche läuft alles verkehrt.

Im Notesclient möchte ich das angezeigte Dokument schliessen und im Lesemodus wieder öffnen.

Dim docReopen    As NotesDocument
   Dim uidoc    As Notesuidocument
   Set uidoc    = ws.CurrentDocument
   Set docreopen    = uidoc.Document
   Call uidoc.Close
   Set uidoc = ws.EditDocument( False, docReopen  )   '( False, docReopen , True , ,  , False )
   

[DAU-in]

Da freue ich mich, dass ich was für den Notesclient machen kann, und dann gehts auch schief.
Ich will das angezeigte Dokument schliessen, und im Lesemodus wiederöffnen.

                Dim docReopen    As NotesDocument
   Dim uidoc    As Notesuidocument
   Dim uidocNew   As NotesUIDocument
   Set uidoc    = ws.CurrentDocument
   Set docreopen    = uidoc.Document
   Call uidoc.Close
   Set uidocNew = ws.EditDocument( False, docReopen  )   '( False, docReopen , True , ,  , False )
   

Die zugehörige Fehlermeldung lautet Automation Object error.   

Wo liegt diesesmal mein DEnkfehler?
Im Debugger werden werden uidoc und docReopen richtig belegt.


grüsse

Dau-in

[m3]

Und das Problem/der Fehler ist?

Weiters fehlt in dem Stückerl Code noch die Fehlerbehandlung für die Fälle, dass einer der SETs fehlschlägt.

[DAU-in]

Das uidocnew wird nicht belegt und die oben gemeldete Fehlermeldung erscheint.

Schiesse ich mir da gerade selber ins Knie, weil ich das uidoc schliessen will, über das das Backenddokument belegt wird?


Und sorry, ich kann nicht den gesamten Code posten, da der über mehrere Scriptbibliotheken verteilt ist.
Aber es hilft mir schon weiter wenn ich weiss, ob ich einen grundsätzlichen Denkfehler drinhabe beim Variablen belegen oder der Fehler von wo ganz anders kommt.

[m3]

Ah, hab ich aufgrund der Hitze das zweite Posting übersehen? Sorry. 

Ich würde eher darauf tippen, dass in dem Dokument etwas eingebettet ist (Word, Excel, ...), das Probleme bereitet.

[DAU-in]

Es wird ein Stück weiter vorne ein Excelsheet ausgelesen,
und dann mit

' close Excelobject
      xlWorkbook.Close
      Excel.Quit      
      Set Excel = Nothing    

geschlossen. Im Debugger ist das dann nicht mehr belegt.
Im Dokument selber ist nichts eingebettet und es enthält nur reine Textfelder.

Aber dann muss ich nochmals an der Stelle nachsehen.

[DAU-in]

ok, ich korrigiere mich: das Excel-dingens wird immer noch im Debugger angezeigt, dann gehe ich dort nochmals auf die Pirsch.

danke.

[DAU-in]

Das Problem wurde von einem Wert in der Excelliste verursacht, der mit einem '-' begann, und dann von Excel nicht richtig interpertiert werden konnte.
Den Wert entfernen, und schon lief das Ganze wieder.