FoxPro/Visual FoxPro - Como abrir archivos de Excel desde un botón de comando de un formulario

LOCAL lcFile,;

	lcCaption,;

	loExcel as Object,;

	loDoc as Object,;

	loex as Exception

lcFile = GETFILE("Xlsx")

IF !EMPTY(lcFile)

	TRY

		loExcel = CREATEOBJECT("Excel.Application")

	CATCH TO loex

	FINALLY

	ENDTRY

	IF VARTYPE(loex)="O"

		MESSAGEBOX("No tiene Microsoft Excel ® instalado?",0,"Mensaje")

	ELSE

		*loExcel.file.Open(m.lcfile)

		*loDoc = loExcel.ActiveDocument

		loExcel.Visible = .t.

		*lcCaption = file.ActiveWindow.Caption + [ - Microsoft Excel]

		 DECLARE integer FindWindow IN "user32" String, String

		  *lnHWnd = FindWindow(Null , lcCaption)

		  DECLARE LONG BringWindowToTop IN "user32" LONG HWND

		  *BringWindowToTop(lnHWND)

	ENDIF

ENDIF

long ll_result

oleobject lole_excel

TRY

    ls_archivo = "c:\datos\archivo.xlsx"

    lole_excel = create oleobject

	ll_result = lole_excel.ConnectToNewObject("excel.application")

	lole_excel.WorkBooks.Open( ls_archivo )

	lole_excel.DisplayAlerts = False

	lole_excel.worksheets(1).Activate

CATCH (Oleruntimeerror ole_err)

   SetPointer(Arrow!)

   f_mensaje("A", ole_err.text)

   DESTROY lole_excel

END TRY

lcFile = GetFile("xlsx")

IF !EMPTY(m.lcFile)

	shell_Exec(m.lcFile)

ENDIF

PROCEDURE Shell_Exec

*--------------------------------------------

LPARAMETERS tcFileName, tcAction, tcParams,tlChangeDir

*********************************************

* tcFileName="\\ruta\nombreArchivo.extensión

* Sample Shell_Exec(m.lcFileName)

TRY 

	LOCAL lcExt,;

		lcMessage,;

		lDoit,;

		lcFolder,;

		loFso as Object,;

		loex AS Exception,;

		loResp AS Object

	lcFolder = FULLPATH("")

	loFso = NEWOBJECT("Scripting.FileSystemObject")

	loResp = NEWOBJECT("Empty")

	ADDPROPERTY(loResp,"nResponse",0)

	ADDPROPERTY(loResp,"failure",.f.)

	ADDPROPERTY(loResp,"FileExist",loFso.FileExists(m.tcFileName) )

	IF loResp.FileExist

		tcAction = EVL(m.tcAction,"Open")

		tcparams = EVL(m.tcParams,"")

		lcExt = JustExt(m.tcFileName)

		IF m.tlChangeDir

			lcPath = JUSTPATH(m.tcFileName)

			IF !EMPTY(m.lcPath) AND lofso.FolderExists(ADDBS(m.lcpath))

				CD &lcPath

			ENDIF 

		ENDIF 

		DECLARE INTEGER ShellExecute IN SHELL32.dll INTEGER nWinHandle,;

			STRING cOperation,;

			STRING cFileName,;

			STRING cParameters,;

			STRING cDirectory,;

			INTEGER nShowWindow

		DECLARE INTEGER FindWindow IN WIN32API STRING cNull,;

			STRING cWinName

		loResp.nResponse = ShellExecute(FindWindow(0,_SCREEN.Caption),tcAction,tcFileName,tcParams,SYS(2023),1)

		DO CASE

			CASE loResp.nResponse = 2

				lcMessage = "Invalid path or filename. No existe el archivo"

			CASE loResp.nResponse=8

				lcMessage = "No hay suficiente memoria para realizar la acción solicitada"

			CASE loResp.nResponse=11

				lcMessage = "El archivo no es ejecutable o está corrompido"

			CASE loResp.nResponse=31

				* Aparentemente ocurre cuando no encuentra

				* una aplicación asociada

				lcMessage = "No se encuentra una aplicación para "+m.lcExt

			CASE loResp.nResponse=33

				* VErificado para XLS,DOC,JPG,BMP

			CASE loResp.nResponse=42

				* Verificado para PDF,GIF,0MDI,MIP,NRI

			OTHERWISE 

		ENDCASE

	ENDIF 

CATCH TO loex

	loex.UserValue = PROGRAM()

	ShowError(loex)

FINALLY

	loFso = null

	IF m.tlChangeDir

		CD &lcFolder

	ENDIF 

	IF !EMPTY(m.lcMessage)

		loResp.Failure = .t.

		Messagebox(m.lcMessage)

	ENDIF 

ENDTRY 

RETURN loResp

ENDPROC 

loApp = CREATEOBJECT("Excel.Application")

IF VARTYPE(loApp) = "O"

   RELEASE loApp

   DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER hndWin, STRING cAction, STRING cFileName, STRING cParams, STRING cDir, INTEGER nShowWin

   cAction = "open"

   ShellExecute(0,cAction,"ExcelVentas.xls","","",1)

ELSE

   MESSAGEBOX("Excel no esta instalado asi que debe buscar el archivo ExcelVentas", 16,"JJ-system")

ENDIF