2,723
社区成员
发帖
与我相关
我的任务
分享
lcFileName='c:\abc.xls'
oExcel=Createobject('Excel.application')
oExcel.Workbooks.Open('&lcFileName') &&打开文件
oExcel.Visible=.T.
oExcel.ActiveSheet.Columns("C").Select &&选中 C 列
oExcel.Selection.FormatConditions.Add(1,1,"60","90") && >=60 And <=90
oExcel.Selection.FormatConditions(1).Interior.ColorIndex = 10 && 绿色
oExcel.Selection.FormatConditions.Add(1,5,"90") && >90
oExcel.Selection.FormatConditions(2).Interior.ColorIndex = 5 && 蓝色
oExcel.Selection.FormatConditions.Add(1,6,"60") && <60
oExcel.Selection.FormatConditions(3).Interior.ColorIndex = 3 && 红色
Messagebox("看一下效果")
oExcel.ActiveWorkbook.saved=.T. &&不保存当前EXCEL表
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量