Скачать: CL | DM;

Дельфи + 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.

---

← →
GanibalLector ©   (2004-11-16 00:34) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c