How to get Excel Cell color

populate · September 11th, 2004, 11:58 AM

Hi Gurus,

I have a very simple question. How can I get one cel color in excel.

I read the Excel file, and want to get one Cell color. My code is below:
========================CODE====================

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim objExcel As New Excel.Application

        Dim objWrkBk As Excel.Workbook

        Dim objSht As Excel.Worksheet

        Dim objRng As Excel.Range

        Dim strCol, strCell As String

        Dim maxCol, maxRow As Integer

        Dim iRow, iCol As Integer
        Dim objColor As Excel.Font

        maxRow = 2

        maxCol = 2

        objWrkBk = objExcel.Workbooks.Open("K:\LaPonce\test.xls")

        objSht = objWrkBk.Worksheets(1)

        objExcel.Visible = True

        For iCol = 1 To maxCol

            For iRow = 1 To maxRow
                strCol = Chr(Asc(iRow) + 16)
                strCell = strCol + iCol.ToString

                objRng = objSht.Range(strCell)

                MsgBox(objRng.Value)

                objColor = objSht.Cells.Font
                MsgBox(objColor.Color.GetType.GetProperty("color", Reflection.BindingFlags.ExactBinding))
                objColor = Nothing
            Next

        Next

    End Sub

=================================================

THE CODE IN vb.net, BUT C# CODE IS ALSO HIGHLY ACCEPTABLE.

THANKS FOR UR HELP.
HIMADRISH

Thanks!
Populate

sunilr · January 5th, 2007, 11:22 AM

Hi,
I won't be of any help to you, but your code has helped me to some extent. Thanks for that.
But I have a few doubts . In this code you call open method which opens a new excel sheet. But in my case an excel sheet is already open, I just want to read the excel file.

Another issue is that in your code you have hard coded the number of columns & rows but in my case there can be any number of rows. So I want to read till the end of the file.

Is there a way to tackle the above mentioned problems.

PerttiOO · March 3rd, 2014, 04:25 AM

Check this Stackoverflow answer.
So in short Color value can be retrieved from excel's Range object:

Code:

objColor = objRng.Interior.Color

To be honest this solution has its drawbacks.
For few cells it will work great, but if you have to retrieve Color value from more cells than this approach is an overkill. This is because for each individual cell, from which you want to get Color, you will have to call its Range.
Here is an alternative you can try, with this .NET Excel component:

Code:

ExcelFile objWrkBk = ExcelFile.Load(@"K:\LaPonce\test.xls");
ExcelWorksheet objSht = objWrkBk.Worksheets[0];

int maxRow = objSht.Rows.Count;
int maxCol = objSht.CalculateMaxUsedColumns();

for (int iCol = 0; iCol < maxCol; iCol++)
{
    for (int iRow = 0; iRow < maxRow; iRow++)
    {
        string strCell = CellRange.RowColumnToPosition(iRow, iCol);
        ExcelCell cell = objSht.Cells[strCell];

        MsgBox(cell.Value);
        MsgBox(cell.Style.Font.Color);
    }
}