none
Cambiar color celda excel RRS feed

  • Pregunta

  • Hola expertos, estoy haciendo una aplicacion que exporta un archivo a excel, y me gustaria que algunas de las celdas que exporto sean de un color concreto. 
    He cambiado el ancho de las celdas de la siguiente manera Libro.Sheets(1).cells(1, 1).ColumnWidth = 30
    SIn embargo el color no encuentro la extension para ponerle, supongo que debe ser muy sencillo pero no se como hacerlo! Supongo que sera poner Libro.Sheets(1).cells(x,y).Color = Red o algo por el estilo no? Podrian ayudarme?Gracias de antemano!

    Este es mi codigo, y he añadido la dll Microsoft.Office.Tools.Excel y los Imports "Microsoft.Office.Interop.Excel"  "Microsoft.Office.Tools.Excel" y " Microsoft.Office.Core"

     Private Sub FaisceauxToExcel()
            Dim ApExcel = New Microsoft.Office.Interop.Excel.Application
            Dim Libro = ApExcel.Workbooks.Add

            Libro.Sheets(1).cells(1, 1) = "QUOTATION HARNESS"
            Libro.Sheets(1).cells(2, 1) = "----------------------------------------------"
            Libro.Sheets(1).cells(3, 1) = "Code UK P/N"
            Libro.Sheets(1).cells(4, 1) = "Drawing"
            Libro.Sheets(1).cells(5, 1) = "Description"

            Libro.Sheets(1).cells(1, 1).ColumnWidth = 30
            
            SaveFileDialogProduct.DefaultExt = "*.xlsx"
            SaveFileDialogProduct.FileName = "Time Quotation  UK PN " & lblUK.Text & "  DRW PN " & lblDRW.Text
            SaveFileDialogProduct.Filter = "Archivos de Excel (*.xlsx)|*.xlsx"
            SaveFileDialogProduct.ShowDialog()
            Libro.SaveAs(SaveFileDialogProduct.FileName)

            ApExcel.Quit()
            Libro = Nothing
            ApExcel = Nothing
        End Sub

    Nino

    • Cambiado Enrique M. Montejo viernes, 12 de diciembre de 2014 11:32 Pregunta relacionada con Microsoft Excel.
    miércoles, 10 de diciembre de 2014 15:04

Todas las respuestas

  • Libro.Sheets(1).Range("A1:D2").Interior.ColorIndex = 35

    colores: http://dmcritchie.mvps.org/excel/colors.htm

    yo me ahorro el libro.sheets(1) declarandolo de esta forma

    oSheet = oBook.Worksheets(1)

    y asi el ejemplo anterior solo quedaria asi:oSheet.Range("A1:D2").Interior.ColorIndex = 35

    incluyendo tus otras lineas oSheet.cells(5, 1) = "Description"

    es solo una sugerencia

    • Propuesto como respuesta RHCRD viernes, 3 de julio de 2015 17:54
    miércoles, 10 de diciembre de 2014 18:02