изменить формат ячейки при сохранении xls

[Євгеній Бєлік]

Возникла потребность в изменении формата ячейки в числовой формат.
У меня есть стринггрид в котором у меня есть большая таблица, далее я записываю эту табл в новый документ xls.
Вот так сохраняю стринггрид в xls:

procedure TForm1.Button3Click(Sender: TObject);
var
 ExcelApp, Sheet, Range: variant;
 Col, Row: Word;
 FData: Variant;
 i, j:integer;
 d : TDateTime;
begin
  d:=Now;
  Label6.Caption:='активен';
  Label6.Font.Color:=clgreen;
  Application.ProcessMessages();
  ExcelApp := CreateOleObject('Excel.Application');

  //создаем вариантный массив
  FData:=VarArrayCreate([1,StringGrid1.RowCount,1,StringGrid1.ColCount],varVariant);

  try
    ExcelApp.Visible := false;

    ExcelApp.Workbooks.Add;

    for i:=1 to VarArrayHighBound(FData,1) do
        for j:=1 to VarArrayHighBound(FData,2) do
          FData[i,j]:=StringGrid1.Cells[J-1,I-1];

    Sheet := ExcelApp.ActiveWorkbook.Worksheets[1];

Range:=Sheet.Range[Sheet.Cells[1,1],Sheet.Cells[VarArrayHighBound(FData,1),VarArrayHighBound(FData,2)]];
//вставляем данные
Range.Value:=FData;

    ExcelApp.ActiveWorkbook.SaveAs(GetExcelFileName);

    ShowMessage('Ok!');
  finally
    ExcelApp.Application.Quit;
    ExcelApp := unassigned;
    Sheet:= unassigned;
  end;
Label10.Caption:=FormatDateTime('hh:mm:ss:zzz',Now()-d);
Label6.Caption:='неактивен';
Label6.Font.Color:=clred;
end;

как тут можно дополнить, так что бы данные в новом xls были как числа и не как текст?

[igh0st]

Попробуй с NumberFormat и Value2

//вставляем данные
Range.NumberFormat := '';
Range.Value2 := FData;

[Євгеній Бєлік]

спасибо, но выдает ошибку Invalid variant operation на той строке куда вставил .NumberFormat
Возможно как -то использовать AsFloat, но я еще с ним не работал...
или программно создать макрос и применить его при записи

[-=Virus=-]

Сообщение от Євгеній Бєлік

спасибо, но выдает ошибку Invalid variant operation на той строке куда вставил .NumberFormat
Возможно как -то использовать AsFloat, но я еще с ним не работал...
или программно создать макрос и применить его при записи

Вначале переведи текст в цифры StrToInt. Возможно из-за этого

//вставляем данные
Range.NumberFormat := StrToInt(S);
Range.Value2 := FData;

[Євгеній Бєлік]

Тоже пробовал но мне ответило что не может конвертнуть тип variant...

[-=Virus=-]

Код покажи

[Євгеній Бєлік]

Вот я тебе переделал в тестовый вид, сначала открываешь табл (там только числа (флоат)) которая в папке, они импортируется в стринггрид, далее нажиаеш модифай (это для того что бы просто изменить данные), после этого нажимаешь сохранить и новая табл экспортируется в новый файл который появится в папке с прогой, вот только там уже новые значения в виде текста, вот как их можно изменить сразу в числовой тип при нажатии на сохранить, буду очень благодарен!

[Toxa]

Сообщение от -=Virus=-

Вначале переведи текст в цифры StrToInt. Возможно из-за этого

//вставляем данные
Range.NumberFormat := StrToInt(S);
Range.Value2 := FData;

по моему NumberFormat чуть по глубже находится, могу ошибаться
а вообще вот как найти параметр ворда и экселя