Кусок из проги(могут быть мелкие бажки):
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;
Ну и дальше уже украшай как хочеш .. Я обычно испольую заране заготовленные шаблоны и потом просто в нужные места распихиваю данные . а если в чистой странице то потом долго программить .. той ячейке такой цвет .. те слить .. там бордео поставить .. ну надеюсь общий смысл ты понял.
