利用delphi5中调用excel

《利用delphi5中调用excel》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、利用Delphi5中调用Excel----在Delphi5中简单地封装了一组MicrosoftOffice自动化对象(Automationservers)。它使得我们很容易地把Office中的应用程序(Word,Excel,PowerPoint,OutlookandAccess等)当作一个com应用服务器进行控制。在Delphi5中已经带了Word与PowerPoint的例子，因为Excel的调用与这两个应用服务器的调用略有不同，所以本人根据这两个例子写了个Excel97的简单例子以供参考。--

2、--步聚1.创建一个普通Application。2.在Form中分别放入ExcelApplication,ExcelWorkbook和ExcelWorksheet。3.连接Excel97，具体方法如下：打开Excel97。Try ExcelApplication1.Connect; Except End; ExcelApplication1.Visible[0]:=True;增加一个Workbook。ExcelWorkbook1.ConnectTo(ExcelApplication1. Work

3、books.Add(EmptyParam,0)); 添加一个Worksheet。 varTemp_Worksheet:_WorkSheet;beginTryTemp_Worksheet:=ExcelWorkbook1.WorkSheets.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam,0)as_WorkSheet;//(注意)ExcelWorkSheet1.ConnectTo(Temp_WorkSheet);ExceptShowMessage('

4、Failure'); End; end; 关闭Excel. Try ExcelApplication1.Quit;ExcelWorksheet1.Disconnect; ExcelWorkbook1.Disconnect; ExcelApplication1.Disconnect; Except End;----4.对Excel的一些操作:选择当前Workbook的某一Worksheet.procedureTForm1.ComboBox1DropDown(Sender:TObject);var 

5、i:Integer;begin ComboBox1.Clear; Fori:=1toExcelWorkbook1.Worksheets.Countdo ComboBox1.Items.Add((ExcelWorkbook1.Worksheets.Item[i]as_WorkSheet).Name);end; procedureTForm1.ComboBox1Change(Sender:TObject);begin ExcelWorkSheet1.ConnectTo(ExcelWorkbook1.

6、Worksheets.Item [ComboBox1.ItemIndex+1]as_WorkSheet); ExcelWorkSheet1.Activate;end; 选择某一Workbook:procedureTForm1.ComboBox2DropDown(Sender:TObject);var i:Integer;beginComboBox2.Clear;ifExcelApplication1.Workbooks.Count>0thenFori:=1toExcelApplication1.

7、Workbooks.CountdoCombobox2.Items.Add(ExcelApplication1. Workbooks.Item[i].Name);end; procedureTForm1.ComboBox2Change(Sender:TObject);beginExcelWorkSheet1.Disconnect;ExcelWorkBook1.ConnectTo(ExcelApplication1.Workbooks.Item[Combobox2.ItemIndex+1]); Ex

8、celWorkBook1.Activate; ExcelWorksheet1.ConnectTo(ExcelWorkBook1. ActiveSheetas_WorkSheet); ExcelWorkSheet1.Activate;end; 对某一单元格进行赋值及取值。procedureTForm1.Button5Click(Sender:TObject);begin ExcelWorksheet1.Cells.Item[SpinEdit2.Value, SpinEdit1.Value]:=Ed