资源描述：
《建立与execel联系.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、建立与execel联系unitUJoin_excel;interfaceuses//定义使用系统的单元文件Windows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,Buttons,OleServer,ExtCtrls,DBCtrls,Grids,DBGrids,Db,DBTables,Excel2000,Variants;//如果用户使用的不是Delphi7（如Delphi5）,则可能要指定Excel97，而非Excel2000typeTForm1=class(TForm)//定
2、义在窗体上使用的组件，包括作为自动化服务器的Excel组件ExcelApplication1:TExcelApplication;ExcelWorksheet1:TExcelWorksheet;ExcelWorkbook1:TExcelWorkbook;SaveDialog1:TSaveDialog;ConnectBtn:TBitBtn;Query1:TQuery;DataSource1:TDataSource;DBGrid1:TDBGrid;DBNavigator1:TDBNavigator;InsertDataBtn:TBitBtn;SaveBtn:TBitBtn;
3、QuitBtn:TBitBtn;CloseAppBtn:TBitBtn;Label1:TLabel;//如下定义按钮的事件处理过程procedureFormCreate(Sender:TObject);procedureConnectBtnClick(Sender:TObject);procedureInsertDataBtnClick(Sender:TObject);procedureSaveBtnClick(Sender:TObject);procedureQuitBtnClick(Sender:TObject);procedureCloseAppBtnClick(
4、Sender:TObject);private{Privatedeclarations}public{Publicdeclarations}end;varForm1:TForm1;implementationusesComObj;{$R*.DFM}procedureTForm1.FormCreate(Sender:TObject);//建立窗体时的事件处理过程beginQuery1.close;Query1.Open;//获取用于制作电子表的数据库信息showmessage('欢迎你使用Excel自动化服务器！');//showmessage(IntToStr(Quer
5、y1.FieldCount));end;procedureTForm1.ConnectBtnClick(Sender:TObject);//连接Excel按钮的事件处理过程，启动Excel，并设置相关标题beginTryExcelApplication1.Connect;//建立与Excel的连接，如果出错则显示提示信息ExceptMessageDlg('Excel2000是否已正确安装',mtError,[mbOk],0);Abort;//如果出错，不报告错误信息,结束当前程序的执行End;ExcelApplication1.Visible[0]:=True;//设置
6、成可视状态ExcelApplication1.Caption:='Delphi连接Excel应用';//设置Excel的标题ExcelApplication1.Workbooks.Add(Null,0);ExcelApplication1.Workbooks.Add(emptyParam,0);//增加一个新的空工作簿ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);//连接工作簿ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1]as_Workshe
7、et);//连接工作表end;procedureTForm1.InsertDataBtnClick(Sender:TObject);//插入数据按钮的事件处理过程，在Excel工作表中生成需要表格//并将数据库的内容写入Excel的工作表中vari,row,column:integer;//定义用于控制单元格的变量begin//如下设置单元格第一行的内容，即各列的标题，本表有7列组成ExcelWorksheet1.Cells.Item[1,1]:='时间';//设置第一列的标题ExcelWorksheet1.Cells.Item[1,2]
