Ver Mensaje Individual
  #4 (permalink)  
Antiguo 06/01/2003, 14:42
jsaviola
 
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.