利用Delphi 5中调用Excel 97

新客网 XKER.COM 2006-07-13 来源： 收藏本文

利用Delphi 5中调用Excel 97
---- 在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;

选择某一Workbook:
procedure TForm1.ComboBox2DropDown
(Sender: TObject);
var
  i: Integer;
begin
ComboBox2.Clear;
if ExcelApplication1.Workbooks.Count >0 then
For i:=1 to ExcelApplication1.Workbooks.Count do
Combobox2.Items.Add(ExcelApplication1.
    Workbooks.Item[i].Name);
end;

procedure TForm1.ComboBox2Change(Sender: TObject);
begin
ExcelWorkSheet1.Disconnect;
ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.
Item[Combobox2.ItemIndex+1]);
    ExcelWorkBook1.Activate;
    ExcelWorksheet1.ConnectTo(ExcelWorkBook1.
    ActiveSheet as _WorkSheet);
    ExcelWorkSheet1.Activate;
end;

对某一单元格进行赋值及取值。
procedure TForm1.Button5Click(Sender: TObject);
begin
    ExcelWorksheet1.Cells.Item[SpinEdit2.Value,

• ·DELPHI删除指定目录下指定扩展名的文件
• ·垃圾清理势在必行——Java垃圾收集算法
• ·经验技巧：分享两条Delphi开发经验
• ·Delphi调用WebServices(C#)代码
• ·delphi制作的托盘程序
• ·基于Delphi的“八皇后”问题动态实现
• ·半透明窗体的制作
• ·走近Inprise/Borland
• ·COM/DCOM中如何传递数组
• ·监视剪贴板内容
• ·Linux上最新的Kylix截屏画面
• ·怎样处理数据库中的NULL
• ·在delphi中如何限制鼠标的移动区域。
• ·Delphi + Word = 数据库 + 公文处理
• ·用InstallShield制作数据库应用系统的安装程序
• ·Delphi的优点