ayudenme porfavor necesito llamar un archivo de exel desde vfp
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)
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)
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
*** 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