filename:="D:\\test.xlsx";
  
//ImportFile(ftXLS(),"",filename,t);
 
obj:=CreateObject("txlsreadwrite");
  
obj.LoadFromFile("",filename);
  
mysheet:=obj.sheets(1); //mysheet返回即为Txlssheet类
 
return mysheet.FillPatternForeColorRGB(1,1);
//返回对应单元格的填充图案颜色值，16777215