23/09/2004, 13:26
|
| | | Fecha de Ingreso: abril-2004 Ubicación: México D.F.
Mensajes: 1.724
Antigüedad: 21 años Puntos: 4 | |
| 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. |