экспорт данных из stringGrid в excel Опции

[Sanya01078]

есть функция

function saveasexcelfile(stringgrid: tstringgrid; filename: string): boolean;
const
xlwbatworksheet = -4167;
var
row, col: integer;
gridprevfile: string;
xlapp, sheet: olevariant;
begin
result := false;
xlapp := createoleobject('excel.application');
try
xlapp.visible := false;
xlapp.workbooks.add(xlwbatworksheet);
sheet := xlapp.workbooks[1].worksheets[1];
sheet.name := 'my sheet name';
for col := 0 to stringgrid.colcount - 1 do
for row := 0 to stringgrid.rowcount - 1 do
sheet.cells[row + 1, col + 1] := stringgrid.cells[col, row];
try
xlapp.workbooks[1].saveas(filename);
result := true;
except
// error ?
end;
finally
if not varisempty(xlapp) then
begin
xlapp.displayalerts := false;
xlapp.quit;
xlapp := unassigned;
sheet := unassigned;
end;
end;
end;


procedure tform1.button1click(sender: tobject);
begin
if saveasexcelfile(stringgrid1, 'c:\myexcelfile.xls') then
showmessage('stringgrid saved!');
end; 

Проблема в том что она сохраняет числа без запятой то есть у меня в stringGride число 6,33 а оно сохраняет 6 33 Подскажите где что-то не так!!

[volvo]

выдает ошибку
Project Project2.exe raised exception class EOleException with message 'Нельзя установить свойство NumberFormat класса Range'.

Если б я не проверив, написал прямо сюда - может быть и поверил бы тебе. Но нет, я ж как раз копировал из окна Дельфи, после того как все откомпилировалось, запустилось и отработало.

Вот и сейчас. Взял твои процедуры/функции, собрал проект, компилируется, работает, как и показано выше. Что я делаю не так? Тестировалось на Дельфи 2009 + WinXP SP3 + ExcelXP...

Да и вообще:

Нельзя установить свойство NumberFormat класса Range

А где, собственно, работа с классом Range? Я-то работаю с экземпляром Cell, а не Range, уж не знаю, с чем ты работаешь...