Экспорт данных из StringGrid в Excel

[demiancz]

Здравствуйте. Помогите пожалуйста с кодом экспорта данных из StringGrid в Excel. Суть проблемы такова. Есть код:

procedure TForm3.Button1Click(Sender: TObject);
var
Excel, WorkBook, Sheet:variant;
i, j: integer;
FName: string;

begin
if SaveDialog1.Execute then
FName := SaveDialog1.FileName
else
Exit;
Excel:=CreateOleObject('Excel.Appli cation');
Excel.DisplayAlerts:=False;
Excel.Visible:= False;
Workbook:=Excel.
Workbooks.Add;
Workbook.SaveAs(FName);
Sheet:= Workbook.ActiveSheet;
for i:= 0 to StringGrid1.RowCount - 1 do

begin
for j:= 0 to StringGrid1.ColCount - 1 do
Sheet.Cells[i+1, j+1]:= StringGrid1.Cells[j, i];
end;

Workbook.Save;
Workbook.Close;
Excel.Quit;
Excel:= UnAssigned;
MessageBox(Handle,'Экспорт данных завершен!','Внимание!',0);
end;

Данные переносятся не нормально. Проблема только с числами. Например в StringGrid 111111111111110, а при экспорте в Excel отображается в ячейке 1,11111E+14. Тоесть надо как то задать для ячеек текстовый формат.

[Arigato]

Попробуйте перед записью содержимого ячейки:

Sheet.Cells[i+1, j+1].NumberFormat := '@';

Если это не поможет, то попробуйте добавить апостроф так:

Sheet.Cells[i+1, j+1]:= '''' + StringGrid1.Cells[j, i];

[demiancz]

Спасибо. Помогло второе.