|
hola amigo ..mira tengo este codigo para un reporte en excel, el archivo de excel ReporLPM.xls ya esta creado y ya tiene formato como color,tamaño,tipo de letra etc... el problema es q cuadno se genera un reporte de mi sistema y si tengo otro o otros archivos de excel abiertos de otra cosa, el reporte q genero se sobreescribe en los archivos de excel abiertos ya q no me lo abre como otro archivo o documento de exel...espero q me haiga esxplicado...
LOCAL xFila
xFila= 15
SELECT curfacturas
GO TOP IN curfacturas
DO WHILE !EOF("curfacturas")
tmpsheet = GetObject("C:\LPM\ReporLPM.xls")
XLApp = tmpsheet.application
XLApp.Parent.Windows(1).Visible = .t.
XLSheet = XLApp.ActiveSheet
XLApp.Visible = .t.
XLSheet.Cells(xFila,1) = contador
XLSheet.Cells(xFila,2) = curfacturas.numero
XFila = xFila + 1
SKIP IN curfacturas
ENDDO
|
