Question

Delphi CreateOLEObject使用Excel问题

Win7 下delphi 在使用CreateOLEObject('Excel.Application')这句时会报如下错误（程序可以继续执行），请问怎么消除此错误，另外通过此方法产生的Excel.exe有时会杀不掉怎么解决？

Answer 1

以下是使用ole对象调用excel的标准例程：
procedure TForm1.Button7Click(Sender: TObject);
var
        i:integer;
	      v:variant;
  	    sheet:variant;
begin
   try
        v:=createoleobject('excel.application');
        v.visible:=true;
        v.workbooks.add;
        v.workbooks[1].worksheets[1].name:='知识库';
        sheet:=v.workbooks[1].worksheets['知识库'];
        sheet.cells[1,1]:='日期';
        sheet.cells[1,2]:='分类';
        sheet.cells[1,3]:='知识主题';
        sheet.cells[1,4]:='索引关键字';
        sheet.cells[1,5]:='提交';
        sheet.cells[1,6]:='ext';

        i:=2;
        while not table1.eof do begin
               sheet.cells[i,1]:=table1.Fieldbyname('日期').AsDateTime;
               sheet.cells[i,2]:=''''+table1.Fieldbyname('分类').Asstring;
               sheet.cells[i,3]:=''''+table1.Fieldbyname('知识主题').Asstring;
               sheet.cells[i,4]:=''''+table1.Fieldbyname('索引关键字').Asstring;
               sheet.cells[i,5]:=table1.Fieldbyname('提交').Asboolean;  //string;
               sheet.cells[i,6]:=''''+table1.Fieldbyname('ext').Asstring;

               table1.MoveBy(1);
               i:=i+1;
        end;
        v.visible:=true;
     except
        showmessage('fail init excel');
        v.displayalerts:=false;
        v.quit;
        exit;
     end;
end;

一般都要用try......except......end结构。

追问

用过try异常捕捉，但是就是那一句代码出的问题，其余的代码都不会报错，到上面那一句就会提示那个异常。