delphi excel

[dost]

merhaba arkadaşlar,

Kod: Tümünü seç

  excel:=createoleobject('excel.application');
  excel.workbooks.add;
  sayfa:=excel.workbooks[1].worksheets[1];
  r:=excel.activeworkbook.worksheets[1].cells[1];

  //satır başlığı
  r.Range['A1:F1'].Select;
  r.Range['A1:F1'].Font.Color := clred;
  r.Range['A1:F1'].Font.Bold  := True;
  r.range['A1:F1'].EntireColumn.AutoFit;

d7 - excel2003 de çalışan kodu
d2010 da çalıştıramadım, derleme hatası
vermiyor excele atıyor ama excel satır başlığı
işlemini yapmıyor.

yardımcı olabilirmisiniz.

[conari]

Kod: Tümünü seç

       Excel := CreateOleObject('excel.application');
          Excel.workbooks.add;
          excel.range['A2'].select;
          Excel.ActiveSheet.paste;
          ClipBoard.Clear;
   Excel.range['A1'].value:= CmbTablo.TEXT;
   Excel.range['B1'].value:='Satış Miktarı';
   Excel.range['c1'].value:='Euro Satış Tutarı';
   Excel.range['c1:c100'].NumberFormat := '#.##0,00';
   Excel.range['b1:b100'].NumberFormat := '#.##0';
   Excel.Range['b'+inttostr(z)+'',''+ 'c'+inttostr(z)+''].Formula := '=Sum(b'+inttostr(2)+':b'+inttostr(z-1)+')';
   Excel.range['A1:c1'].Font.Color      := CLRED;
   Excel.range['A1:c1'].Font.Bold:= True;
   Excel.Range['b'+inttostr(z)+'',''+ 'c'+inttostr(z)+''].Font.Color:= CLRED;
   Excel.Range['b'+inttostr(z)+'',''+ 'c'+inttostr(z)+''].Font.Bold := True;
   excel.range['A1','c100'].EntireColumn.AutoFit;
   excel.range['A2'].select;
   excel.ActiveWindow.FreezePanes      := True ;
   Excel.visible := True;

[dost]

ilginize teşekkür ederim