BCB用代码写Excel文件

//将数据导入 excel 表中 201010

//保存数据到 excel 文件中

…………………

SaveDialog1->FileName =s_ReportName+EDt.FormatString("yyyymmdd");

if(SaveDialog1->Execute())

{

AnsiString filenamex=SaveDialog1->FileName+".xls";

Variant Wb,Sh1;

Sh1.PG("Cells",1,1).PG("Font").PS("Size",18);

Sh1.PG("Cells",1,1).PG("Font").PS("Bold",true);

Sh1.PG("Cells",1,1).PG("Font").PS("Name","宋体");

//设置行高

Sh1.PG("Rows",1).PS("RowHeight",1.155/0.035); // 1/0.035=1cm

//合并单元格

Sh1.PG("Range", "A1:K1 ").PR("Merge");

//水平对齐 1:顶端对齐，2：居中， 3：底端对齐

Sh1.PG("Cells",1,1).PS("HorizontalAlignment",3);

//垂直对齐 2:左端对齐，3：居中， 4：右端对齐

Sh1.PG("Rows",2).PS("RowHeight",1.155/0.035); // 1/0.035=1cm

Sh1.PG("Range", "A2:K2 ").PR("Merge");

Sh1.PG("Cells",2,1).PS("HorizontalAlignment",3);

Sh1.PG("Cells",2,1).PS("VerticalAlignment",2);

//设置 3 行 1 列单元格属性

Sh1.PG("Cells",3,1).PG("Font").PS("Size",10);

Sh1.PG("Cells",3,1).PG("Font").PS("Bold",true);

Sh1.PG("Cells",3,1).PG("Font").PS("Name","宋体");

Sh1.PG("Range", "A3:H3").PR("Merge");

//设置 3 行 9 列单元格属性

Sh1.PG("Columns",1).PS("ColumnWidth",5.2);

Sh1.PG("Columns",2).PS("ColumnWidth",8);

Sh1.PG("Columns",3).PS("ColumnWidth",8.4);

Sh1.PG("Columns",4).PS("ColumnWidth",7.6);

Sh1.PG("Columns",10).PS("ColumnWidth",7.2);

Sh1.PG("Columns",11).PS("ColumnWidth",6);

//填写标题栏

Sh1.OlePropertyGet("Cells",1,1).OlePropertySet("Value",s_StationName);

//填写报表名称

Sh1.OlePropertyGet("Cells",2,1).OlePropertySet("Value",s_ReportName);

//填写日期栏

Sh1.OlePropertyGet("Cells",3,1).OlePropertySet("Value","报表日期:"+s_ReportDate);

Sh1.OlePropertyGet("Cells",3,9).OlePropertySet("Value","单位:RMB 元");

//填写列名称

Sh1.PG("Cells",4,1).PG("Font").PS("Bold",true);

Sh1.PG("Cells",4,1).PS("HorizontalAlignment",3);

cc="序号";

Sh1.OlePropertyGet("Cells",4,1).OlePropertySet("Value",cc);

Sh1.PG("Cells",4,2).PG("Font").PS("Size",10);

Sh1.PG("Cells",4,2).PG("Font").PS("Bold",true);

Sh1.PG("Cells",4,2).PG("Font").PS("Name","宋体");

Sh1.OlePropertyGet("Cells",4,2).OlePropertySet("Value",cc);

Sh1.PG("Cells",4,3).PG("Font").PS("Size",10);

Sh1.PG("Cells",4,3).PG("Font").PS("Name","宋体");

Sh1.PG("Cells",4,4).PG("Font").PS("Size",10);

Sh1.PG("Cells",4,4).PG("Font").PS("Bold",true);

Sh1.PG("Cells",4,4).PS("HorizontalAlignment",3);

Sh1.PG("Cells",4,4).PS("VerticalAlignment",2);

Sh1.PG("Cells",4,5).PS("HorizontalAlignment",3);

Sh1.PG("Cells",4,5).PS("VerticalAlignment",2);

cc="交费次数";

Sh1.OlePropertyGet("Cells",4,5).OlePropertySet("Value",cc);

Sh1.PG("Cells",4,6).PG("Font").PS("Size",10);

Sh1.PG("Cells",4,6).PG("Font").PS("Bold",true);

Sh1.PG("Cells",4,6).PG("Font").PS("Name","宋体");

Sh1.PG("Cells",4,6).PS("HorizontalAlignment",3);

Sh1.PG("Cells",4,6).PS("VerticalAlignment",2);

cc="验票次数";

Sh1.PG("Cells",4,7).PG("Font").PS("Size",10);

Sh1.PG("Cells",4,7).PG("Font").PS("Bold",true);

Sh1.PG("Cells",4,7).PG("Font").PS("Name","宋体");

Sh1.PG("Cells",4,7).PS("VerticalAlignment",4);

cc="单次收费金额";

Sh1.OlePropertyGet("Cells",4,7).OlePropertySet("Value",cc);

Sh1.PG("Cells",4,8).PG("Font").PS("Size",10);

Sh1.PG("Cells",4,8).PG("Font").PS("Name","宋体");

Sh1.PG("Cells",4,8).PS("HorizontalAlignment",3);

Sh1.PG("Cells",4,8).PS("VerticalAlignment",4);

cc="通过次数合计";

Sh1.OlePropertyGet("Cells",4,8).OlePropertySet("Value",cc);

Sh1.PG("Cells",4,9).PG("Font").PS("Size",10);