利用Delphi 5.0开发OLE自动化控制器操纵Excel

• procedure TForm1.button1Click(Sender: TObject);
  var
  i,row,column:integer;
  begin
  Try
  ExcelApplication1.Connect;
  Except
  MessageDlg('Excel may not be installed',
  mtError, [mbOk], 0);
  Abort;
  End;
  ExcelApplication1.Visible[0]:=True;
  ExcelApplication1.Caption:='Excel Application';
  ExcelApplication1.Workbooks.Add(Null,0);
  ExcelWorkbook1.ConnectTo
  (ExcelApplication1.Workbooks[1]);
  ExcelWorksheet1.ConnectTo
  (ExcelWorkbook1.Worksheets[1] as _Worksheet);
  Table1.Open;
  row:=1;
  While Not(Table1.Eof) do
  begin
  column:=1;
  for i:=1 to Table1.FieldCount do
  begin
  ExcelWorksheet1.Cells.Item[row,column]:
  =Table1.fields[i-1].AsString;
  column:=column+1;
  end;
  Table1.Next;
  row:=row+1;
  end;
  end;
  
  procedure TForm1.Button2Click(Sender: TObject);
  begin
  ExcelWorksheet1.PrintPreview;
  end;
  
  procedure TForm1.Button3Click(Sender: TObject);
  begin
  ExcelWorksheet1.PrintOut;
  end;
  
  procedure TForm1.Button4Click(Sender: TObject);
  begin
  ExcelApplication1.Disconnect;
  ExcelApplication1.Quit;
  end;
  
  end.
  
  ---- 本程序在Delphi 5.0下调试通过。
  
  
  
  
  
  让DELPHI与OFFICE联姻
  
  　　由于微软的Office系列的完善的功能；与Windows和IE的紧密集成以及强大的扩展能力，它实际上已经成为事实上的Windows下办公软件的标准，我们知道在VB中可以建立各种Office对象（Word、Excel）并控制这些对象编辑、打印、保存文档以及控制执行Office中的很多操作。象这样在VB中建立并控制Office对象是十分有用的，例如你可以将一个或者一批数据库自动输入到Word或者Excel中并保存，再通过Outlook将文档分发给其它同仁。
  　　过去，这只有通过VB才能实现的，但是现在Delphi5也提供了这样强大的对象组。利用Delphi也可以利用Office资源了。
  　　打开Delphi，滚动Compent Palette到Servers页，就可以看到很多熟悉的控件图标，这些就是Office组件的控件。Delphi 5中对应Office的组件包括了Word、Excel、Access、PowerPoint和Outlook可以说是十分的全面。不过要使用这些组件首先要保证你的系统中安装了Office 97或以上的 版本。
  　　下面首先来说以下Office组件的基本使用方法Delphi中对于Office中不同的组件，首先要建立一个Application对象，例如要控制Word，首先要建立TWordApplication对象，然后再将诸如TWordDocument等Word对象通过ConnectTo方法连接到TWordApplication对象上。对于其它的Excel、Outlook等也是如此。
  
• 上一页 [1] [2] [3] [4] [5] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 利用Delphi 5.0开发OLE自动化控制器操纵Excel 相关文章：
• ·利用插件来校验XHTML是否符合Web标准
• ·Web2.0在中国步入歧途 缺赢利模式VC有错
• ·利用UNIX的TFTP和RCP配置路由器
• ·黑客如何利用文件包含漏洞进行网站入侵
• ·利用iTextSharp生成Pdf一个小例子
• ·ASP.Net利用CSS实现多界面的方法
• ·利用XMLHTTP无刷新添加数据
• ·异域风情 奥地利美丽风景集
• ·网站优化:怎么利用Tags进行SEO
• ·利用expression实现界面对象的批量控制
• 利用Delphi 5.0开发OLE自动化控制器操纵Excel 相关软件
• ·魂之利刃4公布宣传片
• ·NDS《胜利11人DS 中文汉化版》模拟器
• ·《超级马利奥64 DS》模拟器下载
• ·《毛利元就三箭之誓》试玩
• ·NDS《哈利波特和凤凰令》模拟器
• ·亚历山大·别利亚耶夫作品集V1.0
• ·《哈利波特与凤凰社》PC版试玩
• ·秘书长——一场正义与腐败的权利博弈
• ·法拉利赛车2 汉化版
• ·《命令与征服3泰伯利亚战争》全版本修改器全集

上一篇:利用Delphi的TJPEGImage控件把BMP转化成JPEG

下一篇:扩展Delphi的线程同步对象

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐