Result := True;

             try

                    FvExcel := CreateOleObject(''''Excel.Application'''');

                    except

              Application.MessageBox(''''打开Excel失败'''',PChar(Application.Title),MB_ICONERROR);

                      Result := False;

                    end;

                    FvExcel.Visible := True;

                    FvExcel.Caption := '''''''';

                    FvExcel.WorkBooks.Open(strFileName); //打开工作簿

                    FvExcel.WorkSheets[1].Activate;  //设置第1个工作表为活动工作表

end;

（4）    向FvExcel中插入数据

FvExcel.cells[row,col].value:=’中国’;//row表示行，col表示列；

（5）    设置格式

fvexcel.rows[row].font.color:=clred; //设置某一行数据的颜色

fvexcel.ActiveSheet.PageSetup.LeftMargin:=1;//设置左页边距

fvexcel.ActiveSheet.PageSetup. RightMargin:=1;//设置右页边距

              fvexcel.ActiveSheet.PageSetup.Zoom:=100;//设置显示比例

              fvexcel.ActiveSheet.PageSetup.PaperSize:= xlPaperA4;//设置打印纸张大小

4．一些体会

       在程序设计过程中，我们很多时候要设置Office文档、表格的格式，这时要用到很多属性、方法和函数等，这些属性、方法和函数一般是平时很少用到的，如果手上没有VBA手册，很难查找到这些东西，所以，比较好的方法是首先打开OFFICE，事先做好你要设计的格式，通过OFFICE中的宏记录，然后打开OFFICE中的Visual Basic编辑器，查看代码就可以看到你的操作使用到的属性、方法或者函数了。通常很多属性、函数或者方法可以直接搬到Delphi程序中用，一部分也只要稍微修改，也可以在Delphi中使用了。

5．结束语

       通过Delphi可以很完美的和Office结合，设计出各种样式的表格、文本以及幻灯片等。同时通过Delphi操作数据库，把要求的数据插入Office适当的位置，通过Office本身的功能实现预览、打印和保存，从而减少节约程序调试和定位调试的时间，简化的编程的难度，减少了程序员的工作量。对于用户来讲，采用大家熟悉的Office，增加了系统可操作性。该思想已经在“职称评审管理信息系统”中大量使用。

上一页  [1] [2]