如何利用C++ Builder 4.0 Enterprise实现对Excel97 的调用

我们在进行数据库软件的开发时，一般都要进行大量的报表设计，虽然我们可以利用Crystal Report 或程序自带的报表工具进行报表设计，但是当涉及到要设计多重报表或交叉报表时、我们一般都会感到自己力不从心。有时虽然想利用Excel作为前台报表，但却找不到相关接口只能作罢。其实我们只要知道Excel的接口结构，就能够方便的实现对Excel的调用。 　　原理：在Excel 中程序接口一般分为3层 ,分别为：ExelApplication、Excelbook、Excelsheet 其中ExelApplication代表Excel程序，Excelbook代表Excel程序当前的工作本，Excelsheet代表Excelbook当前激活的表格，因此在启动Excel程序时要按此序分别启动，这样就能实现对Excel报表的操作。 　　现举例为例介绍如下： 　　一、在Import Type Library中加入 Excel8.olb，在/include 子目录下生成Excel_TLB.h文件. 　　二、在BCB4.0中Form1中添加Button1、Button2、Button3、Table1，并存盘为Project1。 　　三、在Unit1.h中加入头文件 #include "../Excel_tlb.h" 　　　　　　 在Private中加入 　　 Private:　　 　　 TCOM_Application Application;　　 file://定义ExcelApplication对象// 　　　　WorksheetPtr　　Worksheet;　　　　　　　　// 定义ExcelSheet对象// 　　　　RangePtr　　 FirstCol ;　　　　　　　　　　 file://定义列对象// 　　　　RangePtr　　 Range　　　　　　　　　　　　 file://定义表格操作范围// 　　 　　四、在Button1的OnClikc事件中添加如下代码： void __fastcall TForm1::Button1Click(TObject *Sender) {//启动Excel// 　　 const int xlWBatChart = -4109; const int xlWBatWorksheet = -4167;　　 if (! Application) 　　Application = CoApplication_::Create(); file://建立于Excel程序的连接// Application->set_Visible(0, true);//打开Excel程序// Application->Workbooks->Add(xlWBATWorksheet);//创建只含有一个ExcelSheet的ExcelBook// Worksheet = Application->Workbooks->get_Item(1)->Worksheets->get_Item(1);//取得该表对象// Worksheet->Name = WideString("database Date");//建立该表的名称// } 　　 　　五、在Button2的OnClikc事件中添加如下代码： void __fastcall TForm1::Button2Click(TObject *Sender) {//添加数据// int i, j; 　　 Table1->DatabaseName="DBDEMOS"; 　　 Table1->TableName="Author.db"; 　　Table1->Open( ); 　　for( i=0;i<Table1->FieldCount;i++) Worksheet->Cells->set__Default(1,i,Table1->Fileds->Fileds[i]->FiledName);//在指定的位置加入字段名// Table1->First(); j=2; while( !Table1->Eof( )) { for( i=0;i<Table1->FieldCount;i++) Worksheet->Cells->set__Default(j,i, Table1->Fields->Fileds[i]->AsString);在指定的位置加入数据库的内容// Table1->Next( ); j++; } 　　} 六、在Button3的OnClikc事件中添加如下代码： void __fastcall TForm1::Button3Click(TObject *Sender) {//表格设置// 　　Range = m_Worksheet->get_Range("C1:F20");//设置表格操作范围// 　　Range->Font->size=12;//设置字体大小// 　　Range->Columns->Interior->ColorIndex = 3;//设置表格表格颜色// 　　Range->Borders->LineStyle = xlContinuous;//设置表格边框// 　　FirstCol = m_Worksheet->Columns->get__Default(3 );//取得当前表格的第三列对象// 　　FirstCol->ColumnWidth = 25;　　　　　　 // 设置对象宽度// 　　FirstCol->Font->Bold = true;　　　　　　　　// 设置字体属性为加粗// 　　FirstCol->Font->Italic = true;　　　　　　 file://设置字体的种类// 　　FirstCol->Font->Color = clBlue;　　　　 // 设置字体的颜色// } 　　 以上程序在C++ Builder 4.0 Enterprise + Pwin98中实现。 　　 通过以上程序可以看出，只要我们在程序中对Excel进行巧妙的设置，就能够设计出具有专业水平的报表。 （作者：孙航东）