excel文件的打开和显示，以及报表打印(200分)

那位大虾不吝赐教了；
要能够到开excel文件；打印指定的纪录；3x

http://www.delphibbs.com/delphibbs/dispq.asp?lid=759711

看看这个应该差不多了。。。

如何打开Word或者Execel
（1）通过OLE打开
word := CreateOleObject('Word.Basic');
word.FileOpen('c:/file.doc');
或者
xls := CreateOLEObject('Excel.Application');
xls.visible:=true;
（2）只是简单地打开
ShellExecute(0, 'open', 'c:/file.doc',
nil, nil,SW_SHOWNORMAL);

使用OLE打开Excel：
procedure OpenExcel;
var
ExcelApp:variant;
begin
ExcelApp:=CreateOleObject('Excel.Application');
ExcelApp.visible:=true;
ExcelApp.WorkBooks.Open(yourFileName);
end;