powerbuilder中,控制excel,我想设置某单元格的前景色或背景色,请问怎么...
发布网友
发布时间:2024-02-24 23:28
我来回答
共1个回答
热心网友
时间:2024-03-01 02:51
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("提示","修改完毕")