powerbuilder中，控制excel，我想设置某单元格的前景色或背景色，请问怎么个代码

powerbuilder中，控制excel，我想设置某单元格的前景色或背景色，请问怎么个代码

string ls_range
integer li_return
OLEObject ExcelServer

// 创建实例对象
ExcelServer = CREATE OLEObject

// 连接
li_return = ExcelServer.ConnectToNewObject( "excel.application" )
if li_return < 0 then
messagebox("提示","系统检测EXCEL安装有问题，可能导致错误！")
DESTROY ExcelServer
return
end if

// 要修改的文件
gs_excelfilename = "c:\11.xls"

// 打开
ExcelServer.Workbooks.Open(gs_excelfilename,0,false)
ExcelServer.Visible = false

// 要修改的单元格
ls_range = "A1"

//为单元格赋值
excelserver.ActiveSheet.Range(ls_range).Value = "111111111"
//字体显示为粗体
excelserver.ActiveSheet.Range(ls_range).Font.Bold = true
//把区域字体定义为18号
excelserver.ActiveSheet.Range(ls_range).Font.size = 18
//区域内的字体居中，1是默认 2是左对齐，3是居中，4是右对齐
excelserver.ActiveSheet.Range(ls_range).HorizontalAlignment = 3
//颜色(值可取rgb值,我这里随便输入的)
excelserver.ActiveSheet.Range(ls_range).Font.Color = 333
excelserver.ActiveSheet.Range(ls_range).Interior.Color = 33

//保存工作薄
ExcelServer.ActiveWorkbook.save
//关闭工作薄
ExcelServer.Workbooks.close
//退出Excel
ExcelServer.quit
//断开ole连接
ExcelServer.DisConnectObject()
//释放内存资源
DESTROY ExcelServer

//
messagebox("提示","修改完毕")