reportes a word y excel
Ricardo calo
26 de Noviembre del 2005
Hola a todos: Me podrian ayudar para saber como hago para enviar los reportes a word con la misma forma que si estuvieran impresos y a excel.
Gracias.
Gracias.
usuario
26 de Noviembre del 2005
Utiliza la herramienta frx2word que gratuita, tambien frx2any 贸 xfrx que son por pago.
EmilsonPineda
26 de Noviembre del 2005
Mira..... para pasar los reportes o informaci贸n a excel.... es facil si tienes ingenio para poder hacer las cosas..... te dire lo que yo hago.... lo cual me ayudara a tener un mejor control de lo que necesito pasar a excel. Excel te permite crear archivos Templates "Los conoces o has utilizado" bien.... en estos files tu creas como un reporte solo los encabezados y defines en que columnas caera cada informaci贸n que necesites. como x ejemplo, lo hare vertical y no horizontal por el espacio.
CODIGO (Column A)
DESCRIPCION (Column B)
CANTIDAD (Column C)
PRECIO (Column D)
TOTAL (Column E)
supongamos que esta informaci贸n esta en la Linea 6 y el file lo salvaremos dentro de un directorio cerca del sistema para que todos los usuarios tengan acceso a el con facilidad.... (osea archivos pre-dise帽ados)
bien el boton para exportar a excel tendra el siguiente codigo de PRG
WAIT WINDOW "Exportando Data a Excel..." NOWAIT
LOCAL sDate
LOCAL nRecno
LOCAL objExcel
LOCAL nRow
LOCAL sPathFileOpen
m.sPathFileOpen="x:\Sistema\sheets\templates\inventario"
m.objExcel=CREATEOBJECT("excel.application")
m.objexcel.Workbooks.Open(m.sPathFileOpen)
m.nRow=7
m.nCount=0
SELECT TableInventory
m.nRecno=RECNO()
SCAN
IF cantidad#0 THEN
m.objExcel.Cells(m.nRow,1).Value=Codigo
m.objExcel.Cells(m.nRow,2).Value=Descripci贸n
m.objExcel.Cells(m.nRow,3).Value=cantidad
m.objExcel.Cells(m.nRow,4).Value=precio
m.objExcel.Cells(m.nRow,5).Value="=C"+LTRIM(STR(m.nRow))+"+D"+LTRIM(STR(m.nRow))
m.nRow=m.nRow+1
ENDIF
ENDSCAN
m.objExcel.Range("A8","I"+LTRIM(STR(m.nCount+7))).Borders.LineStyle=1
m.objexcel.Cells(m.nRow,8).Value=;
m.objExcel.SUM(m.objexcel.Range("H8","H"+LTRIM(STR(m.nCount+7))))
m.objExcel.Visible=.T.
RELEASE m.objExcel
GO (m.nRecno)
WAIT CLEAR
ok..... esto exportara la informaci贸n que necesites a excel en un entorno mas control por ti....
espero te sirva....
ahora con Word a煤n estoy realizando algunas pruebas para ver como puedo minimizar la programaci贸n y sacar mejor provecho del Word.... q\'do pendiente para luego explicarte como hacerlo....
saludos,
CODIGO (Column A)
DESCRIPCION (Column B)
CANTIDAD (Column C)
PRECIO (Column D)
TOTAL (Column E)
supongamos que esta informaci贸n esta en la Linea 6 y el file lo salvaremos dentro de un directorio cerca del sistema para que todos los usuarios tengan acceso a el con facilidad.... (osea archivos pre-dise帽ados)
bien el boton para exportar a excel tendra el siguiente codigo de PRG
WAIT WINDOW "Exportando Data a Excel..." NOWAIT
LOCAL sDate
LOCAL nRecno
LOCAL objExcel
LOCAL nRow
LOCAL sPathFileOpen
m.sPathFileOpen="x:\Sistema\sheets\templates\inventario"
m.objExcel=CREATEOBJECT("excel.application")
m.objexcel.Workbooks.Open(m.sPathFileOpen)
m.nRow=7
m.nCount=0
SELECT TableInventory
m.nRecno=RECNO()
SCAN
IF cantidad#0 THEN
m.objExcel.Cells(m.nRow,1).Value=Codigo
m.objExcel.Cells(m.nRow,2).Value=Descripci贸n
m.objExcel.Cells(m.nRow,3).Value=cantidad
m.objExcel.Cells(m.nRow,4).Value=precio
m.objExcel.Cells(m.nRow,5).Value="=C"+LTRIM(STR(m.nRow))+"+D"+LTRIM(STR(m.nRow))
m.nRow=m.nRow+1
ENDIF
ENDSCAN
m.objExcel.Range("A8","I"+LTRIM(STR(m.nCount+7))).Borders.LineStyle=1
m.objexcel.Cells(m.nRow,8).Value=;
m.objExcel.SUM(m.objexcel.Range("H8","H"+LTRIM(STR(m.nCount+7))))
m.objExcel.Visible=.T.
RELEASE m.objExcel
GO (m.nRecno)
WAIT CLEAR
ok..... esto exportara la informaci贸n que necesites a excel en un entorno mas control por ti....
espero te sirva....
ahora con Word a煤n estoy realizando algunas pruebas para ver como puedo minimizar la programaci贸n y sacar mejor provecho del Word.... q\'do pendiente para luego explicarte como hacerlo....
saludos,