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

[alucard]

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;

[mehmet07]

Bu sekilde unigui icerisinde excel kullanamazsiniz. Masaustunde calisir ama unigui de kod is gormez. Forumda excel aktarimlari ile iligili ornekler mevcuttu. suan zamanim olmadigi icin bakamadim.

[alucard]

başka bir projede kullandım hocam çalışıyorda. ama bunda çalışmadı.

 

neyi yanlış yaptığımıda bulamadım

[Hayri ASLAN]

Servermodule.AutoCoinitialize True mu?

[alucard]

true hocam

[alucard]

Kod boş bir projede çalışıyor.

[Farshad Mohajeri]

Bunun icin Excelin kurulu olmasi lazim. Ancak bu yontem genel olarak uygun degildir.

[iyarar]

TMS Flexcel kullanmanızı tavsiye ediyorum. sorunsuz çalışıyor

[alucard]

TMS Flexcel kullanmanızı tavsiye ediyorum. sorunsuz çalışıyor

 

hocam bu component ücretli herhalde. ben ücretsiz bir şekilde çözüm yolu arıyorum.