---- 在Delphi 5中简单地封装了一组Microsoft Office自动化对象(Automation servers)。它使得我们很容易地把Office中的应用程序(Word, Excel, PowerPoint, Outlook and Access等)当作一个com应用服务器进行控制。在Delphi 5中已经带了Word与PowerPoint的例子，因为Excel的调用与这两个应用服务器的调用略有不同，所以本人根据这两个例子写了个Excel 97的简单例子以供参考。 
---- 步聚 
1.    创建一个普通Application。 
2.    在Form中分别放入ExcelApplication, ExcelWorkbook和ExcelWorksheet。 
3.    连接Excel 97，具体方法如下： 
打开Excel97。
Try
        ExcelApplication1.Connect;
    Except
    End;
    ExcelApplication1.Visible[0]:=True;
增加一个Workbook。
ExcelWorkbook1.ConnectTo(ExcelApplication1.
    Workbooks.Add(EmptyParam,0));

添加一个Worksheet。
        var
Temp_Worksheet: _WorkSheet;
begin
Try
Temp_Worksheet:=ExcelWorkbook1.
WorkSheets.Add(EmptyParam,
EmptyParam,EmptyParam,EmptyParam,0) 
as _WorkSheet;//(注意)
ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);
Except
ShowMessage(´Failure´);
            End;
        end;
    关闭Excel.
        Try
                ExcelApplication1.Quit;
ExcelWorksheet1.Disconnect;
                ExcelWorkbook1.Disconnect;
                ExcelApplication1.Disconnect;
        Except
        End;
---- 4. 对Excel的一些操作: 
选择当前Workbook的某一Worksheet.
procedure TForm1.ComboBox1DropDown
(Sender: TObject);
var
  i: Integer;
begin
    ComboBox1.Clear;
    For i:=1 to ExcelWorkbook1.
Worksheets.Count do
        ComboBox1.Items.Add
((ExcelWorkbook1.Worksheets.Item[i] 
as _WorkSheet).Name);
end;

procedure TForm1.ComboBox1Change
(Sender: TObject);
begin
    ExcelWorkSheet1.ConnectTo
(ExcelWorkbook1.Worksheets.Item
[ComboBox1.ItemIndex+1] as _WorkSheet);
    ExcelWorkSheet1.Activate;
end;

[1] [2] 下一页