dbgridden excele

[afsarbey]

s.a beyler
dbgriddeki verileri excele aktarmaya çalışıyorum ama garip bi hata veriyor...

Kod: Tümünü seç

var
  bosl:ExcelRange;
  I,satir:integer;
  bookmark:TBookmarkStr;
begin
  
  ExcelApplication1.Visible[0]:=true;
  ExcelApplication1.Workbooks.Add(null,0);

  
  bosl:=ExcelApplication1.ActiveCell;
  for I:=0 to dm.ver.Fields.Count-1 do
  begin
    bosl.Value2:=dm.ver.Fields[I].DisplayLabel;
    bosl:=bosl.Next;
  end;

  
  try
    bookmark:=dm.ver.Bookmark;
    try
       dm.ver.First;
       satir:=3;
       while not dm.ver.Eof do
         begin
           bosl:=ExcelApplication1.Range['A'+IntToStr(satir),'A'+Inttostr(satir)];
           for I:=0 to dm.ver.Fields.Count-1 do
           begin
              bosl.Value2:=dm.ver.Fields[I].AsString;
              bosl:=bosl.Next;
           end;
         dm.ver.Next;
           Inc(satir);
           end;
           finally
             dm.ver.Bookmark:=bookmark;
             end;
             finally
end;

bosl:ExcelRange; bu sırada durup hata veriyor

hata ise;
[Error] xlsu.pas(44): Undeclared identifier: 'ExcelRange'
[Error] xlsu.pas(49): Undeclared identifier: 'ExcelApplication1'
[Error] xlsu.pas(49): Missing operator or semicolon
tşkler;

[danaci]

uses satırına comobj nesnesini eklediniz mi?

[afsarbey]

eklememiştim,yeni ekledim ama hala aynı yerde hata veriyor(comobj olduğuna eminmisin)

[danaci]

Error] xlsu.pas(44): Undeclared identifier: 'ExcelRange'
[Error] xlsu.pas(49): Undeclared identifier: 'ExcelApplication1'
hatalarını normal olarak comobj nesnesini eklemediğinde alırsınız. Yeniden derlemenizi tavsiye edeceğim size