Excel van telepítve a gépre, ahol próbálod? Nálam pár éve 7-es és 8-as FoxPro-val mûködött Excel 95-tõl 2000-ig. Már nem Fox-ozok, a részlet egy régi alkalmazásom forrásából van, amit széles körben használt a volt cégem, gond nélkül.
A gépemen van egy Fox8-as, most kipróbáltam rajta, de nekem mûködik. Igaz, nincs Office a gépemen, de nem a GetObject(()-tel van baja, hanem az else ággal, ugyanis nem tud Excel objektumot kreálni (ahogy az logikus is).
Ennyi volt az egész program:
if type( 'GETOBJECT(, "Excel.Application")' ) = "O"
OLEExcel=GETOBJECT(, "Excel.Application")
else
OLEExcel=CreateObject("Excel.Application")
endif
with OLEExcel
.Visible=.t.
endwith
release OLEExcel
Compile lement, futtatás is megy. Sztem valamit kihagytál / elgépeltél (idézõjelek, vesszõk nem mindegy, hol vannak).