bcb生成excel表并实现表格设置数据填写.docVIP

//将数据导入excel表中201010 //保存数据到excel文件中 ………………… SaveDialog1-FileName =s_ReportName+EDt.FormatString(yyyymmdd); if(SaveDialog1-Execute()) { AnsiString filenamex=SaveDialog1-FileName+.xls; Variant Wb,Sh1; Wb=CreateOleObject(Excel.Sheet); int i=0; AnsiString cc; Sh1=Wb.OlePropertyGet(ActiveSheet); //设置1行1列单元格属性 //设置字号为18,粗体 Sh1.PG(Cells,1,1).PG(Font).PS(Size,18); Sh1.PG(C