Jump to content

Geçersiz sınıf dizesi, ProgID: "Excel.Application"


alucard

Recommended Posts

Excel' aktarım yapmak istiyorum. Herzaman kullandığım kodu kullanıyorum ama bu hatayı veriyor.

 

Kullandığım kod: 

uses ComObj,ActiveX

procedure TForm2.UniBitBtn21Click(Sender: TObject);
var
excel,Workbook,sheet: Variant;
a,i:integer;
begin
 excel:= CreateOleObject('Excel.Application');
 Workbook:=EXCEL.WORKBOOKS.ADD;
 sheet := Workbook.WORKSHEETS[1] ;
   TRY
 for i := 1  to IBQEgitmAlanlar.FieldCount-1  do
  begin

 sheet.CELLS[1,i] := IBQEgitmAlanlar.Fields[i-1].FieldName ;

IBQEgitmAlanlar.First;
             for a := 2 to IBQEgitmAlanlar.RecordCount+1 do
               begin
             sheet.CELLS[a,i] := IBQEgitmAlanlar.FieldByName(IBQEgitmAlanlar.Fields[i-1].FieldName).asstring ;
              //showmessage(dtTable.FieldByName(dtTable.Fields[1].FieldName).Value) ;
              IBQEgitmAlanlar.Next;
               end;

  end;


  EXCEL.VISIBLE := TRUE;
  Except ON E:EXCEPTION DO
  BEGIN
    ShowMessage(E.Message);
    CLOSE;
  END;

   END;

//excel.close;
end;

post-2893-0-26170500-1484656398_thumb.png

Link to comment
Share on other sites

Please sign in to comment

You will be able to leave a comment after signing in



Sign In Now
×
×
  • Create New...