نقل البيانات من dbgrid إلى Excel

[أبو معاذ]

عند التصدير (من DBGrid)

كود :

[color=Blue]Try[/color] [COLOR=Black] Try   ExcelApplication1.Visible[0]:=true;   For i:=0 to DBGrid1.Columns.Count-1 do   begin     with Feuil.Range[A[i+1]+'1',A[i+1]+'1'] do     begin       Value[xlRangeValueDefault]:= DBGrid1.Columns.Items[i].Title.Caption;       Font.Name:='times new roman';       Font.Size:=10;       Font.Bold:=True;       With Interior do       begin         ColorIndex := 15;         Pattern := xlSolid;         PatternColorIndex := xlAutomatic;       End;       With Borders do       begin         LineStyle := xlContinuous;         Weight := xlThin;         ColorIndex := xlAutomatic;       End;     End;   End;     j:=2;   Table1.DisableControls;   Table1.First;   While not Table1.Eof do   begin     For i:= 1 To  DBGrid1.Columns.Count Do     begin       s:=A[i]+inttostr(j);       Feuil.Range[s,s].Value[xlRangeValueDefault] :=DBGrid1.Fields[i-1].AsString;     end;     Table1.Next;     j:=j+1;   end; Finally   ExcelApplication1.Cells.Select;   ExcelApplication1.Columns.AutoFit;   ExcelApplication1.Range['A1','A1'].Select; End; [color=Blue]Except[/color] on E: Exception do MessageDlg(E.Message,mtError,[mbOK], E.HelpContext);[/COLOR] [color=Blue]End;[/color]

هذه الطريقة تشتغل معي بشكل جد رائع مع دلفي 7 ،
لكن بعد الانتقال إلى دلفي Sydeny  واجهتني المشكلة التالية :

[dcc32 Erreur]  E2064 La partie gauche n'est pas affectable

تحديدا في السطر التالي :

كود :

Value[xlRangeValueDefault]:= DBGrid1.Columns.Items[i].Title.Caption;

هل من توجيه بارك الله فيكم.