FoxPro/Visual FoxPro - Problema con Parametro Nombre de Objeto

   
Vista:

Problema con Parametro Nombre de Objeto

Publicado por andres (38 intervenciones) el 30/08/2011 17:10:57
Buenas gente
Tengo el siguiente problema. Arme una clase para que abra y cierre un archivo Excel
Pero me da error con el parametro de Referencia.
El problema creo que esta en que paso como referencia un Tipo Objeto y necesito concatenarlo para ejecutarlo en la clase.

Aqui les dejo el ejemplo.


*------------------------------------------
* Desde un boton de un formulario
*------------------------------------------
oFile = NEWOBJECT('Excel','lib\ClsExcel')
oFile.AbreExcel('oExcel'))

Release oExcel
Release oFile
return


*------------------------------------------
* CLASE : ClsExcel
* Metodo: Excel
*------------------------------------------
LPARAMETERS oExc

* Se selecciona un archivo excel y se retorna la ruta completa
cPath = GETFILE('XLSX')
IF EMPTY(cPath)=.t. THEN
MESSAGEBOX('Directorio no seleccionado',0,'')
RETURN ''
ENDIF

* Abre Archivo Excel
WAIT WINDOW ALLTRIM(cPath) NOWAIT

Instru = &oExc + ' = CREATEOBJECT("Excel.Application")'
&Instru
Instru = &oExc + '.Workbooks.Open("'+cPath+'")' <----------- ERROR
&Instru
Instru = &oExc + '.Application.Visible = .F.'
&Instru
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder