XProfan

là je ne...aucune Excel installiert habe wäre es eh bien pour mich un Leichtes cela trop testen -

malheureusement bietest Du mais aucun Exe à sodass je maintenant pas oui c'est ca sais quoi je seulement anstellen soll. ^ ^

Uwe
''Pascal''
Niemeier

Hi gens!

cela ging wohl à mon Adresse...

si je une Excel-Application "createn" veux et c'est ne...aucune Excel sur dem calculateur, ist ensuite Excel&=0 ?

définitif non!
si une ungültige ID angegeben wird, entsteht toujours un WebBrowser-la fenêtre: avec cela verbunden ist ensuite une annonce sur une Verbindungs- ou bien Navigationsfehler.

une Possibilité, afin de klären, si qui gewünschte Anwendung vorhanden ist:
Kompilieren Marque Séparation

window 600,600
declare a#:dim a#,255
declare b#:dim b#,16
declare Error&
stringw a#,0 ="Irgendeine.Application"
Error&=external("ole32","CLSIDFromProgID",a#,b#)
print Error&,winerror$(Error&)
stringw a#,0 ="Excel.Application"
Error&=external("ole32","CLSIDFromProgID",a#,b#)
print Error&,winerror$(Error&)
stringw a#,0 ="InternetExplorer.Application"
Error&=external("ole32","CLSIDFromProgID",a#,b#)
print Error&,winerror$(Error&)

Christof
Neuß

allô Pascal,

cela sieht bien aus

seulement encore une Frage:
je teste cela am Anfang meines Programms. si %Error<>0 venez une Fehlermeldung et Programme wird finissez. Ansonsten geht's arrêt plus...
à verschiedenen se mettre wird ensuite Excel ouvert et wieder geschlossen. en supplément nutze je ocxCreate(...
comment peux je car qui Application wieder finissons, qui je avec Deiner Vorgehensweise ouvert habe. Sonst stört qui après et bleibt plan aussi pour Ende des Programms offen.

merci

Win10 16 GB RAM

Christof
Neuß

je crois, je hab's hinbekommen. Über qui oxcInfo3a.inc. Allerdings hat mir XPSE un faute gemeldet. qui Funktion "WideToMulti..." wäre pas deklariert. Habe cet ensuite aus qui ocx2.inc dans qui ocx3a.inc kopiert. ensuite ging's. chez
ExcelTEST&=oxcCreate("Excel.Applikation")
zeigt mir
oxcName(ExcelTEST&)
maintenant "_Application" à.

si cela richtig ist??? Mir ist eingefallen, dass je Excel de meinem Netbook verbannt habe. alors là getestet.
là venez "IEWebBrowser2".
qui Abfrage peux alors m.E. sur

Instr("_APPLICATION",Upper$(osxName(ExcelTEST&)))=0 lauten.

Win10 16 GB RAM

Uwe
''Pascal''
Niemeier

Hi Christof!

comment peux je car qui Application wieder finissons, qui je avec Deiner Vorgehensweise ouvert habe.

Am elegantesten avec ocxMethod(Excel&,"Quit")

_Application comme nom eines Anwendungs-Objektes scheint trop stimmen. ou bien plan sur IWebBrowser2 testen.

SeeYou
Pascal

14.05.2011 ▲

Christof
Neuß

Hi Pascal,

cela funktioniert

je fais cela maintenant so:
Kompilieren Marque Séparation

ocxInit()
VAR ExcelTEST&=ocxCreate("Excel.Application")

ifNOT InStr("BROWSER",Upper$(ocxName(ExcelTEST&)) )=0

    ocxMethod(ExcelTEST&,"Close")
    MessageBox("Excel ist nicht installiert oder kann nicht gestaret werden!"+Chr$(10)+"Programm wird beendet.","Meldung",0)
    ocxRelease(ExcelTEST&)
    ocxDeInit()
    END

else

    ocxMethod(ExcelTEST&,"Quit")

endif

ocxRelease(ExcelTEST&)
ocxDeInit(=s2>)

qui Browser schließt sich ensuite mais pas avec "Quit". avec "Close" geht's aussi pas. ou bien muss Je l' gar pas schließen?

Merci.

Win10 16 GB RAM

16.05.2011 ▲