Дельфи + Excel

← →
VasRog (2004-11-15 20:03) [0]

Тут такая проблема имеется: как мне сохранить большое количество данных, аолучаемых из моей проги, в xl - евскую таблицу? И как их считать оттуда?

← →
_student (2004-11-15 21:33) [1]

Я например вот так сохраняю в Excel
procedure TForm1.Button5Click(Sender: TObject); var XLApp, Sheet, Column:Variant; index,i:integer; begin XLApp:=CreateOleObject("Excel.Application"); XLApp.Visible:=true; XLApp.workbooks.add(-4167); XLApp.workbooks[1].worksheets[1].name:="Отчет"; Column:=XLApp.workbooks[1].worksheets["Отчет"].columns; Column.columns[1].columnwidth:=20; Column.columns[2].columnwidth:=20; Column.columns[3].columnwidth:=20; Column.columns[4].columnwidth:=20; Column.columns[5].columnwidth:=20; column:=XLApp.workbooks[1].worksheets["Отчет"].rows; column.rows[2].font.bold:=true; column.rows[1].font.bold:=true; column.rows[1].font.color:=clblue; column.rows[1].font.size:=14; sheet:=XLApp.workbooks[1].worksheets["Отчет"]; Sheet.cells[1,2]:="Отчет"; Sheet.cells[2,1]:="Дата"; Sheet.cells[2,2]:="Время"; Sheet.cells[2,3]:="Показание"; index:=3; ADOTable1.First; for i:=0 to ADOTable1.RecordCount-1 do begin Sheet.cells[index,1]:=ADOTable1.Fields.Fields[1].AsString; Sheet.cells[index,2]:=ADOTable1.Fields.Fields[2].AsString; Sheet.cells[index,3]:=ADOTable1.Fields.Fields[3].AsInteger; inc(index); ADOTable1.Next; end; end;

← →
VasRog (2004-11-16 00:26) [2]

Несколько строчек не понятно мне:
1). XLApp.workbooks.add(-4167);
2). ADOTable1.First;
for i:=0 to ADOTable1.RecordCount-1 do
begin
Sheet.cells[index,1]:=ADOTable1.Fields.Fields[1].AsString;
Sheet.cells[index,2]:=ADOTable1.Fields.Fields[2].AsString;
Sheet.cells[index,3]:=ADOTable1.Fields.Fields[3].AsInteger;
inc(index);
ADOTable1.Next;
end;
Объясните пожалуста если не сложно. Во второй не понял что такое ADO.

> Во второй не понял что такое ADO
Ну так не смотри на ADO.

Дельфи + Excel Найти похожие ветки