Crear archivo de Excel con Formato

[herba98]

amigos, cuando creo un archivo de excel haciendo uso de:

Set Arch_Excel = FSOXLS.CreateTextFile(PathXLS, True)
Arch_Excel.writeline "sucursal"

quisiera darle algo de formato a la celda, por ejemplo Negrita, color azul y fondo amarillo centrado...

tienen idea de como pasarle este formateo a excel?

gracias

[orharo2003]

Un ejemplo :

Dim objXL
Set objXL =CreateObject("Excel.Application")
objXL.Visible = TRUE
objXL.WorkBooks.Add
objXL.Columns(1).ColumnWidth = 20
objXL.Columns(2).ColumnWidth = 30
objXL.Columns(3).ColumnWidth = 40
objXL.Cells(1, 1).Value = "Nombre"
objXL.Cells(1, 2).Value = "Puesto"
objXL.Cells(1, 3).Value = "Sueldo"
objXL.Range("A1:C1").Select
objXL.Selection.Font.Bold = True
objXL.Selection.Interior.ColorIndex = 1
objXL.Selection.Interior.Pattern = 1
objXL.Selection.Font.ColorIndex = 2
objXL.Columns("B:B").Select
objXL.Selection.HorizontalAlignment = &hFFFFEFDD

La otra puedes hacer un macro en excel y ver la programación.

Y para cuando le quieras dar movimiento a gráficos:

x ejemplo:

objXL.Workbooks.Add
objXL.Cells(1,1).Value = 5
objXL.Cells(1,2).Value = 10
objXL.Cells(1,3).Value = 15
objXL.Range("A1:C1").Select
Set objXLchart = objXL.Charts.Add()
objXL.Visible = True
objXLchart.Type = -4100
For intRotate = 5 To 180 Step 5
objXLchart.Rotation = intRotate
Next
For intRotate = 175 To 0 Step -5
objXLchart.Rotation = intRotate
Next

Y hay mucho más x hacer....

Un saludo.

[orharo2003]

leyendo nuevamente mmmm lo que te puse no es válido desde crear el archivo, eso es válido para automatizar desde excel.

Pero puedes utilizar tablas dar el formato [normal en HTML] y solo cambias al fonal la extensión. Los filtros de Excel harán el trabajo de conversión x tí.

P.D. Te recomiendo en XP en adelante, pues en el 2000 no te respeta bien las tablas el excel.

[herba98]

pero en este caso se crea un nuevo libro de cual archivo? como creo un archivo nuevo? como lo salvo?

donde puedo conseguir un manual de este objeto y sus metodos?

gracias

[orharo2003]

Lo guardas con el método saveas "nombredelarchivo"

algo como:

objeto_instancia.activeworkbook.saveas "orharo.xls"

Honestamente, yo he aprendido del libro:

Excel 2002 VBA Programmer's Reference" published by Wrox Press Limited; ISBN 1861005709
http://www.wiley.com/WileyCDA/WileyT...764543717.html

Seguro qeu en cualquier libreria especializada lo encuentras.

Un saludo.

[mamon]

a mi me salio un error:
El componente ActiveX no puede crear el objeto: 'Excel.Application'
/pruebas/excel.asp, línea 3
Set objXL =CreateObject("Excel.Application") 'linea 3
tengo q instalar algo?