利用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的大略例子以供参考。 ---- 步聚 创造一个普遍application。 在form中辨别放入excelapplication, excelworkbook和excelworksheet。 贯穿excel 97，简直本领如次： 翻开excel97。tryexcelapplication1.connect;exceptend;excelapplication1.visible[0]:=true;减少一个workbook。excelworkbook1.connectto(excelapplication1.workbooks.add(emptyparam,0));增添一个worksheet。vartemp_worksheet: _worksheet;begintrytemp_worksheet:=excelworkbook1.worksheets.add(emptyparam,emptyparam,emptyparam,emptyparam,0) as _worksheet;//(提防)excelworksheet1.connectto(temp_worksheet);exceptshowmessage('failure');end;end;封闭excel.tryexcelapplication1.quit;excelworksheet1.disconnect;excelworkbook1.disconnect;excelapplication1.disconnect;exceptend;---- 4. 对excel的少许操纵: 采用暂时workbook的某一worksheet.procedure tform1.combobox1dropdown(sender: tobject);vari: integer;begincombobox1.clear;for i:=1 to excelworkbook1.worksheets.count docombobox1.items.add((excelworkbook1.worksheets.item[i] as _worksheet).name);end;procedure tform1.combobox1change(sender: tobject);beginexcelworksheet1.connectto(excelworkbook1.worksheets.item[combobox1.itemindex+1] as _worksheet);excelworksheet1.activate;end;采用某一workbook:procedure tform1.combobox2dropdown(sender: tobject);vari: integer;begincombobox2.clear;if excelapplication1.workbooks.count >0 thenfor i:=1 to excelapplication1.workbooks.count docombobox2.items.add(excelapplication1.workbooks.item[i].name);end;procedure tform1.combobox2change(sender: tobject);beginexcelworksheet1.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);beginexcelworksheet1.cells.item[spinedit2.value,spinedit1.value]:=edit1.text;end;procedure tform1.button6click(sender: tobject);beginedit1.text:=excelworksheet1.cells.item[spinedit2.value,spinedit1.value];end;采用某一地区excelworksheet1.range['a1','c1'].select;翻开一个excel文献。if opendialog1.execute thenbegintryexcelworkbook1.connectto(excelapplication1.workbooks.open(opendialog1.filename,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,emptyparam,0));excelworksheet1.connectto(excelworkbook1.activesheetas _worksheet);except;end;end;---- 证明 ---- 本步调在win98+delphi 5+excel 97下运转经过。本例子还不妨作符合的夸大，如dde、实行宏挪用、生存文献、打字与印刷文献及对excel的树立等，此树立本领请参见microsoft excel visual basic参录取的microsoft excel东西。