如何打开一个EXCEL并拷贝到粘贴板?(30分)

在D7下想执行以下功能,打开一个EXCEL,并将其内容拷贝到粘贴板?
var Temp_Worksheet: _WorkSheet;
begin
ExcelApplication1.Connect;
ExcelApplication1.Visible[0]:=True;
ExcelApplication1.Caption := '应用程序调用 Microsoft Excel';
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks.Add(EmptyParam,0));

Temp_Worksheet:=ExcelWorkbook1.

推荐用OLE对象来做，不用DELPHI的控件
首先创建 Excel 对象，使用ComObj:
var ExcelApp: Variant;
ExcelApp := CreateOleObject( 'Excel.Application' );

1) 显示当前窗口：
ExcelApp.Visible := True;

2) 更改 Excel 标题栏：
ExcelApp.Caption := '应用程序调用 Microsoft Excel';
3) 添加新工作簿：
ExcelApp.WorkBooks.Add;
4) 打开已存在的工作簿：
ExcelApp.WorkBooks.Open( 'C:/Excel/Demo.xls' );
5) 设置第1个工作表为活动工作表：
ExcelApp.WorkSheets[1].Activate;
或
ExcelApp.WorksSheets[ 'Sheet1' ].Activate;

6) 给单元格赋值：
ExcelApp.Cells[1,4].Value := '第一行第四列';

7) 设置指定列的宽度（单位：字符个数），以第一列为例：
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;
//不可用

8) 设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelApp.WorkSheets[1].Rows[2].RowHeight := 1/0.035; // 1厘米


9) 在第8行之前插入分页符：
ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;
10) 在第8列之前删除分页符：
ExcelApp.WorkSheets[1].Columns[4].PageBreak := 0;


13) 设置第一行字体属性：
ExcelApp.WorkSheets[1].Rows[1].Font.Name := '隶书';
ExcelApp.WorkSheets[1].Rows[1].Font.Color := clBlue;
ExcelApp.WorkSheets[1].Rows[1].Font.Bold := True;
ExcelApp.WorkSheets[1].Rows[1].Font.UnderLine := True;

14) 进行页面设置：

a.页眉：
ExcelApp.WorkSheets[1].PageSetup.CenterHeader := '报表演示';
b.页脚：
ExcelApp.WorkSheets[1].PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm：
ExcelApp.WorkSheets[1].PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm：
ExcelApp.WorkSheets[1].PageSetup.FooterMargin := 3/0.035;
e.顶边距2cm：
ExcelApp.WorkSheets[1].PageSetup.TopMargin := 2/0.035;
f.底边距2cm：
ExcelApp.WorkSheets[1].PageSetup.BottomMargin := 2/0.035;
g.左边距2cm：
ExcelApp.WorkSheets[1].PageSetup.LeftMargin := 2/0.035;
h.右边距2cm：
ExcelApp.WorkSheets[1].PageSetup.RightMargin := 2/0.035;
i.页面水平居中：
ExcelApp.WorkSheets[1].PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中：
ExcelApp.WorkSheets[1].PageSetup.CenterVertically := 2/0.035;
k.打印单元格网线：
ExcelApp.WorkSheets[1].PageSetup.PrintGridLines := True;


15) 拷贝操作：

拷贝指定区域：
ExcelApp.WorkSheets[1].Range[ 'A1:E2' ].Copy;
从A1位置开始粘贴：
ExcelApp.WorkSheets[1].Range.[ 'A1' ].PasteSpecial;


16) 插入一行或一列：
a. ExcelApp.WorkSheets[1].Rows[2].Insert;
b. ExcelApp.WorkSheets[1].Columns[1].Insert;


17) 删除一行或一列：
a. ExcelApp.WorkSheets[1].Rows[2].Delete;
b. ExcelApp.WorkSheets[1].Columns[1].Delete;


18) 打印预览工作表：
ExcelApp.WorkSheets[1].PrintPreview;

19) 打印输出工作表：
ExcelApp.WorkSheets[1].PrintOut;


23) 关闭工作簿：
ExcelApp.WorkBooks.Close;

24) 退出 Excel：
ExcelApp.Quit;

谢,正在测试

有两个问题,第一:以下两句都不能用.
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;
设置指定行的高度（单位：磅）（1磅＝0.035厘米），以第二行为例：
ExcelApp.WorkSheets[1].Rows[2].RowHeight := 1/0.035; // 1厘米
第二:
执行ExcelApp.WorkSheets[1].Range[ 'A1:E2' ].Copy到系统粘贴板后,
粘贴板的字体比EXCEL里的字体要大出好几倍.有没有办法解决.
有没有QQ呢.能否加你?可另给分.

http://www5.skycn.com/soft/29751.html
试一下这个控件,保证高效解决你的问题,OLE方式不好
QQ:292044357

太贵了.看你的说明,
如下:
通过直接读写EXCEL文件格式,实现EXCEL文件数据导出和导入,不用OLE对象支持,速度快,程序可靠.
价格:XXXXXXX
如果就只有上面的功能,就要卖这么多钱的话,那么高手行都可以转行了.到这里是寻求帮助来的.

多人接受答案了。