Inicio > Visual FoxPro > hhbernal > Reporte A Excel

Reporte A Excel

Experto:
Usuario: Anónimo Fecha: 22/05/2008
Valoración: (5,00 sobre 5) Categoría: Visual FoxPro
22/05/2008
Usuario
hola amigo tengo este codigo para generar un reporte  no puse todo el codigo completo solo lo basico,ya q el archivo ReporLPM.xls ya esta creado y tiene formato como color,tamño de letra,tipo de letra etc etc,el problema q tengo es q si tengo mas de un archivo abierto de excel me ciera el ultimo,ejemplo...
tengo 3 archivos de excel abiertos diferentes de cada cosa,y cuadno genero mi reporte ReporLPM.lxs ya serian 4 archivos q tendria abiertos, entonces al cerar solo mi reporte,se cierra el mio y el ultimo abierto q estaba (3), entonces me quedan 2 archivos abiertos,como podria solucionar este problema para q domas me cierre mi reporte q genero.bueno espero haiga sido claro con mi pregunta y muchas gracias
tmpsheet = GetObject("C:\LPM5\ReporLPM.xls")
XLApp = tmpsheet.application
XLApp.Parent.Windows(XLApp.Parent.Windows.count()).Visible = .t.
XLSheet = XLApp.ActiveSheet
XLApp.Visible = .t.
22/05/2008
eldimas, experto respondiendo en Visual FoxPro
Experto
Hola,
Has los siguientes cambios en tú código:
 
lcArchivo = 'c:\lpm5\ReportLPM.xls'
loExcel = CreateObject('Excel.Application')
IF VARTYPE(loExcel)='O'
    tmpSheet = loExcel.WorkBooks.Open(lcArchivo)
   xlSheet = tmpSheet.sheets(1)
   xlSheet.Activate
   loExcel.visible
   << Aquí va el resto del código que tienes>>
   loExcel.Quit  && Para salir de excel sin cerrar tus demás archivos
ENDIF
 
Espero te sea de ayuda,
 
Saludos desde México, D.F.
 
22/05/2008
Usuario
muchas gracias amigo fue de gran ayuda tu respuesta,te sacastes un 10000000000000000000000000
 
gracias amigo
Enlaces patrocinados