Export в Excel из StringGrid

[alexkam]

Кто-нибудь сталкивался с такой задачей в Lazarus?

[Mr.Smart]

Сталкивались
Самый простой способ, который я использую это создание документа HTML с необходимой таблицей и сохранение его в формате .xls....

[v-t-l]

сохранение его в формате .xls

только не "в формате", а "с расширением имени файла"
Вот еще можно попробовать http://lazarus-ccr.svn.sourceforge.net/viewvc/lazarus-ccr/components/fpspreadsheet.tar.gz?view=tar

[alexs]

Вот еще можно попробовать

Мне понравились компоненты.
Функционала там пока конечно маловато. Но задел очень хороший.

[GAMER]

Сталкивались
Самый простой способ, который я использую это создание документа HTML с необходимой таблицей и сохранение его в формате .xls....

+1. Только Ексель 2007 постоянно выдает предупреждение, мол формат файла ему не сильно нравится, но открывает

[alexkam]

сохранение его в формате .xls

только не "в формате", а "с расширением имени файла"
Вот еще можно попробовать http://lazarus-ccr.svn.sourceforge.net/viewvc/lazarus-ccr/components/fpspreadsheet.tar.gz?view=tar

Получилось:

var
rWorkBook : TsWorkbook;
rWorkSheet : TsWorksheet;
WorkDir: string;
i,j: Integer;
begin
WorkDir := ExtractFilePath(ParamStr(0));
rWorkBook := TsWorkbook.Create;
rWorkSheet := rWorkBook.AddWorksheet('Report');
try
with sGrid do
for i := 0 to ColCount - 1 do
for j := 0 to RowCount - 1 do
begin
if j = 0 then
rWorksheet.WriteUTF8Text(j, i, Columns.Items[i].Title.Caption)
else
begin
rWorksheet.WriteUTF8Text(j, i, Cells[i, j]);
end;
end;
rWorkbook.WriteToFile(WorkDir + 'report.xls', sfExcel8, True);
finally
rWorkbook.Free;
end;

Хотелось бы выводить еще цвет ячеек и размер стринггрида.

[alexs]

Хотелось бы выводить еще цвет ячеек и размер стринггрида.

Как я понял - это ещё не реализовано.

[weirdie]

fpspreadsheet-visual
При установке написано:
/home/weirdie/Загрузки/fpspreadsheet/fpspreadsheetgrid.pas(164,15) Error: Identifier not found "SetCells"
и еще 3 таких же в других строках, а также по поводу GetCells
Как победить ошибку, если оно всё есть?

[v-t-l]

Возможно проблема в расхождении версий LCL (Lazarus).

[weirdie]

Возможно проблема в расхождении версий LCL (Lazarus).

Скорее всего... Проблема исчезла после сноса Лазаря и установки свежего из репозитория. После этого всё установилось и пересобралось без проблем. Спасибо.