Hot Fox: Re: [usuarios_fox] report a excel

quarta-feira, 24 de março de 2010

Re: [usuarios_fox] report a excel

Hola que tal
Siguiendo el ejemplo que anexo y que alguna vez amablemente publicaron por este medio en cuanto a exportación de datos a excel con formato.
Cual sería la instrucción o comando final para que una vez realizado todo el proceso, cierre EXCEL, pues al ejecutar el código queda abierto EXCEL con el archivo generado

Por su amable atención y comentarios gracias

Saludos!

To: usuarios_fox@yahoogrupos.com.mx
Sent: Monday, May 18, 2009 09:56
Subject: Re: [usuarios_fox] report a excel

LOCAL Fila
WAIT'Espere Un Momento Exportando Datos' WINDOW NOWAIT
_SCREEN.MOUSEPOINTER=14
TmpSheet=GETOBJECT('','Excel.Sheet')
XLApp=TmpSheet.APPLICATION
XLApp.VISIBLE=.T.
XLApp.workbooks.ADD()
XLSheet=XLApp.ActiveSheet
XLSheet.Cells(2,2)="Id Prest."
XLSheet.Cells(2,2).FONT.bold=.T.
XLSheet.Cells(2,2).FONT.SIZE="12"
XLSheet.Cells(2,2).FONT.NAME="Arial"
XLSheet.Cells(2,3)="Prestador"
XLSheet.Cells(2,3).FONT.bold=.T.
XLSheet.Cells(2,3).FONT.SIZE="12"
XLSheet.Cells(2,3).FONT.NAME="Arial"
XLSheet.Cells(2,4)="Matricula"
XLSheet.Cells(2,4).FONT.bold=.T.
XLSheet.Cells(2,4).FONT.SIZE="12"
XLSheet.Cells(2,4).FONT.NAME="Arial"
XLSheet.Cells(2,5)="Debito"
XLSheet.Cells(2,5).FONT.bold=.T.
XLSheet.Cells(2,5).FONT.SIZE="12"
XLSheet.Cells(2,5).FONT.NAME="Arial"
XLSheet.Cells(2,6)="ExtraCapita"
XLSheet.Cells(2,6).FONT.bold=.T.
XLSheet.Cells(2,6).FONT.SIZE="12"
XLSheet.Cells(2,6).FONT.NAME="Arial"
XLSheet.Cells(2,7)="Autorizado"
XLSheet.Cells(2,7).FONT.bold=.T.
XLSheet.Cells(2,7).FONT.SIZE="12"
XLSheet.Cells(2,7).FONT.NAME="Arial"
XLSheet.Cells(2,8)="Total"
XLSheet.Cells(2,8).FONT.bold=.T.
XLSheet.Cells(2,8).FONT.SIZE="12"
XLSheet.Cells(2,8).FONT.NAME="Arial"
SELE CURORD
Fila=3
SCAN
XLSheet.Cells(Fila,2)=Pre_Id
XLSheet.Cells(Fila,3)=Prestador
XLSheet.Cells(Fila,4)=Matricula
XLSheet.Cells(Fila,5)=Debito
XLSheet.Cells(Fila,6)=ExtraCapita
XLSheet.Cells(Fila,7)=Autorizado
XLSheet.Cells(Fila,8)=Total
Fila=Fila+1
ENDSCAN
XLSheet.COLUMNS("A:A").COLUMNWIDTH = 2
XLSheet.COLUMNS("B:B").EntireColumn.AutoFit
XLSheet.COLUMNS("C:C").EntireColumn.AutoFit
XLSheet.COLUMNS("D:D").EntireColumn.AutoFit
XLSheet.COLUMNS("E:E").EntireColumn.AutoFit
XLSheet.COLUMNS("F:F").EntireColumn.AutoFit
XLSheet.COLUMNS("G:G").EntireColumn.AutoFit
_SCREEN.MOUSEPOINTER=0

--- El dom 17-may-09, horacio villegas <horville@yahoo.com> escribió:

De: horacio villegas <horville@yahoo.com>
Asunto: [usuarios_fox] report a excel
Para: usuarios_fox@yahoogrupos.com.mx
Fecha: domingo, 17 de mayo de 2009, 11:32 pm

Hola a todos.

Queremos ver si es posible por medio de un report de vfox que la salida la deje en una hoja de excel.

trabajamos vfp 6, no se si en el 8 o el 9 se pueda o si por medio de alguna otra herramientra.

Gracias y Saludos.

Horacio

Yahoo! Cocina
Recetas prácticas y comida saludable
http://ar.mujer.yahoo.com/cocina/

[Se han eliminado los trozos de este mensaje que no contenían texto]

[Se han eliminado los trozos de este mensaje que no contenían texto]