ayudenme porfavor necesito llamar un archivo de exel desde vfp

azael
02 de Abril del 2003
ya intente esto:
DECLARE INTEGER ShellExecute IN SHELL32 INTEGER hwnd, STRING cOP, STRING cFile, STRING cParams, STRING cStartDir, INTEGER nShowCmd
DECLARE INTEGER GetDesktopWindow IN User32

LOCAL cFile, nWhnd, cStartPath, nx

aqui cFile=\'Examen.doc\'
IF FILE(cFile)
nWhnd=GetDesktopWindow()
aqui cStartPath=ADDBS(JUSTPATH(cFile))
nResult=ShellExecute(nWhnd, \'OPEN\', cFile, \'\', cStartPath, 1)
ENDIF
pero me parca erro de sintaxis en la partes que dice (aqui)

osvaldo
02 de Abril del 2003
si lo que necesitas es llamar un archivo de excel, puedes hacer lo siguiente:

*** nombre del archivo: datos.xls"

** identifica el directoria por defecto del proyecto
** ejemplo: d:liquidacion

vruta_default = SYS(5)+SYS(2003)+""

Oleapp = CREATEOBJECT("Excel.Application")
Oleapp.Application.DisplayAlerts =.F.
Oleapp.Visible = .F.
Oleapp.Workbooks.Open(vruta_default + "datos.xls")
Oleapp.Visible = .T.
Oleapp.ActiveWorkbook.Close
RELEASE ALL