Ayuda con envío a excel
Hola ¡ Necesito tu ayuda para poder enviar los datos a exel con un formato listo para imprimirse... Como el color del fondo, letras, centrado, etc...
A ver si me puedes ayudar...
Y si tienes algún ejemplo me lo podrías mandar a :
[email protected]
Gracias
A ver si me puedes ayudar...
Y si tienes algún ejemplo me lo podrías mandar a :
[email protected]
Gracias
1 respuesta
Respuesta de Víctor Arturo Mercado Fernández
1
Este es un ejemplo:
m.cTabla = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
SELECT Datos
** Iniciamos Excel
m.oExcel = CREATEOBJECT("Excel.Application")
WITH m.oExcel
.VISIBLE=.F. && No se muestra
.Workbooks.ADD && Se añade una hoja
.Cells( "A1" ).VALUE = "BULTOS ACEITES LUBICANTES"
.RANGE( "A1" ).SELECT & &Seleccionamos la celda
WITH .SELECTION && Damos formato
.FONT.Bold = .T.
.HorizontalAlignment = -4108
.VerticalAlignment = -4107
.WrapText = .F.
.ORIENTATION = 0
.AddIndent = .F.
.ShrinkToFit = .F.
.MergeCells = .T.
.FONT.ColorIndex = -4105
.Interior.ColorIndex = 45
.Interior.PATTERN = 1
ENDWITH
..
..
..
.ActiveWorkbook.SAVEAS( "Archivo de Prueba" ) && Guardamos el archivo
.ActiveWorkbook.CLOSE && Cerramos la hoja
.QUIT && Salimos de Excel
ENDWITH
WAIT "Archivo generado." WINDOW NOWAIT
SET SAFETY ON
Espero te sirva. Si requieres mayor explicación, te puedo enviar un ejemplo un pocoa más largo.
Bueno, eso digo yo...
m.cTabla = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
SELECT Datos
** Iniciamos Excel
m.oExcel = CREATEOBJECT("Excel.Application")
WITH m.oExcel
.VISIBLE=.F. && No se muestra
.Workbooks.ADD && Se añade una hoja
.Cells( "A1" ).VALUE = "BULTOS ACEITES LUBICANTES"
.RANGE( "A1" ).SELECT & &Seleccionamos la celda
WITH .SELECTION && Damos formato
.FONT.Bold = .T.
.HorizontalAlignment = -4108
.VerticalAlignment = -4107
.WrapText = .F.
.ORIENTATION = 0
.AddIndent = .F.
.ShrinkToFit = .F.
.MergeCells = .T.
.FONT.ColorIndex = -4105
.Interior.ColorIndex = 45
.Interior.PATTERN = 1
ENDWITH
..
..
..
.ActiveWorkbook.SAVEAS( "Archivo de Prueba" ) && Guardamos el archivo
.ActiveWorkbook.CLOSE && Cerramos la hoja
.QUIT && Salimos de Excel
ENDWITH
WAIT "Archivo generado." WINDOW NOWAIT
SET SAFETY ON
Espero te sirva. Si requieres mayor explicación, te puedo enviar un ejemplo un pocoa más largo.
Bueno, eso digo yo...
Hola de nuevo... acabo de checar mi correo y no llego nada... ¿me lo puedes enviar de nuevo? Gracias..
Hola de nuevo... ya puse el código en mi formulario pero me aparece este mensaje..
Código de error OLE 0x8002005. Código de estado de COM desconocido y me abre el depurador en
.Cells( "A1" ).VALUE = "BULTOS ACEITES LUBICANTES" ...
¿Me puedes decir que me falta agregar?
Gracias
Código de error OLE 0x8002005. Código de estado de COM desconocido y me abre el depurador en
.Cells( "A1" ).VALUE = "BULTOS ACEITES LUBICANTES" ...
¿Me puedes decir que me falta agregar?
Gracias
Modifica el código a:
m.cTabla = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
SELECT Datos
** Iniciamos Excel
m.oExcel = CREATEOBJECT("Excel.Application")
WITH m.oExcel
.VISIBLE=.F. && No se muestra
.Workbooks.ADD && Se añade una hoja
.RANGE( "A1" ).SELECT & &Seleccionamos la celda
= .ActiveCell.FormulaR1C1( "BULTOS ACEITES LUBICANTES" )
WITH .SELECTION && Damos formato
.FONT.Bold = .T.
.HorizontalAlignment = -4108
.VerticalAlignment = -4107
.WrapText = .F.
.ORIENTATION = 0
.AddIndent = .F.
.ShrinkToFit = .F.
.MergeCells = .T.
.FONT.ColorIndex = -4105
.Interior.ColorIndex = 45
.Interior.PATTERN = 1
ENDWITH
..
..
..
.ActiveWorkbook.SAVEAS( "Archivo de Prueba" ) && Guardamos el archivo
.ActiveWorkbook.CLOSE && Cerramos la hoja
.QUIT && Salimos de Excel
ENDWITH
WAIT "Archivo generado." WINDOW NOWAIT
SET SAFETY ON
Posiblemente el error se deba a diferentes versiones de Excel.
m.cTabla = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
SELECT Datos
** Iniciamos Excel
m.oExcel = CREATEOBJECT("Excel.Application")
WITH m.oExcel
.VISIBLE=.F. && No se muestra
.Workbooks.ADD && Se añade una hoja
.RANGE( "A1" ).SELECT & &Seleccionamos la celda
= .ActiveCell.FormulaR1C1( "BULTOS ACEITES LUBICANTES" )
WITH .SELECTION && Damos formato
.FONT.Bold = .T.
.HorizontalAlignment = -4108
.VerticalAlignment = -4107
.WrapText = .F.
.ORIENTATION = 0
.AddIndent = .F.
.ShrinkToFit = .F.
.MergeCells = .T.
.FONT.ColorIndex = -4105
.Interior.ColorIndex = 45
.Interior.PATTERN = 1
ENDWITH
..
..
..
.ActiveWorkbook.SAVEAS( "Archivo de Prueba" ) && Guardamos el archivo
.ActiveWorkbook.CLOSE && Cerramos la hoja
.QUIT && Salimos de Excel
ENDWITH
WAIT "Archivo generado." WINDOW NOWAIT
SET SAFETY ON
Posiblemente el error se deba a diferentes versiones de Excel.
