error, exportar a excel
Publicado por Pablo (Argentina) (433 intervenciones) el 30/08/2010 15:32:19
Hola Amigos del foro, bueno les comento que sigo con el problema al exportar a excel, todavia no resintale el office o excel a ver si se soluciona, porque el tema es que en todos los demas forms que uso el mismo codigo si me abre bien el excel y me muestra los datos y en el que tengo probelmas me da error de codigo de excepcion Ole, codigo COM desconocido o algo, tan exacto al error no me lo acuerdo pero si que se refiere el COM, el tema es que cambiaron de excel 2003 a 2007, pero porque con algunos forms en otras exportaciones me funciona ok y en uno no, cuando el codigo estaba funcionado perfectamente!!!!!!!!!!!!!!! en todos los forms y ahora me empezo a dar este error.
Publico el codigo que utilizo al inicio para abrir el excel, el resto ya saben como sigue, todo titulos, colores, etc, ect.
Alguna idea de como solucionarlo?????
SELECT almacenequipos
xnfila=RECNO()
GOTO TOP IN almacenequipos
WAIT WINDOW 'Abriendo aplicación Excel.' NOWAIT NOCLEAR
oExcel = CreateObject("Excel.Application")
WAIT CLEAR
LOCAL TOTFIL
TOTFIL="Q"+ALLTRIM(STR(RECCOUNT()+5))
IF TYPE('oExcel') # 'O'
MESSAGEBOX("No se puede procesar el archivo porque no tiene la aplicación" ;
+ CHR(13) + "Microsoft Excel instalada en su computador.",16,cWarning)
RETURN .F.
ENDIF
oExcel.Workbooks.Add()
oSheet = oExcel.ActiveSheet
Muchas Gracias
Pablo - Argentina
Publico el codigo que utilizo al inicio para abrir el excel, el resto ya saben como sigue, todo titulos, colores, etc, ect.
Alguna idea de como solucionarlo?????
SELECT almacenequipos
xnfila=RECNO()
GOTO TOP IN almacenequipos
WAIT WINDOW 'Abriendo aplicación Excel.' NOWAIT NOCLEAR
oExcel = CreateObject("Excel.Application")
WAIT CLEAR
LOCAL TOTFIL
TOTFIL="Q"+ALLTRIM(STR(RECCOUNT()+5))
IF TYPE('oExcel') # 'O'
MESSAGEBOX("No se puede procesar el archivo porque no tiene la aplicación" ;
+ CHR(13) + "Microsoft Excel instalada en su computador.",16,cWarning)
RETURN .F.
ENDIF
oExcel.Workbooks.Add()
oSheet = oExcel.ActiveSheet
Muchas Gracias
Pablo - Argentina
Valora esta pregunta


0