Экспорт/импорт данных в Excel

[Sour]

Не могу сделать Экспорт/импорт данных в Excel (Delphi 7). Имеется StringGrid. Нужно всё в Excel и назад...

 

[admin]

Sour
я уже как-то постил тут пример работы с экселем в форуме по делфям. если не найдешь - кину ещё раз.

 

[Barmutik]

Кусок из проги(могут быть мелкие бажки):

var
ExcelApp: Variant;
...
begin
try
try
ExcelApp := GetActiveOleObject('Excel.Application');
except
try
ExcelApp := CreateOleObject ('Excel.Application');
except
MessageDlg('Не могу загрузить Microsoft Excel.', mtError, [mbOK], 0);
Exit;
end;
end;
Screen.Cursor := crHourGlass;
ExcelApp.WorkBooks.Add;
for I := 0 to пробежка по твоему гриду
for J := 0 to пробежка по твоему гриду
ExcelApp.ActiveWorkBook.WorkSheets[1].Cells[I + 1, J + 1] := знчеиния из ячеек
finally
ExcelApp.Visible := True;
ExcelApp := UnAssigned;
Screen.Cursor := crDefault;
end;
end;

Ну и дальше уже украшай как хочеш .. Я обычно испольую заране заготовленные шаблоны и потом просто в нужные места распихиваю данные . а если в чистой странице то потом долго программить .. той ячейке такой цвет .. те слить .. там бордео поставить .. ну надеюсь общий смысл ты понял.