Excel и StringGrid в Delphi

[monushka]

_Dmitry, спасибо! Все классно работает!
У меня еще такая проблема... Если после пработы программы открыть Диспетчер задач, то видно, что все документы Excel, которые открывались, работают. Хотелось бы сделать так, чтобы при закрытии программы все открытые документы закрывалмсь вместе с ней. Я пробовала WorkBook.Close, но что-то оно вообще никак не реагирует на это... Подскажите, пожалуйста, как можно это исправить?
Пробовала E.ActiveSheets.Close; но так вообще прога вылетает...
Хотела сделать с сообщением:

if Application.MessageBox('Вы действительно хотите выйти?'+#13+'Все несохраненные данные будут потеряны!','Выход',MB_OKCANCEL)=IDOK  then
begin
 Action:=caFree;
 E.ActiveSheets.Close;
 end
  else
   Action:=caNone;

Но так после появления сообщения программа тоже вылетает... Вот.

[_Dmitry]

//Сохраняйте все рабочие книги
E.WorkBooks.Item[1].SaveAs('file.xls');
//Закрывайте их
E.WorkBooks.Item[1].Close;
//Освобождайте память
E:=UnAssigned;

//Можно сразу закрыть Excel полностью
E.Quit;
//но перед этим нужно также сохранить все рабочие книги

[monushka]

Сделала так:

for i:=1 to SG1.RowCount do
for j:=1 to SG1.ColCount do
E.ActiveSheet.Cells[i,j].Value:=SG1.Cells[j-1,i-1];
 if not SaveDialog1.Execute then exit;
 E.ActiveSheet.SaveAs(FileName:=SaveDialog1.FileName);
 ShowMessage('Изменения сохранены!');

Получилось SaveAs... А как сделать просто Save, если я из StringGrid'а должна данные сначала в Excel кинуть (в тот документ, который был открыт), а потом уже сохранить сам экселевский документ... При этом не должно вводится имя файла! Изменения должны сохраниться в тот же документ, который был открыт и который, соответственно, был отредактирован. Вот такая проблема...
Спасибо за внимание и понимание ))
P.S.: Excel при этом запущен в фоновом режиме.

[Serge_Bliznykov]

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

E.ActiveSheet.SaveAs(FileName:=Save Dialog1.FileName);
Получилось SaveAs... А как сделать просто Save

А попробуйте вместо этой строчки (с SaveAs)
написать так:
E.WorkBooks.Save;

[monushka]

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

А попробуйте вместо этой строчки (с SaveAs)
написать так:
E.WorkBooks.Save;

Так не получается... Прога запускается, но вылетает потом...Мне кажется проблема в отправке данных из StringGrid'а... Я их закидываю в Excel, но по всей видимости не в тот документ, который открыт, а в новый. А мне нужно в тот, который был открыт... Но я не знаю как это сделать...

[_Dmitry]

E.WorkBooks.Item[1].Save;
так должно работать, сохраняйте каждую рабочую книгу по отдельности

[monushka]

Сделала такЖ

for i:=1 to SG1.RowCount do
for j:=1 to SG1.ColCount do
E.ActiveSheet.Cells[i,j].Value:=SG1.Cells[j-1,i-1];
E.WorkBooks.Item[1].Save;
ShowMessage('Изменения сохранены!');

Прога запустилась, работает... Но! Сохраняет открытый документ в том же виде (первоначальном) в папку Мои документы! Т.е. изменения так и остаются не сохраненными...

[_Dmitry]

Может у вас одновременно открыто нескольно рабочих книг (может одна и та же несколько раз), данные вы пишите в активную, а сохраняете первую. Активная может быть и не первой.

[monushka]

Опять столкнулась с записью данных из StringGrid'а в Excel. Теперь вопрос в том, как выделить диапазон ячеек в Excel'е, если заранее неизвестно, сколько строк у StringGrid'а.

E:=CreateOleObject('Excel.Application');
E.WorkBooks.Add;
E.Visible:=true;
E.ActiveSheet.PageSetup.Orientation:= 2;
E.ActiveWorkbook.WorkSheets[1].Columns[1].ColumnWidth:= 20;
E.ActiveWorkbook.WorkSheets[1].Columns[2].ColumnWidth:= 13;
E.ActiveWorkbook.WorkSheets[1].Columns[3].ColumnWidth:= 25;
E.ActiveWorkbook.WorkSheets[1].Columns[4].ColumnWidth:= 30;
E.ActiveWorkbook.WorkSheets[1].Columns[5].ColumnWidth:= 6;
E.ActiveWorkbook.WorkSheets[1].Columns[6].ColumnWidth:= 13;
E.ActiveWorkbook.WorkSheets[1].Columns[7].ColumnWidth:= 10;
E.ActiveWorkbook.WorkSheets[1].Columns[8].ColumnWidth:= 10;
E.WorkBooks[1].WorkSheets[1].Rows[1].Font.Bold := True;
for i:=1 to SG1.RowCount do begin
E.WorkBooks[1].WorkSheets[1].Rows[i].Font.Name := 'Times New Roman';
E.WorkBooks[1].WorkSheets[1].Rows[i].Font.Size := 11;
end;
E.ActiveWorkBook.WorkSheets[1].Range['A1:H1'].Select;
E.Selection.HorizontalAlignment:=-4108; //выравнивание по центру
E.Selection.Borders.LineStyle:=1;  //показываем границы ячеек
E.Selection.Borders.Weight:=2;   //стиль границ
E.Selection.WrapText:=true;      //перенос по словам
for i:=1 to SG1.RowCount do
for j:=1 to SG1.ColCount do
E.ActiveSheet.Cells[i,j].Value:=SG1.Cells[j-1,i-1];
E.ActiveSheet.Cells[SG1.RowCount+3,5]:='Итого: ';
E.ActiveSheet.Cells[SG1.RowCount+3,6]:=Edit1.Text;

Как выделить диапазон, если размеры таблицы заранее не известны? Известно только количество столбцов, количество строк разное.