Проблема с excel

[Kira91]

подскажите -сохранение excel файла.И можно ли на форму открыть(чтоб нормально с табличкой было)


var
Sd : TSaveDialog;
Re:integer;
exDoc,excel: variant;
FileName:OLEVariant;

begin
Sd := Form1.SaveDialog3;
try

excel := CreateOleObject('Excel.Application' );
except
MessageBox(0, 'Íå óäàëîñü çàïóñòèòü MS Excel. Äåéñòâèå îòìåíåíî.'
,'Âíèìàíèå!', MB_OK + MB_ICONERROR + MB_APPLMODAL);
Exit;
end;

excel.DisplayAlerts := false;
excel.WorkBooks.Open(GetCurrentDir( ) + '\OtchetEX.xls');
excel.Visible := true;

//построение таблицы с данными
excel.WorkBooks[1].WorkSheets[1].Name := '1';
excel.WorkBooks[1].WorkSheets[1].Cells[1, 2] :=TIP;
excel.WorkBooks[1].WorkSheets[1].Cells[5, 2] :=RABV;
excel.WorkBooks[1].WorkSheets[1].Cells[6, 2] :=strtofloat(NOM_PODACHA);
excel.WorkBooks[1].WorkSheets[1].Cells[8, 2] :=strtofloat(DAVLENIE_NA_VIH_NOM);
excel.WorkBooks[1].WorkSheets[1].Cells[9, 2] :=DAVLENIE_NA_VIH_PRED;
excel.WorkBooks[1].WorkSheets[1].Cells[11, 2] :=CHASTOTA_VRASCHENIA_NOM;
excel.WorkBooks[1].WorkSheets[1].Cells[12, 2] :=CHASTOTA_VRASCHENIA_MAX;
excel.WorkBooks[1].WorkSheets[1].Cells[13, 2] :=CHASTOTA_VRASCHENIA_MIN;
excel.WorkBooks[1].WorkSheets[1].Cells[15, 2] :=strtofloat(MOSCHNOST_NOM);
excel.WorkBooks[1].WorkSheets[1].Cells[16, 2] :=strtofloat(MOSCHNOST_NA_VIH);
excel.WorkBooks[1].WorkSheets[1].Cells[18, 2] :=strtofloat(KPD_OB);
excel.WorkBooks[1].WorkSheets[1].Cells[19, 2] :=strtofloat(KPD_POLN);
excel.WorkBooks[1].WorkSheets[1].Cells[20, 2] :=RESURS;
excel.WorkBooks[1].WorkSheets[1].Cells[21, 2] :=PR_ZN_ZV;
excel.WorkBooks[1].WorkSheets[1].Cells[22, 2] :=strtofloat(MASSA);

wdApp.Visible := True.
excel.ScreenUpdating := True;




end;