XProfan

Desde que kein Excel installiert habe wäre lo nun para mich una Leichtes el a testen -

desafortunadamente bietest Usted pero no Exe a sodass Yo ahora no genau weiß Yo sólo anstellen se. ^ ^

Uwe
''Pascal''
Niemeier

Hi Personas!

Das ging wohl a mi Adresse...

Wenn Yo una Excel-Application "createn" voluntad y es kein Excel en el Rechner, es entonces Excel&=0 ?

Definitiv nein!
Wenn una ungültige ID angegeben se, entsteht siempre una WebBrowser-Ventana: Damit verbunden es entonces una Meldung encima una Verbindungs- oder Navigationsfehler.

Un Möglichkeit, en a klären, si el gewünschte Anwendung disponible es:
Kompilieren Marca Separación

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ß

¡Hola Pascal,

el sieht bien de

Nur ni Cuestión:
Yo teste el al Anfang meines Programms. Wenn %Error<>0 kommt una Fehlermeldung y Programa se final. Ansonsten geht's sólo más...
An verschiedenen Stellen se entonces Excel geöffnet y otra vez geschlossen. Dazu nutze Yo ocxCreate(...
¿Cómo se puede Yo porque el Application otra vez final, el I, con Deiner Vorgehensweise geöffnet habe. Sonst stört el nachher y restos eben auch después de Ende des Programms offen.

Gracias

Win10 16 GB RAM

Christof
Neuß

Yo glaube, Yo hab's hinbekommen. Über el oxcInfo3a.inc. Aunque ha me XPSE una Fehler gemeldet. El Función "WideToMulti..." wäre no deklariert. Posesiones esta entonces de el ocx2.inc en el ocx3a.inc kopiert. Dann ging's. En
ExcelTEST&=oxcCreate("Excel.Applikation")
zeigt me
oxcName(ExcelTEST&)
ahora "_Application" a.

Ob el correcto es??? Mir es eingefallen, dass Yo Excel de mi Netbook verbannt habe. Also hay getestet.
Como kommt "IEWebBrowser2".
El Abfrage kann also m.E. en

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

Win10 16 GB RAM

Uwe
''Pascal''
Niemeier

Hi Christof!

¿Cómo se puede Yo porque el Application otra vez final, el I, con Deiner Vorgehensweise geöffnet habe.

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

_Application como Name uno Anwendungs-Objektes scheint a stimmen. Oder eben en IWebBrowser2 testen.

SeeYou
Pascal

14.05.2011 ▲

Christof
Neuß

Hi Pascal,

el funktioniert

Yo mache el ahora así:
Kompilieren Marca Separación

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>)

Der Navegador schließt se entonces pero no con "Quit". Mit "Close" geht's auch no. Oder muss Yo, el nada schließen?

Merci.

Win10 16 GB RAM

16.05.2011 ▲