Appactivate aus Excel nutzen

[Demian]

Moin,moin,

weiß jemand, wie man das appactivate aus Office nutzen kann? Wenn ich das mit nachstehendem Code probiere, bekomme ich die Meldung Instance Meber Appactivate not exist oder so ähnlich.

Code

dim ex, i

i = shell ("C:\Setup.exe")

set ex = createobject("Excel.Application")
ex.appactivate (i)

Gruß
Demian

[Glombi]

such doch hier mal nach createobject und Excel

[Demian]

Moin Glombi,

da finde ich nichts bezüglich appactivate.

Gruß
Demian

[Axel]

Die Anweisung AppActivate ist auch eine eigenständige Anweisung von VBA und keine Eigenschaft oder Methode des Application - Objektes. Das sagt ja auch schon die Fehlermeldung.

Wenn du Excel über CreateObject initiierst bekommst du immer ein Objekt zurück.

VBA-Anweisungen lassen sich meines Wissens nicht über die COM-Schnittstelle aufrufen.

Was soll denn das werden? Vielleicht gibt's einen anderen Weg.

So ganz ist mir sowieso nicht klar, was Setup.exe mit Excel zu tun hat.


Axel
 

[Demian]

Moin,moin,

ich will die Installation der Setup.exe mittels sendkeys automatisieren. Wie ich leider feststellen musste funzt Sendkeys in Notes ja nicht (warum dann überhaupt der Eintrag in der Hifle?), also mache ich das über ex.sendkeys "j",true. Das funktioniert und ist doch auch ne Anweisung, oder?

Da das Appactivate in Notes leider nur Strings akzeptiert wollte ich das auch über Excel machen, da hier auch integer-werte akzeptiert werden (siehe oben). Ich würde dann vor jedem sendkeys das appactivate ausführen um sicherzustellen, dass nicht irgendne Applikation dazwischenrutscht.

Gruß
Demian

Edit:
Das der User dazwischenrutscht, unterbinde ich mit der API Blockinput. Peripherie ist dann deaktiviert. Bis auf Strg +Alt +Entf wie ich festgestellt habe.