
06/01/2003, 14:42
|
| | Fecha de Ingreso: abril-2002 Ubicación: Montevideo
Mensajes: 98
Antigüedad: 23 años Puntos: 0 | |
Código Aca va el código para crear un xls. Sobre lo del color de fondo no lo tengo claro. Debes poner en referencias del proyecto: "Microsoft Excel 9.0 Object Library".
Dim nomArchSalida As String
' Declare an object variable to hold the object
' reference. Dim as Object causes late binding.
Dim ExcelSheet As Object
Set ExcelSheet = CreateObject("Excel.Sheet")
nomArchSalida = "ActivosReserva"
' GRABO EN XLS.
' Seteo que no sea visible la aplicación Excel.
ExcelSheet.Application.Visible = False
ExcelSheet.Application.Cells(1, 1).Value = "aksfjkajsfjajdsfjsak"
' Salvo el archivo xls en la ruta de salida levantada.
ExcelSheet.SaveAs rutaSalida & nomArchSalida & ".xls"
' Cierro el Excel con el metodo Quit en el objeto Application.
ExcelSheet.Application.Quit
' Libero la varible Objeto.
Set ExcelSheet = Nothing
Espero que les sirva.
Saludos
jsaviola
pd: Queda pendiente mi pregunta en un msg de hace varios días. |