Excel OLE Objekt direkt in Excel starten

[reichi]

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

[koehlerbv]

Was heisst "funktioniert nur für Word ..."? Gibt es eine Fehlermeldung o.ä.? Weitere Beobachtungen? Vergleich mit anderen Installationen / Clients?

Bernhard

[reichi]

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

[bml]

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