原创力文档- 1、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。。
- 2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
- 4、该文档为VIP文档，如果想要下载，成为VIP会员后，下载免费。
- 5、成为VIP后，下载本文档将扣除1次下载权益。下载后，不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后，您将拥有八大权益，权益包括：VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传，每下载1次， 网站将根据用户上传文档的质量评分、类型等，对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
利用Delphi 5中调用Excel
---- 在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)
文档评论（0）