|    
			
				06/01/2003, 14:42
			
			
			  | 
  |   |  |  |  Fecha de Ingreso: abril-2002 Ubicación: Montevideo 
						Mensajes: 98
					 Antigüedad: 23 años, 6 meses 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.
     |