Página 1 de 1

Exportar un Reporte a Excel

Publicado: Sab Oct 27, 2012 10:43 pm
por jhugono

Hola a Todos.
Por su Ayuda, les doy las Gracias.
Tengo un problema con un Reporte que mando a Excel.
me marca el siguente error;
TOLEAUTO:RANGE(0)
Error Excel.Application:WORKBOOKS:ADD:WORKSHEETS/3 DISP_E_MEMBERNOTFOUND: RANGE
Argumentos: ( [ 1] = Tipo: C Valor: B1:[5)
No se que hacer, al parecer no es Xailer es la Aplicacion. Pero no se que hacer.
Les Agradesco su Ayuda.

Exportar un Reporte a Excel

Publicado: Lun Oct 29, 2012 12:50 pm
por alcisoft
Joel,
https://groups.google.com/forum/?fromgr ... c/comp.lan g.xHarbour/ugByPhhWOtI
Saludos
"Joel Hugo" <jhugonosistemasyredes[dot]net> escribió en el mensaje
news:508e4b63$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>
> Hola a Todos.
> Por su Ayuda, les doy las Gracias.
>
> Tengo un problema con un Reporte que mando a Excel.
>
> me marca el siguente error;
>
> TOLEAUTO:RANGE(0) Error Excel.Application:WORKBOOKS:ADD:WORKSHEETS/3
> DISP_E_MEMBERNOTFOUND: RANGE
> Argumentos: ( [ 1] = Tipo: C Valor: B1:[5)
>
> No se que hacer, al parecer no es Xailer es la Aplicacion.
> Pero no se que hacer.
>
> Les Agradesco su Ayuda.
>

Exportar un Reporte a Excel

Publicado: Lun Oct 29, 2012 5:45 pm
por PEDRO DE LEON RODAS[3]
Saludos.
Te proporciono un ejemplo que me funciona perfectamente bien.
Este ejemplo me fue proporcionado en este foro.
Yo estoy usando mysql.
Local cMovimientos,oReport,archivo,cFileName
cFileName="C:Mis_reportesprueba"
cMovimientos=AppData:mi_Base:Query("Select numero,nombre,direccion from
mi_tabla order by nombre ")
cMovimientos:Open()
REPORT oReport TITLE "My first Xailer report" HEADER DtoC( Date() ) + " "
+ Time() ALIGN taCENTER
cMovimientos:SaveState(.T.)
oReport:nGridStyle := 3
cMovimientos:GoTop()
COLUMN OF oReport TITLE "Fecha" DATA cMovimientos:Fecha
COLUMN OF oReport TITLE "Socio No." DATA cMovimientos:Numero_socio picture
"99999999"
COLUMN OF oReport TITLE "Depositos" DATA cMovimientos:Depositos picture
"999999999.99" total
oReport:bWhile := {|| !cMovimientos:eof()}
oReport:bSkip := {|| cMovimientos:skip()}
oReport:ToExcel(cFileName)
cMovimientos:RestoreState(.T.)
Espero te sirva.