用Delphi导出数据到Excel时报OLE error 800A03EC异常

用Delphi导出数据到Excel时报OLE error 800A03EC错误.
用Delphi导出数据到Excel时报OLE error 800A03EC错误.
请问是什么原因啊???

[解决办法]
Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);var  i,j : integer;  exls,sheet,book: variant;begin  try      exls:=CreateOleObject('Excel.application');      exls.WorkBooks.Add;      book := exls.workbooks[1];      sheet := exls.worksheets[1];    except      application.MessageBox('请先安装MICROSOFT EXCEL！','提示',mb_ok+mb_iconinformation);      exit;    end;    adoqueryx.SQL.Clear;    adoqueryx.SQL.Add('select * from tests');    adoqueryx.Open;    with adoqueryx  do    begin      DisableControls;      for i:=1 to FieldCount do      begin      exls.WorkSheets[1].Cells[1,i].value:=Fields[i-1].DisplayName;      end;      first;      i:=2;      while not eof do      begin        for j:=1 to fieldcount do        begin          exls.WorkSheets[1].Cells[i,j]:=fields[j-1].AsString;        end;        next;        i:=i+1;      end;      EnableControls;      exls.WorkBooks[exls.WorkBooks.Count].SaveAS(ExtractFilePath(ParamStr(0))+'aaaa.xls');      exls.activeWorkBook.saved:=true;      exls.workbooks.close;      exls.quit;    end;    adoqueryx.Close;end;
[解决办法]
Delphi(Pascal) code 
 procedure TWKO_PD_REPORT_F.cx_tenOKClick(Sender: TObject); 
 var 
 ExcelApp:Variant; 
 iLoop,i:Integer; 
 begin 
 if CheckBox1.Checked then 
 begin 
   if (cx_kssj.Text=&#39;&#39;)or(cx_jssj.Text=&#39;&#39;) then 
   begin 
   MessageDlg(&#39;出表始日期和束日期不能空!&#39;,mtWarning,[mbOK],0); 
   Exit; 
   end; 
 end 
 else 
 begin 
   if (cx_planer.Text=&#39;&#39;)or(cx_kssj.Text=&#39;&#39;)or(cx_jssj.Text=&#39;&#39;) then 
   begin 
   MessageDlg(&#39;出表件不能空!&#39;,mtWarning,[mbOK],0); 
   Exit; 
   end; 
 end; 
  
 try 
   Application.ProcessMessages; 
   ExcelApp:=CreateOleObject(&#39;Excel.Application&#39;); 
 except 
   MessageDlg(&#39;不起,你上有安Excel,!&#39;,mtWarning,[mbOK],0); 
   Exit; 
 end; 
  
 try 
   ExcelApp.Caption:=&#39;十大表&#39;; 
   ExcelApp.Visible:=False; 
   ExcelApp.WorkBooks.Add; 
   ExcelApp.WorkBooks[1].WorkSheets[1].name:=&#39;十大表&#39;; 
   ExcelApp.WorkBooks[1].WorkSheets[1].Activate; 
   Screen.Cursor:=crSQLWait; 
   Application.ProcessMessages; 
   ExcelApp.cells.Interior.ColorIndex:=2; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,8].font.name:=&#39;新明&#39;; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells.font.size:=9; 
   ExcelApp.WorkBooks[1].WorkSheets[1].Columns[4].ColumnWidth:=13.5; 
   ExcelApp.WorkBooks[1].WorkSheets[1].Columns[5].ColumnWidth:=17.38; 
   ExcelApp.WorkBooks[1].WorkSheets[1].Columns[9].ColumnWidth:=11.63; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,8].font.name:=&#39;楷&#39;; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,8]:=&#39;昆盈十大表&#39;; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[1,8].font.size:=14; 
   ExcelApp.Range[&#39;A1:I1&#39;].MergeCells:=True; 
   ExcelApp.Range[&#39;A1:I1&#39;].HorizontalAlignment:=xlCenter; 
  
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,1]:=&#39;月份&#39;; 
   ExcelApp.Range[&#39;A2:A3&#39;].MergeCells:=True; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,2]:=&#39;父料&#39;; 
   ExcelApp.Range[&#39;B2:B3&#39;].MergeCells:=True; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,3]:=&#39;&#39;; 
   ExcelApp.Range[&#39;C2:C3&#39;].MergeCells:=True; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,4]:=&#39;&#39;;  
 
   ExcelApp.Range[&#39;D2:D3&#39;].MergeCells:=True; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,5]:=&#39;日期&#39;; 
   ExcelApp.Range[&#39;E2:E3&#39;].MergeCells:=True; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,6]:=&#39;工&#39;; 
   ExcelApp.Range[&#39;F2:F3&#39;].MergeCells:=True; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,7]:=&#39;投入工&#39;; 
   ExcelApp.Range[&#39;G2:G3&#39;].MergeCells:=True; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,8]:=&#39;工量&#39;; 
   ExcelApp.Range[&#39;H2:H3&#39;].MergeCells:=True; 
   ExcelApp.WorkBooks[1].WorkSheets[1].cells[2,9]:=&#39;位工&#39;; 
   ExcelApp.Range[&#39;I2:I3&#39;].MergeCells:=True; 
  
   Application.ProcessMessages; 
   for i:=0 to DaysBetween(cx_kssj.Date,cx_jssj.Date) do 
   begin 
   lab_age.Caption:=&#39;始出"&#39;+ FormatDateTime(&#39;yyyy/mm/dd&#39;,IncDay(cx_kssj.Date,i))+&#39;"的&#39;; 
   Application.ProcessMessages; 
   if CheckBox1.Checked then 
   begin 
     adoq_wko_pdreport.Close; 
     adoq_wko_pdreport.SQL.Text:=&#39;select * from RES_TENMAX_MODEL where dt between &#39;&#39;&#39;+ FormatDateTime(&#39;yyyy/mm/dd&#39;,cx_kssj.Date)+&#39;&#39;&#39; and &#39;&#39;&#39;+ FormatDateTime(&#39;yyyy/mm/dd&#39;,cx_jssj.Date)+&#39;&#39;&#39; Order by dt&#39;; 
     adoq_wko_pdreport.Open; 
   end 
   else 
   begin 
     adoq_wko_pdreport.Close; 
     adoq_wko_pdreport.SQL.Text:=&#39;select * from RES_TENMAX_MODEL where JGLB=&#39;&#39;&#39;+ VarToStr(Trim(cx_planer.Text))+&#39;&#39;&#39; and dt between &#39;&#39;&#39;+ FormatDateTime(&#39;yyyy/mm/dd&#39;,cx_kssj.Date)+&#39;&#39;&#39; and &#39;&#39;&#39;+ FormatDateTime(&#39;yyyy/mm/dd&#39;,cx_jssj.Date)+&#39;&#39;&#39; Order by dt&#39;; 
     adoq_wko_pdreport.Open; 
   end; 
  
   pb1.Min:=0; 
   pb1.Max:=adoq_wko_pdreport.RecordCount; 
   Application.ProcessMessages; 
   adoq_wko_pdreport.First; 
   for iLoop:=0 to adoq_wko_pdreport.RecordCount -1 do 
   begin 
     ExcelApp.cells[4+iLoop,1].RowHeight:=14; 
     ExcelApp.cells[4+iLoop,1].value:=adoq_wko_pdreport.FieldByName(&#39;YF&#39;).AsString; 
     ExcelApp.cells[4+iLoop,2].value:=adoq_wko_pdreport.FieldByName(&#39;LH&#39;).AsString; 
     ExcelApp.cells[4+iLoop,3].value:=adoq_wko_pdreport.FieldByName(&#39;JGLB&#39;).AsString; 
     ExcelApp.cells[4+iLoop,4].value:=adoq_wko_pdreport.FieldByName(&#39;MODEL&#39;).AsString; 
     ExcelApp.cells[4+iLoop,5].value:=adoq_wko_pdreport.FieldByName(&#39;DT&#39;).AsString; 
     ExcelApp.cells[4+iLoop,6].value:=adoq_wko_pdreport.FieldByName(&#39;SUMBZGS&#39;).AsString; 
     ExcelApp.cells[4+iLoop,7].value:=adoq_wko_pdreport.FieldByName(&#39;SUMTRGS&#39;).AsString; 
     ExcelApp.cells[4+iLoop,8].value:=adoq_wko_pdreport.FieldByName(&#39;SUMQTY&#39;).AsString; 
     ExcelApp.cells[4+iLoop,9].value:=adoq_wko_pdreport.FieldByName(&#39;DWBZGS&#39;).AsString; 
     pb1.Position:=pb1.Position+1; 
     Application.ProcessMessages; 
     adoq_wko_pdreport.Next; 
   end; 
   end; 
  
   Application.ProcessMessages; 
   ExcelApp.Range[&#39;A1:I&#39;+inttostr(ExcelApp.WorkBooks[1].WorkSheets[1].usedrange.rows.count)].HorizontalAlignment:=xlCenter ; 
   ExcelApp.Range[&#39;A1:I&#39;+inttostr(ExcelApp.WorkBooks[1].WorkSheets[1].usedrange.rows.count)].Borders.linestyle:=xlContinuous; 
   Screen.Cursor:=crDefault; 
   pb1.Position:=0; 
   ModalResult:=mrOk; 
   ExcelApp.Visible:=True; 
 except 
   ExcelApp.ActiveWorkBook.Saved:=True;  
 
   ExcelApp.WorkBooks.Close; 
   ExcelApp.Quit; 
 end; 
 end;
用Delphi导出数据到Excel时报OLE erro

热点推荐
