Экспорт в Excel из Stringgrid

[Karabash]

Сообщение от betirsolt

предыдущая строка это

e99.Visible:=true;

Совсем даже нет.
GoGoDolly('1',stringgrid1_99); - это вызов функции, а не оператор, поэтому строка, на которой происходит ошибка, та которая является первой в вызываемой процедуре.
Именно в строке wshit:=e99.Workbooks.Add(-4167);. Не нужен там параметр.

А лист в книгу вставляется несколько иначе (здесь в конец списка листов):

    Sh := e99.WorkBooks[1].Sheets[e99.WorkBooks[1].Sheets.Count];
    Sh.Select;
    e99.ActiveWorkbook.Sheets.Add(After:=Sh);
  //где Sh : Variant;

[betirsolt]

короче ребята все получилось вроде у меня, я сделал следующим образом, вот вся процедура

procedure TForm1.ToolButton22Click(Sender: TObject);
 var
 Colum:Variant;
 index,i:Integer;
 Procedure GoGoDolly(Nameshit:String;Grid:TStringGrid);
 var
 Colum:Variant;
 index,i:Integer;
 begin
 Sheet:=e99.Workbooks[1].WorkSheets[Nameshit];
           for I := 1 to 10  do
            begin
                for j := 1 to 46 do
                        begin
            Sheet.Cells[j,i]:=Grid.Cells[i,j];
                        end;
            end;
end;

begin
 e99:= CreateOleObject('Excel.Application');
 e99.Workbooks.Add(-4167);
 e99.Workbooks[1].workSheets[1].Name:='18';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='17';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='16';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='15';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='14';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='13';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='12';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='11';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='10';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='9';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='8';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='7';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='6';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='5';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='4';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='3';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='2';
 e99.Sheets.Add;
 e99.ActiveSheet.Name:='1';
 e99.Visible:=true;
 GoGoDolly('1',stringgrid1_99);
 GoGoDolly('2',stringgrid2_99);
 GoGoDolly('3',stringgrid3_99);
 GoGoDolly('4',stringgrid4_99);
 GoGoDolly('5',stringgrid5_99);
 GoGoDolly('6',stringgrid6_99);
 GoGoDolly('7',stringgrid7_99);
 GoGoDolly('8',stringgrid8_99);
 GoGoDolly('9',stringgrid9_99);
 GoGoDolly('10',stringgrid10_99);
 GoGoDolly('11',stringgrid11_99);
 GoGoDolly('12',stringgrid12_99);
 GoGoDolly('13',stringgrid13_99);
 GoGoDolly('14',stringgrid14_99);
 GoGoDolly('15',stringgrid15_99);
 GoGoDolly('16',stringgrid16_99);
 GoGoDolly('17',stringgrid17_99);
 GoGoDolly('18',stringgrid18_99);
end;

а как освободить все эти ресурсы,переменные,объекты при закрытии программы, а то у меня в процессах все забито бывает excelem после этой проги,я пытаюсь сделать это так

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
e1.ActiveWorkbook.Close;
e2.ActiveWorkbook.Close;
e3.ActiveWorkbook.Close;
e4.ActiveWorkbook.Close;
e5.ActiveWorkbook.Close;
e6.ActiveWorkbook.Close;

end;

но процессы эксель все равно остаются,всем спасибо