¿Alguien experto? C贸mo abrir aplicaciones de Office des un menu de Foxpro 6,
He tenido problemas al intentar abrir aplicaciones como Word, Excel, Power Point, Access, antivirus, Etec, desde un men煤 de foxpro 6; Tengo el sistema operativo de Windows XP profesional en mi m谩quina.
Con el Windows 98, no hay problemas al utilizar los comandos Run 贸 !start, estos comandos no funcionan en xp.
Les pido por favor si puden responder a mi inquietud...
Con el Windows 98, no hay problemas al utilizar los comandos Run 贸 !start, estos comandos no funcionan en xp.
Les pido por favor si puden responder a mi inquietud...
Efectivamente, a m铆 tambi茅n me pasaba. En mi caso era al enlazar con el Word.
Al parecer el problema en XP viene con el nombre de archivo. Si se le da sin la ruta completa ("C:loquesea"), tiene problemas para localizarlo y devuelve un error de OLE. Poniendo toda la ruta, lo abre perfectamente, igual que lo hac铆a con Win98.
Espero resulte 煤til...
Al parecer el problema en XP viene con el nombre de archivo. Si se le da sin la ruta completa ("C:loquesea"), tiene problemas para localizarlo y devuelve un error de OLE. Poniendo toda la ruta, lo abre perfectamente, igual que lo hac铆a con Win98.
Espero resulte 煤til...
no es tan complicado
solo crea un un procedimiento dentro de una las opciones de tu menu con los siguientes datos
word= createobject('word.application','')
word.show
espero y te sirva
solo crea un un procedimiento dentro de una las opciones de tu menu con los siguientes datos
word= createobject('word.application','')
word.show
espero y te sirva
Espero que te pueda servir de algo este c贸digo
LOCAL cErrores, lExcel
* BUSCO UNA SESION DE EXCEL YA ACTIVA:
cErrores = ON("ERROR")
ON ERROR lExcel = .F.
oExcel = GetObject(,"excel.application")
ON ERROR &cErrores
IF TYPE("oExcel") # 'O'
* NO ESTABA ACTIVA. PREPARO UNA NUEVA SESION DE EXCEL:
oExcel = CREATEOBJECT("Excel.Application")
ENDIF
oExcel.VISIBLE = .T. && VISUALIZO EXCEL
oExcel.Workbooks.ADD && PREPARO UN NUEVO TRABAJO DE EXCEL
****Las dem谩s aplicaciones de OFFICE son muy parecidas, lo importante es que no importa la ruta en que se encuentren los programas************
BYE, ESTOY A TUS ORDENES
LOCAL cErrores, lExcel
* BUSCO UNA SESION DE EXCEL YA ACTIVA:
cErrores = ON("ERROR")
ON ERROR lExcel = .F.
oExcel = GetObject(,"excel.application")
ON ERROR &cErrores
IF TYPE("oExcel") # 'O'
* NO ESTABA ACTIVA. PREPARO UNA NUEVA SESION DE EXCEL:
oExcel = CREATEOBJECT("Excel.Application")
ENDIF
oExcel.VISIBLE = .T. && VISUALIZO EXCEL
oExcel.Workbooks.ADD && PREPARO UN NUEVO TRABAJO DE EXCEL
****Las dem谩s aplicaciones de OFFICE son muy parecidas, lo importante es que no importa la ruta en que se encuentren los programas************
BYE, ESTOY A TUS ORDENES
