Не получается отворматировать формат ячеек в EXEL

[sniip]

   Sheet.Range['E'+'4'+':'+'J' + inttostr(j)].NumberFormat:='0.00';

такаа строчка... на всех сайтах написано что нужно так форматировать но у меня выдает ошибку типа: нельзя установить ствоство NumberFormat класса Range. Что я не атк делаю?

[sniip]

пробовал через selection... то же самое ыдает...

[Sciv]

Что я не атк делаю?

Range не так задаешь

Sheet.Range['E4','J'+inttostr(j)].NumberFormat:='0.00';

[sniip]

выдает то же самое сообщение.... "нельзя установить свойство Number format класса Range"

[Sciv]

Sheet.Range['E4','J'+inttostr(j)].Select;
Sheet.Selection.NumberFormat:='0.00';

А так?

[sniip]

Metod 'Selection' not supported by automation object --- выдает такую ошибку

[Sciv]

Приведите весь код, как Вы Sheet задаете и тп.

[sniip]

procedure TForm1.N16Click(Sender: TObject);
var
    k:string;
    i,j,j1,L1,m,kolarr,kolarr1:integer;
    al,kol,kol1,kol3,lo1,lo2,kolsuh,L8:real;
    f:textfile;   arr,arr1:array[1..20] of integer;
begin
    kolarr:=0;  kolarr1:=0;
    XL := CreateOleObject('Excel.Application');  //создаем Excel
    XL.Application.EnableEvents := false;  // Отключаем реакцию Excel на события (для ускорения)
    XL.WorkBooks.Add;   //  Добавляем книгу
    XL.Rows.Rows[2].Font.Bold:=true; //жирный шрифт
    XL.Rows.Rows[2].Font.Size:=10; //размер шрифта
    XL.Cells[1,1]:= 'Наименование профиля ГОСТ, ТУ';//делаем шапку таблицы
    XL.Cells[1,2]:='Наименование или марка металла ГОСТ, ТУ';
    XL.Cells[1,3]:='Номер или размеры профиля, мм';
    XL.Cells[1,4]:='№ п.п.';
    XL.Cells[1,5]:='Масса металла по элементам конструкции';
    XL.Cells[1,11]:='Общая масса, т';
    XL.Cells[2,5]:='Колонны';
    XL.Cells[2,6]:='Ригели';
    XL.Cells[2,7]:='Прогоны покрытия';
    XL.Cells[2,8]:='Прогоны ограждающие';
    XL.Cells[2,9]:='Колонны фахверка';
    XL.Cells[2,10]:='Связи';
    sheet:=XL.WorkBooks[1].WorkSheets[1];
    sheet.Range['A1:K1000'].WrapText:=true;
    sheet.Range['A1:K1000'].HorizontalAlignment := 3;
    sheet.Range['A1:K1000'].VerticalAlignment := 2;
    sheet.Range['A1:K1000'].Font.Size:=10;
    sheet.Range['A1:K2'].Font.Bold:=true;
    sheet.Range['A1:A2'].Merge;
    sheet.Range['B1:B2'].Merge;
    sheet.Range['C1:C2'].Merge;
    sheet.Range['D1:D2'].Merge;
    sheet.Range['E1:J1'].Merge;
    sheet.Range['K1:K2'].Merge;
    XL.Rows.Rows[1].rowheight:=38;
    XL.Rows.Rows[2].rowheight:=38;
    XL.Rows.Rows[3].rowheight:=10;
    XL.Rows.Rows[4].rowheight:=20;
    XL.Columns.Columns[1].ColumnWidth:=15;//устанавливаем ширину столбцов
    XL.Columns.Columns[2].ColumnWidth:=15;
    XL.Columns.Columns[3].ColumnWidth:=15;
    XL.Columns.Columns[4].ColumnWidth:=5;//устанавливаем ширину столбцов
    XL.Columns.Columns[5].ColumnWidth:=8;
    XL.Columns.Columns[6].ColumnWidth:=8;
    XL.Columns.Columns[7].ColumnWidth:=8;//устанавливаем ширину столбцов
    XL.Columns.Columns[8].ColumnWidth:=8;
    XL.Columns.Columns[9].ColumnWidth:=8;
    XL.Columns.Columns[10].ColumnWidth:=8;
    XL.Columns.Columns[11].ColumnWidth:=12;
    kolsuh:=0; L8:=0;
    for m := 0 to strtoint(edit56.Text)-1 do
    begin
    Kolsuh:=kolsuh+(strtoint(stringgrid1.cells[1,m]) div strtoint(edit6.Text));
    L8:=L8+strtoint(stringgrid1.cells[1,m]);
    end;
    Kolsuh:=Kolsuh + ((strtoint(edit3.text)-L8-Strtoint(edit9.text)-strtoint(edit26.text))/ strtoint(edit6.Text)) +1;
    XL.cells[4,1]:=combobox28.text;

    //профили
    j:=4;  j1:=4;   l1:=4;
    for i := 0 to combobox21.Items.Count-1 do
    begin
      ----------

    for m := 1 to 11 do
   XL.cells[3,m]:=m;
   j:=j+1;
   XL.cells[j,1]:='Итого профиля:';

   for i := 5 to 10 do
   begin
   kol:=0;
   For m:= 1 to kolarr do
   kol:=kol+ XL.cells[arr[m],i].value ;
   XL.cells[j,i]:=kol;
   end;
   sheet.range['A'+inttostr(j)+':'+'C' + inttostr(j)].Merge;
   j:=j+1;
   XL.cells[j,1]:='Итого металла:';
   for i := 5 to 10 do
   begin
   kol:=0;
   For m:= 1 to kolarr1 do
   kol:=kol+ XL.cells[arr1[m],i].value ;
   XL.cells[j,i]:=kol;
   end;
   sheet.range['A'+inttostr(j)+':'+'C' + inttostr(j)].Merge;
   for m := 4 to j do
   begin
    XL.cells[m,4]:=m-3;
    XL.cells[m,11].formulalocal:='=СУММ('+'E'+inttostr(m)+':'+'J' + inttostr(m)+')';
   end;
   //Sheet.Range['E4','J'+inttostr(j)].NumberFormat:='0.00';
   // Sheet.Range['E'+'4'+':'+'J' + inttostr(j)].NumberFormat:='0.00';
   
   XL.Visible := true;


end;

[Sciv]

XL.Range['E4','J'+inttostr(j)].Select;
XL.Selection.NumberFormat:='0.00';

вроде бы так должно быть. Поэкспериментировать возможности нет и старых кодов под рукой, как назло, тоже...

[sniip]

ну вот так в интеренете везде и аписоно, а не работает... может еще кто знает варианты?