Das Notes Forum
Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: reichi am 07.11.06 - 10:45:06
-
Hallo
Ich habe in einem Dokument ein Word-Objekt eingefügt. Über folgende Zeilen im PostOpen-Event des Dokuments wird das OLE Objekt direkt in MS Word (nicht eingebettet in Notes) geöffnet. Nach Speichern im MS Word und des entsprechenden Notesdokument werden die Änderungen im eingebetteten OLE-Objekt übernommen.
Set OLEObject = Source.GetObject("OLEObject")
OLEObject.activate
OLEObject.Application.Visible = True
Jedoch funktioniert dies nur für Word und nicht für Excel. Hat jemand vielleicht ne Idee, wie man dies umsetzen kann.
mfg
Reichi
-
Was heisst "funktioniert nur für Word ..."? Gibt es eine Fehlermeldung o.ä.? Weitere Beobachtungen? Vergleich mit anderen Installationen / Clients?
Bernhard
-
Hallo.
Ich meine damit, das der oben beschriebe LS Quellcode nur für ein Word OLE-Objekt funktioniert. Ist jedoch das OLE-Objekt ein Excel-Dokument dann funktioniert es nicht.
Wenn ich das Script im Debugger durchlaufen lasse öffnet sich Excel aber das Fenster bleibt leer. Bei Word wird an dieser Stelle direkt das Word-Dokument angezeigt und es kann bearbeitet werden.
Ich arbeite mit Notes 6.5.4
-
Hi
vielleicht hilft dir der Ansatz:
Dim excel As Variant
Dim worksheet As Variant
Set excel = CreateObject("Excel.Application")
excel.Workbooks.Add
Set worksheet = excel.Workbooks(1).Worksheets(1) 'select first worksheet
excel.visible = True
Es wird Excel mit einer leeren Tabelle geöffnet....
Benjamin