Delphi与Excel的亲密接触.pdfVIP

delphiexcel:Delphi与Excel的亲密接触 疯狂代码 / ĵ http://Delphi/Article12118.html Delphi和Excel亲密接触 [王安鹏(anpengwang@263.net) 2002/4/14] Delphi作为个出色RAD强大数据库 功能是其最重要特色的但是操纵困难QuickReportControl控件常常不能满足数据库报表需要如果你报表非常复 杂或者要求灵活地改变格式那么使用Excel作为报表服务器是个不错选择Delphi从版本5开始提供Excel组件极大 地简化了OLE自动化技术应用不过缺漏多多帮助文件直是Delphi最令人诟病地方这些新组件也不例外本文试图 对此作较详细地介绍 Excel对象模型是个树状层次结构根是应用本身工作簿WorkBook是根对象属性对象本文 主要讨论用于数据交换WorkSheet则是工作簿属性对象详情参阅MSOffice提供Excel VBA帮助文件在Delphi中 控制Excel首先要和服务器建立连接打开工作簿然后和目标工作表交换数据最后断开连接 打开Excel工作簿我们 例子从个带有TStringGrid(当然要填上些数据)和两个按钮主窗体开始从控制面板Servers页签中拖个 TExcelApplicationControl控件放到窗体上首先把ConnectKind设为ckRunningOrNew表示如果能够检测到运 行Excel例子则和其建立联系否则启动Excel另外如果希望运行即和服务器建立联系可以把AutoConnect属性设 为True和Excel建立联系只要条语句就可以了: Excel . Connect; 也许你已经注意到Servers页签上还有其他几个 ExcelControl控件这些Control控件通过ConnectTo思路方法可以和前面Excel联系在起 ExcelWorkbook1.ConnectTo(Excel . ActiveWorkbook); ExcelWorksheet1.ConnectTo(Excel . ActiveSheet as _Worksheet); ExcelWorksheet2.ConnectTo(Excel . Worksheets.Item[\Sheet2\] as _Worksheet); 要注 意使用ConnectTo思路方法前必须先打开相应工作簿或工作表另外这些Control控件在多数情况下并不会带来 额外便利因此最好只使用个TExcelApplication旦和Excel服务器建立联系就可以创建新工作簿: var wkBook _WorkBook; LCID : Integer; ... LCID := GetUserDefaultLCID; wkBook := Excel.Workbooks.Add(EmptyParam, LCID); Add第个参数用于定义新建工作簿所使用模板可以使用 xlWBATChart、xlWBATExcel4IntlMacroSheet、 xlWBATExcel4MacroSheet或者xlWBATWorksheet常量 也可以是已有xls文件名这里EmptyParam是Variants单元和定义变量表示使用默认通用模板创建新工作簿如果 打开已有xls文档则应把要打开文件名作为第个参数传递给Open wkBook:=Excel.WorkBooks.Open(edtDesFile.text,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam, EmptyParam,EmptyParam,LCID); 要知道所有数据 操作主要是针对活动工作表而言下面语句使用个_WorkSheet变量代表当前活动单元格如果知道工作表名称其 中索引号可以用工作表名代替: wkSheet:=wkBook.Sheets[1] as _WorkSheet; 完成数据交换后需要保存工作 簿: Excel.ActiveWorkBook.SaveAs (\MyOutput\, EmptyParam,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, LCID); 或者: Excel.ActiveW