DBGrid <--> Excel.

← →
Malyatko (2002-05-17 17:28) [0]

Добрый день Господа! Каким образом множно реализовать
процес импорта информации из DBGridа в Ms Excel, и наоборот.
Зарание благодарен за любую помощь.

← →
kalinka (2002-05-17 17:46) [1]

Можно так:

Var
XLApp : OleVariant;
Sheet : OleVariant;
FieldNo, Row : Integer;
....
Begin

XLApp := CreateOLEObject("Excel.Application");
try
XLApp.Visible := False;
XLApp.Workbooks.Add(xlWBatWorkSheet);
Sheet := XLApp.Workbooks[1].WorkSheets[1];

Row := 0;
MyDBGrid.DataSource.DataSet.First;
While not MyDBGrid.DataSource.DataSet.Eof do
Begin
inc(Row);
For FieldNo:=0 to MyDBGrid.FieldCount-1 do
Sheet.Cells[Row, FieldNo+1]:= MyDBGrid.Fields[FieldNo].DisplayText;
MyDBGrid.DataSource.DataSet.Next;
End;
//*************************************
finally
if not VarIsEmpty(XLApp) then
begin
XLApp.DisplayAlerts := False;
XLApp.Quit;
XLAPP := Unassigned;
Sheet := Unassigned;
end;
end;
End;

DBGrid <--> Excel. Найти похожие ветки