改变excel单元格颜色? 。

改变excel单元格颜色? 在线等。。。。。
根据单元格的值，如果大于一个定值，则改变单元格的颜色为红色。

[解决办法]
最近应工作关系，看了一些关于BCB操作MS EXCEL的资料，根据你的要求，写了下面的代码。不知道能不能帮到你。如果有什么问题，请尽量提出，让我们一起进步吧！
Variant ExcelApp,Workbook1,Sheet1,Range1;
ExcelApp = CreateOleObject ( "Excel.Application ");
ExcelApp.OlePropertyGet( "workbooks ").OleFunction( "open ", "路径名.xls ");
Workbook1.OlePropertyGet( "Sheets ", ［第几个工作表integer］).OleProcedure( "Select ");
Sheet1 = Workbook1.OlePropertyGet( "ActiveSheet ");
String strValue = Sheet1.OlePropertyGet( "Cells ", [列integer], [行integer]).OlePropertyGet( "Value ");
if (StrToInt(strValue)> 条件）
{
Sheet.OlePropertyGet( "Cells ",[列integer], [行integer]).OlePropertyGet( "Interior ").OlePropertySet( "ColorIndex ", [excel 颜色索引 integer]);
}
[解决办法]
Range1=ex.OlePropertyGet( "Cells ", 1, 2);
Range1.OlePropertyGet( "Cells ").OlePropertyGet( "Interior ").OlePropertySet( "Color ", RGB(255, 255, 0));